一个undo的问题请教

laihuarong

为啥undo后, cmdecho 变为0呢? 程序执行前cmdecho是1
(setq cmd (getvar "cmdecho"))
(setvar 'cmdecho 0)
(command "_.undo" "be")
(command ............)
(command ............)
(command "_.undo" "e")
(setvar "cmdecho" cmd)

应该是要把(command "_.undo" "be") 放在前面 , 可是这样, 这句的回显就会出来 , 有什么好的窍门?

edata

cmdecho其实不重要，他基本上只有command函数有效，只要你确认在调用command的时候是关掉的，就可以了，也不影响你的命令行。是吧。
其实这个想不出现这样的逻辑问题，就考虑用vla函数

1. (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
   
2. (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3. (if (= 8 (logand 8 (getvar 'UNDOCTL)))
   
4.       (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.       )

(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> (if (= 8 (logand 8 (getvar 'UNDOCTL)))<br />       (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))<br />       )

laihuarong

edata 发表于 2015-9-5 17:33
cmdecho其实不重要，他基本上只有command函数有效，只要你确认在调用command的时候是关掉的，就可以了，也不 ...

谢谢edata大师， 请问(= 8 (logand 8 (getvar 'UNDOCTL))) 这一句是干什么的呢？

edata

'UNDOCTL 是undo编组状态系统变量，
(logand 8 (getvar 'UNDOCTL))判断变量是否含有8的值。
如果有=8则 表示  一个编组处于当前活动状态 即：undo没有结束。
关于UNDOCTL
UNDOCTL 概念   操作步骤   快速参考  




（只读）类型: 整数
保存位置: 未保存
初始值: 21

指示 UNDO 命令的“自动”、“控制”和“编组”选项的状态。系统将使用下列位码值之和将该设置存储为一个位码：

0
UNDO 关闭

1
UNDO 打开

2
只能放弃一条命令

4
打开“自动”

8
一个编组处于当前活动状态

16
将缩放和平移操作编组为单个操作

laihuarong

edata 发表于 2015-9-5 18:49
'UNDOCTL 是undo编组状态系统变量，
(logand 8 (getvar 'UNDOCTL))判断变量是否含有8的值。
如果有=8则 表 ...

谢谢,受教了!