将lisp命令与und结合使用

dtv8997 · 发表于 2022-7-6 12:45:42

有谁能告诉我，是否可以在LISP例程中组合一系列“命令”函数，这样就可以使用UNDO命令一次性撤消整个序列，而不必重复撤消，直到LISP例程中的每个命令都撤消为止。

Lee Mac · 发表于 2022-7-6 13:09:31

两种方式：


(command "_.undo" "_begin")
<code>
(command" "_.undo" "_end")

或使用VL：


(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-startUndoMark doc)
<code>
(vla-EndUndoMark doc)

李

dtv8997 · 发表于 2022-7-6 13:28:20

哇，很简单，非常感谢！

Lee Mac · 发表于 2022-7-6 13:53:51

没问题，伙计

[编程交流] 将lisp命令与und结合使用