Lisp/ActiveX Как получить указатель на Мировую СК документа?

Kirill_Ja · 11.06.2013, 20:23

В любом документе есть Мировая СК, но вот она не как не указана в таблице "UCS", а следовательно не имеет имени примитива в текущем сеансе (или имеет?). О_о
Как же тогда ее установить без использования (command)?

Например другую именованную можно так:

Код:

[Выделить все]

 (vla-put-ActiveUCS curent_doc (vlax-ename->vla-object (tblobjname "UCS" ucs)))

Интересуюсь не из праздного любопытства.
Например код

Код:

[Выделить все]

 (command "_UCS" "")

оставляет в панели ПСК-2 в списке выбора текущей СК значение "Предидущая СК".
Хотел бы, чтобы там было "Мировая СК"

Do$ · 13.06.2013, 11:51

Да, похоже, что через ActiveX это не так просто сделать.
А командой это вот так делается:

Код:

[Выделить все]

(vl-cmdf "_.ucs" "_w")

Kirill_Ja · 13.06.2013, 18:39

Все равно при вызове из Мировой - в ПСК-2 значение "Предидущая СК"
А можно как-нибудь определить, что СК Мировая?
ActiveX вообще ошибку выдает (как и если запускать при неименованной)

VVA · 13.06.2013, 18:58

Цитата:

Сообщение от Kirill_Ja

А можно как-нибудь определить, что СК Мировая?

WORLDUCS

Kirill_Ja · 13.06.2013, 22:07

Задача решена. Спасибо.
Включу в код проверку на совпадение СК с мировой. Сам текст, если надо, выложу попозже.

Как то так

Код:

[Выделить все]

 (if (zerop (getvar 'WORLDUCS) )(command "_UCS" ""))

11.06.2013, 20:23		#1
Lisp/ActiveX Как получить указатель на Мировую СК документа? Kirill_Ja Мурманск Регистрация: 28.07.2008 Сообщений: 208 В любом документе есть Мировая СК, но вот она не как не указана в таблице "UCS", а следовательно не имеет имени примитива в текущем сеансе (или имеет?). О_о Как же тогда ее установить без использования (command)? Например другую именованную можно так: Код: [Выделить все] (vla-put-ActiveUCS curent_doc (vlax-ename->vla-object (tblobjname "UCS" ucs))) Интересуюсь не из праздного любопытства. Например код Код: [Выделить все] (command "_UCS" "") оставляет в панели ПСК-2 в списке выбора текущей СК значение "Предидущая СК". Хотел бы, чтобы там было "Мировая СК" __________________ Мне не нужно сделать за меня. Если я что-то ищу, то пути решения.
Просмотров: 1341

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Lisp/ActiveX. Объект AECS_MEMBER. Как получить данные о примитиве?	Kirill_Ja	LISP	11	28.04.2013 14:59
Как по примитиву получить указатель на динамический блок, в котором этот примитив находится?	молодой человек	Программирование	3	08.02.2011 21:47
Как получить указатель на вложенные в блоки объекты по вычисленной точке?	Кулик Алексей aka kpblc	Программирование	8	07.07.2009 12:34
Как получить из excel указатель на ячейку с координатами x,	Ax3	Программирование	3	03.08.2007 17:10