关于undo 的(LISP 表达式)

木香

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

自贡黄明儒

编组之后，就可以一次撤销
;;编组开始;(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-11 16:07
编组之后，就可以一次撤销
;;编组开始;(command "_.undo" "be")
(defun _StartUndo (*DOC*)

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

tigcat

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

gzcsun

(command "undo" "be");开始
(command "undo" "e");结束