[МишаИнженер]

Как на VBA установить Мировую Систему Координат?
Метод ThisDrawing.ActiveUCS = Nothing не работает.
Выдает ошибку: "Недопустимый аргумент"
(Может есть решение на ЛИСП? Как вариант запустить команду на ЛИСП из VBA)

[Кулик Алексей aka kpblc]

Насколько я помню, в Lisp/VBA/COM такое можно провернуть только командой.

[МишаИнженер]

А на ЛИСПе какая команда для этого нужна?

[Кулик Алексей aka kpblc]

_.ucs

[МишаИнженер]

Команда: (_.ucs )
; ошибка: no function definition: _

----- добавлено через ~16 мин. -----
Вот так работает:
(command "_.ucs" "_w")
А как запустить эту команду из VBA?

[Кулик Алексей aka kpblc]

Точно так же, как и любую другую. Поищи в документации

[Valera1985]

Сообщение от МишаИнженер Команда: (_.ucs ) ; ошибка: no function definition: _ ----- добавлено через ~16 мин. ----- Вот так работает: (command "_.ucs" "_w") А как запустить эту команду из VBA?

Сам не проверял, попробуй так:
ThisDrawing.Utility.SendCommand "_.ucs _w" & vbCr

[МишаИнженер]

Вот так работает:
ThisDrawing.SendCommand "_.ucs _w" & vbCr