怎样在使用_.UNDO时取消命令栏提示？

菜卷鱼

怎样在使用_.UNDO时取消命令栏多余“ (LISP 表达式)” 提示？
因为lisp里面带了undo be 跟undo e，使用程序的时候执行了一个循环1000多遍的代码，撤销的时候命令栏就出现了1000多遍“(LISP 表达式)”的提示，怎样让多余的“(LISP 表达式)”这句话不显示？
求高手解答出现这么多“(LISP 表达式)”的原因。

自贡黄明儒

;;你这样试试

1. (defun c:et ()
   
2.   (command "_.undo" "be")
   
3.   (setvar "cmdecho" 0)
   
4.   (setq ptlist1 nil)
   
5.   (setq ss (ssget '((0 . "INSERT"))))
   
6.   (setq ss0 (sort-se (sort-se ss 10 1 50 nil) 10 0 2 nil))
   
7.   (setq sct (sslength ss))
   
8.   (setq        x1 0
   
9.         x2 0
   
10.   )
    
11.   (setq        ss1 ss0
    
12.         ss2 ss0
    
13.   )
    
14.   (repeat sct
    
15.     (setq sent (entget (ssname ss1 x1)))
    
16.     (setq ascd10 (assoc 10 sent))
    
17.     (setq ptlist1 (cons ascd10 ptlist1))
    
18.     (setq x1 (1+ x1))
    
19.   )
    
20.   (etmove)
    
21.   (command "_.undo" "e")
    
22.   (prin1)
    
23. )
    
24. (defun etmove ()
    
25.   (setvar "cmdecho" 0)
    
26.   (setq ptlist2 ptlist1)
    
27.   (repeat sct
    
28.     (setq acx10 (cdr (car ptlist2)))
    
29.     (setq ptlist2 (cdr ptlist2))
    
30.     (setq sn (ssname ss2 x2))
    
31.     (setq sent2 (entget sn))
    
32.     (setq acy10 (cdr (assoc 10 sent2)))
    
33.     (command "_move" sn "" acy10 acx10)
    
34.     (setq x2 (1+ x2))
    
35.   )
    
36.   (setvar "cmdecho" 1)
    
37. )

(defun c:et ()<br />   (command "_.undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq ptlist1 nil)<br />   (setq ss (ssget '((0 . "INSERT"))))<br />   (setq ss0 (sort-se (sort-se ss 10 1 50 nil) 10 0 2 nil))<br />   (setq sct (sslength ss))<br />   (setq        x1 0<br />         x2 0<br />   )<br />   (setq        ss1 ss0<br />         ss2 ss0<br />   )<br />   (repeat sct<br />     (setq sent (entget (ssname ss1 x1)))<br />     (setq ascd10 (assoc 10 sent))<br />     (setq ptlist1 (cons ascd10 ptlist1))<br />     (setq x1 (1+ x1))<br />   )<br />   (etmove)<br />   (command "_.undo" "e")<br />   (prin1)<br /> )<br /> (defun etmove ()<br />   (setvar "cmdecho" 0)<br />   (setq ptlist2 ptlist1)<br />   (repeat sct<br />     (setq acx10 (cdr (car ptlist2)))<br />     (setq ptlist2 (cdr ptlist2))<br />     (setq sn (ssname ss2 x2))<br />     (setq sent2 (entget sn))<br />     (setq acy10 (cdr (assoc 10 sent2)))<br />     (command "_move" sn "" acy10 acx10)<br />     (setq x2 (1+ x2))<br />   )<br />   (setvar "cmdecho" 1)<br /> )

ll_j

没有源码，不好准确判断，一般说来，这是Undo e位置使用不当所致，undobe使用在程序的开始，undoe使用在程序的结尾和出错处理函数*error*中，都要在循环外，如果是程序本体循环，可以把程序设置为子函数，任何使用主函数调用子函数，循环子函数，Undo处理放在子函数以外。

菜卷鱼

ll_j 发表于 2013-12-19 09:22
没有源码，不好准确判断，一般说来，这是Undo e位置使用不当所致，undobe使用在程序的开始，undoe使用在程序 ...

我已经试过将UNDO E 放在子程序里，一样 ,谢谢你的提醒，我再去多试一试

ll_j

菜卷鱼 发表于 2013-12-19 09:27
我已经试过将UNDO E 放在子程序里，一样 ,谢谢你的提醒，我再去多试一试

unde e不能放在循环内，这是要点。

自贡黄明儒

何不将程序贴上来？
一般将程序进行研究编组,这样可以一次撤销
(command "_.undo" "be")
lisp
(command "_.undo" "e")

菜卷鱼

2. (defun c:et ()
   
3. (setvar "cmdecho" 0)
   
4. (setq ptlist1 nil)
   
5. (setq ss (ssget  '( (0 . "INSERT")) ))
   
6. 
   
7. (setq ss0 (sort-se (sort-se ss 10 1 50 nil) 10 0 2 nil ))
   
8. 
   
9. (setq sct (sslength ss))
   
10. (setq x1 0 x2 0)
    
11. (setq ss1 ss0 ss2 ss0)
    
12. (repeat sct
    
13. (setq sent (entget (ssname ss1 x1 )))
    
14. (setq ascd10 (assoc 10 sent))
    
15. (setq ptlist1 (cons ascd10 ptlist1))
    
16. (setq x1 (1+ x1))
    
17. )
    
18. (etmove)
    
19. (prin1)
    
20. )
    
21. 
    
22. (defun etmove ( )
    
23. (setvar "cmdecho" 0)
    
24. (command "_.undo" "be")
    
25. (setq ptlist2  ptlist1)
    
26. (repeat sct
    
27. (setq acx10 (cdr (car ptlist2)))
    
28. (setq ptlist2 (cdr ptlist2))
    
29. (setq sn (ssname ss2 x2 ) )
    
30. (setq sent2 (entget sn))
    
31. (setq acy10 (cdr (assoc 10 sent2)))
    
32. (command "_move" sn "" acy10 acx10  )
    
33. (setq x2 (1+ x2))
    
34. )
    
35. (command "_.undo" "e")
    
36. (setvar "cmdecho" 1)
    
37. )
    
38. 
    
39. ;;;;;;通用排序程序,来自明经论坛
    
40. (vl-load-com)
    
41. (defun SORT-SE (SE DXF INT FUZZ K / ENT INDEX LST NEWLST NEWSE TMP)
    
42.   ;;建立排序列表
    
43.   (setq LST '() INDEX 0)
    
44.   (repeat (sslength SE)
    
45.     (setq ENT (entget (ssname SE INDEX))
    
46. TMP (cdr (assoc DXF ENT)) )
    
47. 
    
48.     (if (and INT (= (type INT) 'INT) (= (type TMP) 'list)(< INT (length TMP)) )
    
49.         (setq TMP (nth INT TMP)))
    
50. 
    
51.     (setq LST (cons (list TMP (cdr (assoc 5 ENT))) LST))
    
52.     (setq INDEX (1+ INDEX)));;排序操作
    
53. 
    
54.   (if (and FUZZ
    
55.   (or (= (type FUZZ) 'INT)
    
56.       (= (type FUZZ) 'REAL))
    
57.   (or (= (type TMP) 'INT) (= (type TMP) 'REAL)))
    
58.     (setq NEWLST
    
59. (vl-sort LST (function (lambda (E1 E2) (< (+ (car E1) FUZZ) (car E2)))
    
60. )))
    
61.     (setq NEWLST
    
62. (vl-sort LST (function (lambda (E1 E2) (< (car E1) (car E2))))
    
63. )))         ;;如果K为T，则倒置
    
64.   (if K (setq NEWLST (reverse NEWLST)))
    
65.   (setq NEWSE (ssadd))
    
66.   (foreach TMP NEWLST
    
67.     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE))
    
68. )   ;;返回值  NEWSE ;_结束defun;;;
    
69. )
    
70. ;;;;示例：
    
71. ;(SORT-SE SS 10 0 5.0 T);;;;;;;;;
    
72. ;表示按照10组码的X坐标值进行排序，允许偏差值为5.0，顺序为从大到小;;;;;;;
    
73. ;(SORT-SE SS 10 1 3.0 NIL);;;;;;;
    
74. ;表示按照10组码的Y坐标值进行排序，允许偏差值为3.0，顺序为从小到大;;;;;;
    
75. ;(SORT-SE SS 8 NIL NIL NIL);;;;;;;
    
76. ;表示按照8组码值（图层名称）进行排序，顺序为从小到大;;;;;;
    
77. (prin1)

(defun c:et ()<br /> (setvar "cmdecho" 0)<br /> (setq ptlist1 nil)<br /> (setq ss (ssget  '( (0 . "INSERT")) ))<br /> <br /> (setq ss0 (sort-se (sort-se ss 10 1 50 nil) 10 0 2 nil ))<br /> <br /> (setq sct (sslength ss))<br /> (setq x1 0 x2 0)<br /> (setq ss1 ss0 ss2 ss0)<br /> (repeat sct <br /> (setq sent (entget (ssname ss1 x1 )))<br /> (setq ascd10 (assoc 10 sent))<br /> (setq ptlist1 (cons ascd10 ptlist1))<br /> (setq x1 (1+ x1))<br /> )<br /> (etmove)<br /> (prin1)<br /> )<br /> <br /> (defun etmove ( )<br /> (setvar "cmdecho" 0)<br /> (command "_.undo" "be")<br /> (setq ptlist2  ptlist1)<br /> (repeat sct<br /> (setq acx10 (cdr (car ptlist2)))<br /> (setq ptlist2 (cdr ptlist2))<br /> (setq sn (ssname ss2 x2 ) )<br /> (setq sent2 (entget sn))<br /> (setq acy10 (cdr (assoc 10 sent2)))<br /> (command "_move" sn "" acy10 acx10  )<br /> (setq x2 (1+ x2)) <br /> )<br /> (command "_.undo" "e")<br /> (setvar "cmdecho" 1)<br /> )<br /> <br /> ;;;;;;通用排序程序,来自明经论坛<br /> (vl-load-com)<br /> (defun SORT-SE (SE DXF INT FUZZ K / ENT INDEX LST NEWLST NEWSE TMP)<br />   ;;建立排序列表<br />   (setq LST '() INDEX 0)<br />   (repeat (sslength SE)<br />     (setq ENT (entget (ssname SE INDEX))<br /> TMP (cdr (assoc DXF ENT)) )<br /> <br />     (if (and INT (= (type INT) 'INT) (= (type TMP) 'list)(< INT (length TMP)) )<br />         (setq TMP (nth INT TMP)))<br /> <br />     (setq LST (cons (list TMP (cdr (assoc 5 ENT))) LST))<br />     (setq INDEX (1+ INDEX)));;排序操作 <br /> <br />   (if (and FUZZ<br />   (or (= (type FUZZ) 'INT)<br />       (= (type FUZZ) 'REAL))<br />   (or (= (type TMP) 'INT) (= (type TMP) 'REAL)))<br />     (setq NEWLST<br /> (vl-sort LST (function (lambda (E1 E2) (< (+ (car E1) FUZZ) (car E2)))<br /> )))<br />     (setq NEWLST<br /> (vl-sort LST (function (lambda (E1 E2) (< (car E1) (car E2))))<br /> )))         ;;如果K为T，则倒置 <br />   (if K (setq NEWLST (reverse NEWLST)))<br />   (setq NEWSE (ssadd))<br />   (foreach TMP NEWLST<br />     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE))<br /> )   ;;返回值  NEWSE ;_结束defun;;;<br /> )<br /> ;;;;示例：<br /> ;(SORT-SE SS 10 0 5.0 T);;;;;;;;;<br /> ;表示按照10组码的X坐标值进行排序，允许偏差值为5.0，顺序为从大到小;;;;;;;<br /> ;(SORT-SE SS 10 1 3.0 NIL);;;;;;;<br /> ;表示按照10组码的Y坐标值进行排序，允许偏差值为3.0，顺序为从小到大;;;;;;<br /> ;(SORT-SE SS 8 NIL NIL NIL);;;;;;;<br /> ;表示按照8组码值（图层名称）进行排序，顺序为从小到大;;;;;;<br /> (prin1)

ll_j

菜卷鱼 发表于 2013-12-19 10:43

问题就是Undo处理放在循环中了。
Undobe和Undoe应该放在c:et的首尾，而不是子函数的首尾。

菜卷鱼

ll_j 发表于 2013-12-19 10:50
问题就是Undo处理放在循环中了。
Undobe和Undoe应该放在c:et的首尾，而不是子函数的首尾。

我一开始就是放在c:et的首尾的，听了你之前的建议我才放到子程序的首尾的

菜卷鱼

自贡黄明儒 发表于 2013-12-19 09:37
何不将程序贴上来？
一般将程序进行研究编组,这样可以一次撤销
(command "_.undo" "be")

可以一次撤销，就是撤销的时候出现很多“(LISP 表达式)”