[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)

lazybones · 发表于 2004-4-2 10:32:00

收到

cjp_ccc · 发表于 2004-4-2 12:45:00

用vlax-add-cmd将你的程序加载到CAD的命令栈中不是很方便吗！

账号		自动登录	找回密码
密码			注册