木香 发表于 2020-6-11 14:13:58

关于undo 的(LISP 表达式)

关于undo 的(LISP 表达式)，undo设置有效，在命令执行之后撤销操作总是显示一大堆   _u GROUP (LISP 表达式) (LISP 表达式) (LISP 表达式) (LISP 表达式)。。。，求哪位大神解决抑制此提示的显示

自贡黄明儒 发表于 2020-6-11 16:07:10

编组之后，就可以一次撤销
;;编组开始;(command "_.undo" "be")
(defun _StartUndo (*DOC*)
(_EndUndo *DOC*)
(vla-StartUndoMark *DOC*)
)
;;结束编组;(if (= 8 (logand (getvar "undoctl") 8)) (command "_.undo" "_e"))
(defun _EndUndo        (*DOC*)
(if (= 8 (logand 8 (getvar 'UNDOCTL)))
    (vla-EndUndoMark *DOC*)
)
)

木香 发表于 2020-6-17 20:36:13

自贡黄明儒 发表于 2020-6-11 16:07
编组之后，就可以一次撤销
;;编组开始;(command "_.undo" "be")
(defun _StartUndo (*DOC*)


调用vla函数同样无法解决，我的意思是，我现在撤销操作正常，但是问题出在怎样不显示 _u GROUP (LISP 表达式) (LISP 表达式) (LISP 表达式)。。。这么一堆东西

tigcat 发表于 2024-5-13 16:37:30

请问楼主解决了吗？我的也是呀

gzcsun 发表于 2024-5-13 19:34:12

(command "undo" "be");开始
(command "undo" "e");结束
页: [1]
查看完整版本: 关于undo 的(LISP 表达式)