撤销时，命令行能不能不显示一连串的（lisp 表达式）

明天你好

有时候用一个lisp绘制一个对象后 ，由于一些原因想撤销，用了CTRL+Z后 ，结果命令行显示：

命令：_u GROUP (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式）
(LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式）
(LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式）
(LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式）
(LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式） (LISP 表达式）

Lisphk

用  undo  搜索下论坛吧。

marting

在你的LISP代码开始加入
(COMMAND ".UNDO" "BE")

在LISP结尾前，加入(COMMAND ".UNDO" "E")

在试试

hejiho

这个技能有点意思

明天你好

marting 发表于 2016-12-24 19:05

程序中有用到的
用的LEEMAC的

1. ;; Start Undo  -  Lee Mac
   
2. ;; Opens an Undo Group.
   
3. 
   
4. (defun LM:startundo ( doc )
   
5.     (LM:endundo doc)
   
6.     (vla-startundomark doc)
   
7. )
   
8. 
   
9. ;; End Undo  -  Lee Mac
   
10. ;; Closes an Undo Group.
    
11. 
    
12. (defun LM:endundo ( doc )
    
13.     (while (= 8 (logand 8 (getvar 'undoctl)))
    
14.         (vla-endundomark doc)
    
15.   )
    
16. 
    
17. ;; Active Document  -  Lee Mac
    
18. ;; Returns the VLA Active Document Object
    
19. 
    
20. (defun LM:acdoc nil
    
21.     (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
    
22.     (LM:acdoc)
    
23. )
    
24. )

;; Start Undo  -  Lee Mac<br /> ;; Opens an Undo Group.<br /> <br /> (defun LM:startundo ( doc )<br />     (LM:endundo doc)<br />     (vla-startundomark doc)<br /> )<br /> <br /> ;; End Undo  -  Lee Mac<br /> ;; Closes an Undo Group.<br /> <br /> (defun LM:endundo ( doc )<br />     (while (= 8 (logand 8 (getvar 'undoctl)))<br />         (vla-endundomark doc)<br />   )<br /> <br /> ;; Active Document  -  Lee Mac<br /> ;; Returns the VLA Active Document Object<br /> <br /> (defun LM:acdoc nil<br />     (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))<br />     (LM:acdoc)<br /> )<br /> )

程序开始用的
(LM:startundo (LM:acdoc))

结尾用的
(LM:endundo (LM:acdoc))

撤销动作没有问题 ，问题是撤销后命令行会显示几排这样的（lisp 表达示）

cq_qg68

哪里能找到LEEMAC的通用函数？

ll_j

试试：
undo
auto
off

不保证有用，这是以前aeo大师回答的，但帖子的楼主没有最终回应。

明天你好

@ll_j 谢长老的回复，这样好像没什么用吧

Lisphk

明天你好 发表于 2016-12-26 15:06

你试试上面MARTING帖子的。

明天你好

Lisphk 发表于 2016-12-26 15:08

这个跟vla的undo效果一样的！
我都奇怪，难道你们没遇到过吗？可能有的程序只会出现1到2个(lisp 表达式)，有的则会出现很多个，我不相信你们用到的每个lisp在使用后，ctrl+z后什么都不显示，可能你们只是没有留意，这是一个不是问题的问题，因为根本对使用没有一点影响，只是看起来有点别扭

marting

明天你好 发表于 2016-12-26 17:07

你把你的完整代码都贴上来吧。别人的UNDO不排除有你这样的，但是也很多是正常的，这种事情往往是你的代码的问题。

Gray_wolf

cad 本身的问题，高版本有这种情况

yjch

啥也不说了，感谢楼主分享哇！