将lisp命令与und结合使用
有谁能告诉我,是否可以在LISP例程中组合一系列“命令”函数,这样就可以使用UNDO命令一次性撤消整个序列,而不必重复撤消,直到LISP例程中的每个命令都撤消为止。 两种方式:(command "_.undo" "_begin")
<code>
(command" "_.undo" "_end")
或使用VL:
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-startUndoMark doc)
<code>
(vla-EndUndoMark doc)
李 哇,很简单,非常感谢!
没问题,伙计
页:
[1]