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

liu22737

菜卷鱼 发表于 2013-12-19 10:57
可以一次撤销，就是撤销的时候出现很多“(LISP 表达式)”

可以用 PRINC

ll_j

问题出在使用了command函数，但不知怎样解决。

菜卷鱼

自贡黄明儒 发表于 2013-12-19 14:16
;;你这样试试

麻烦黄大师了，这样我也试过了，还是一样，实在弄不清原因，有人说事command的原因，但是我有另外的程序用了command，但是撤销的时候不会有很多“(LISP 表达式)”提示。
虽然这样不影响程序使用，但是我想知道到底什么原因。

菜卷鱼

菜卷鱼 发表于 2013-12-19 14:27
麻烦黄大师了，这样我也试过了，还是一样，实在弄不清原因，有人说事command的原因，但是我有另外的程序用 ...

可能是我CAD哪个参数跟你们设置的不同，麻烦黄大师了，我再慢慢找原因吧

菜卷鱼

这问题恐怕是没人解决了

自贡黄明儒

菜卷鱼 发表于 2013-12-20 14:16
这问题恐怕是没人解决了

你使用(vla-StartUndoMark *DOC*)替代(command "_.undo" "be")试试

菜卷鱼

自贡黄明儒 发表于 2013-12-20 15:01
你使用(vla-StartUndoMark *DOC*)替代(command "_.undo" "be")试试

Vla函数不会用，直接替代的话出错 “函数中出错参数类型错误: VLA-OBJECT nil”

菜卷鱼

自贡黄明儒 发表于 2013-12-20 15:01
你使用(vla-StartUndoMark *DOC*)替代(command "_.undo" "be")试试

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93046
参考了您这个帖子里的vla-EndUndoMark用法，但是没有效果，还是出现很多“(LISP 表达式)”提示

自贡黄明儒

菜卷鱼 发表于 2013-12-20 17:13
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93046
参考了您这个帖子里的vla-EndUndoMark用法，但 ...

;;是不是这样的

1. (defun c:et ()
   
2.   (vl-load-com)
   
3.   (or *DOC*
   
4.       (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.   )
   
6.   (vla-StartUndoMark *DOC*)
   
7.   (setvar "cmdecho" 0)
   
8.   (setq ptlist1 nil)
   
9.   (setq ss (ssget '((0 . "INSERT"))))
   
10.   (setq ss0 (sort-se (sort-se ss 10 1 50 nil) 10 0 2 nil))
    
11.   (setq sct (sslength ss))
    
12.   (setq        x1 0
    
13.         x2 0
    
14.   )
    
15.   (setq        ss1 ss0
    
16.         ss2 ss0
    
17.   )
    
18.   (repeat sct
    
19.     (setq sent (entget (ssname ss1 x1)))
    
20.     (setq ascd10 (assoc 10 sent))
    
21.     (setq ptlist1 (cons ascd10 ptlist1))
    
22.     (setq x1 (1+ x1))
    
23.   )
    
24.   (etmove)
    
25.   (vla-EndUndoMark *DOC*)
    
26.   (princ)
    
27. )
    
28. (defun etmove ()
    
29.   (setvar "cmdecho" 0)
    
30.   (setq ptlist2 ptlist1)
    
31.   (repeat sct
    
32.     (setq acx10 (cdr (car ptlist2)))
    
33.     (setq ptlist2 (cdr ptlist2))
    
34.     (setq sn (ssname ss2 x2))
    
35.     (setq sent2 (entget sn))
    
36.     (setq acy10 (cdr (assoc 10 sent2)))
    
37.     (command "_move" sn "" acy10 acx10)
    
38.     (setq x2 (1+ x2))
    
39.   )
    
40.   (setvar "cmdecho" 1)
    
41. )

(defun c:et ()<br />   (vl-load-com)<br />   (or *DOC*<br />       (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   )<br />   (vla-StartUndoMark *DOC*)<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 />   (vla-EndUndoMark *DOC*)<br />   (princ)<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 /> )

菜卷鱼

自贡黄明儒 发表于 2013-12-21 08:08
;;是不是这样的

这样的话就不能一步返回