在程序中至少一定要加一个"COMMAND"命令吗?

hkzwsy

(defun c:test( / enta R)
(setq enta(entget(car(entsel "\n选择对象:")))) (command """) ;如果不加command恢复时就会恢复多一步.这是怎么回事? (if(= "CIRCLE" (cdr(assoc 0 enta)))
(progn
(setq R(cdr(assoc 40 enta)))
(setq enta(subst(cons 40 20)(assoc 40 enta)enta))
(entmod enta)
)
)
(princ)
)

wbrwbr2004

我成功运行，请再试 (defun c:test( / enta R)
(setq enta (entget(car(entsel "\n选择对象:"))))
(if (= "CIRCLE" (cdr(assoc 0 enta)))
(progn
(setq R(cdr(assoc 40 enta)))
(setq enta(subst(cons 40 20)(assoc 40 enta)enta))
(entmod enta)
)
)
(princ)
)

hkzwsy

程序当然没问题!


                                                         只是成功运行后用 "U" 命令恢复原来的图形,却恢复到上上一步.如果加入command 命令就不会出现此问题,请问不用在程序中加入command 命令能解决吗?

aeo000000

use" undo"

无痕

(vl-cmdf ".undo" "be")....(vl-cmdf ".undo" "e")


vla-startundomark


vla-endundomark

wbrwbr2004

就算加了command也没用吧，比如我加载你的程序后，先画一个圆，再画一条直线，（不做其他操作），命令行输入命令test回车，选圆，圆直径变化，紧跟着输入u，圆恢复原直径，但直线也没了！如果说只恢复到上步，直线应该还在。