Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Отключить ориентацию по листу у аннотативного МТЕКСТА

Отключить ориентацию по листу у аннотативного МТЕКСТА

Ответ
Поиск в этой теме
Непрочитано 08.12.2017, 09:06 #1
Отключить ориентацию по листу у аннотативного МТЕКСТА
G-RAV
 
Геодезист
 
г.Новосибирск
Регистрация: 16.08.2009
Сообщений: 86

Пытаюсь программно отключить свойство "Ориентация по листу", докапался до раширенных данных.
Вижу, что при отключении/включении свойства пропадает или появляется приложение "AcadAnnoPO" из списка
(-3 ("AcadAnnoPO" (1070 . 1)) ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}")))
Формирую новый список, уже без ("AcadAnnoPO" (1070 . 1)) и через entmod обновляю примитив, но свойство остается включенным.
Просмотров: 1513
 
Непрочитано 08.12.2017, 10:52
1 | #2
Alex.gomel


 
Регистрация: 09.11.2017
Сообщений: 28


http://www.cadtutor.net/forum/showth...ch-Orientation
Alex.gomel вне форума  
 
Непрочитано 08.12.2017, 11:05
#3
P_S


 
Регистрация: 09.10.2006
Санкт-Петербург
Сообщений: 99


Если посмотреть на дамп любого объекта, видно, что параметр "HasExtensionDictionary" имеет свойство "read only", то есть средствами COM от связи с приложением объект не избавить. Выход - стирать старый объект и создавать на его месте новый (entmake). По-моему, так.
P_S вне форума  
 
Непрочитано 08.12.2017, 11:24
#4
Alex.gomel


 
Регистрация: 09.11.2017
Сообщений: 28


Код:
[Выделить все]
 (entmod (list (cons -1 mtx) (list -3 (list "AcadAnnoPO"))))
Alex.gomel вне форума  
 
Автор темы   Непрочитано 08.12.2017, 11:48
#5
G-RAV

Геодезист
 
Регистрация: 16.08.2009
г.Новосибирск
Сообщений: 86
<phrase 1=


Цитата:
Сообщение от Alex.gomel Посмотреть сообщение
да. функция от Lee Mac работает. Спасибо
Код:
[Выделить все]
 (defun MatchOrientation ( entity flag )
  ;; © Lee Mac 2010
  (if (assoc -3 (entget entity '("AcadAnnotative")))
    (entmod (list (cons -1 entity) (list -3 (cons "AcadAnnoPO" (if flag (list '(1070 . 1)))))))
  )
)
G-RAV вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Отключить ориентацию по листу у аннотативного МТЕКСТА

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Печать в pdf. Как убрать отключить создание комментариев? Волк Ларсен AutoCAD 5 30.08.2017 17:52
Как отключить в autocad 2013 перемешение при помощи клавиш Ctrl+Up, Ctrl+Down, Ctrl+Left, Ctrl+Right, dima0324 AutoCAD 5 20.06.2017 17:08
Как отключить автосохранение для отдельно взятого файла kp+ AutoCAD 11 25.10.2016 17:13
Как отключить учет собственного веса конструкции в Robot? Yujeene Robot 2 28.11.2012 22:12
AutoCAD 2011. Почему в редакторе МТекста изменение высоты мтекста, воспринимается как изменение его масштаба? Kostinok AutoCAD 5 07.11.2011 17:02