[LISP]如何设置undo步数？

lazybones · 发表于 2004-3-31 23:45:00

(defun c:3circle()
;位置1
(setq pre_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq i 1)
(command "undo" "be")
(repeat 3
(command ".circle" '(0 0 0) (* 10 i))
(setq i (1+ i))
)
(command "undo" "e")
(setvar "cmdecho" pre_cmdecho)
)
为了一次u能够取消绘制的三个圆，设置了undo的起点和终点，但是这样无法恢复系统变量cmdecho的值。如果将undo的起点移至位置1，则无法屏蔽(command "undo" "be")的回显，可以不使用undo命令而使用系统变量实现期望功能吗？或有其他解决方案吗？

无痕 · 发表于 2004-4-1 00:00:00

看看表的结构（。。。（。。。（。。。）。。。）。。。）
undo的位置也是一样的。在哪一环进，从哪一环出

lazybones · 发表于 2004-4-1 07:14:00

拜托无痕多解释几句嘛，不要惜字如金

BDYCAD · 发表于 2004-4-1 08:34:00

我這里調試時cmdecho的值是可以返回. 我就搞不明你的怎麼不返回了. 但你的程序最后那里應加上(princ)結束才完美點吧.

meflying · 发表于 2004-4-1 08:36:00

你把(setvar "cmdecho" 0)也包含在undo的标记之内不就可以了吗？

lazybones · 发表于 2004-4-1 20:12:00

meflying的办法无法屏蔽(command "undo" "be")的回显。
BDYCAD，我试了，一旦用户u，的确无法恢复cmdecho的原值。
有没有别的方法，只能使用(command "undo" ...)吗？有没有实现同样功能的系统变量？

lazybones · 发表于 2004-4-2 07:34:00

为了实现当用户u时可以撤销一组命令，有无其他方法呢？

meflying · 发表于 2004-4-2 08:29:00

其实我通过使用发现，这个变量其实不需要恢复，因为它不会影响平常的应用，而程序中如果要用它时，都会在程序中设定，，，
如果非要恢复，可以用ACTIVEX来设置
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-StartUndoMark doc)
...
(vla-EndUndoMark doc)