(defun c:commandname) + undo

(defun c:commandname) + undo · 13.03.2006, 09:55

Уважаемые, задал я lisp процедуру, определив её как команду AutoCAD (defun c:commandname). Процедура отрабатывает, как задумывалось, без проблем. А вот если сделать undo, после её применения, результаты её работы откатываются вместе с результатами работы команды, предшествовавшей ей. То есть, как я понимаю, undo процедуру эту вообще не видит, и срабатывает на команду, которая перед ней была. Это лечится как-то?

Кулик Алексей aka kpblc · 13.03.2006, 10:02

Да, лечится. В начале своего лиспа ставится либо

Код:

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

(command "_.undo" "_begin")

, либо

Код:

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

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

В конце - соответственно

Код:

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

(command "_.undo" "_e")

либо

Код:

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

(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))

Tramp · 13.03.2006, 10:26

Спасибо, помогло :-)

Zouss · 15.03.2006, 19:48

для полной шоколадности я бы еще определил функцию

Код:

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

(defun *error*...

сработает в случае аварийного завершения, например Escапом, ну а в теле ее там уж то что надо - метку отката поставить или sysvar восстановить

13.03.2006, 09:55		#1
(defun c:commandname) + undo Tramp Регистрация: 12.01.2006 Сообщений: 114 Уважаемые, задал я lisp процедуру, определив её как команду AutoCAD (defun c:commandname). Процедура отрабатывает, как задумывалось, без проблем. А вот если сделать undo, после её применения, результаты её работы откатываются вместе с результатами работы команды, предшествовавшей ей. То есть, как я понимаю, undo процедуру эту вообще не видит, и срабатывает на команду, которая перед ней была. Это лечится как-то?
Просмотров: 2849