[讨论]：关于undo的两个问题

nore

本人在编程中遇到两个有关undo命令的问题：
1.有时需要在程序开始部分使用undo,begin，在结束部分使用undo,end来撤消整个命令的操作。问题在于：如果要使undo,begin不显示在命令行的话，必须将cmdecho设为0；而进行撤消后，程序是撤消到cmdecho设为0之后的，这样就更改了用户的cmdecho值，怎么能避免这种情况的发生？
2.程序中使用undo以返回某步的操作时，undo对鼠标中键的操作（如平移、缩放）是敏感的，有什么方法能监测到鼠标中键的使用？如同line命令中的undo一样

另外：本人在启动组加载的常用工具里使用autoload对一些其他工具进行了预加载，但CAD每次在启动时都提示autoload命令没定义，但在其的作用却有的，即使用那些命令却是可以的，这是什么原因？
我个人猜测是不是启动组中的文件比acad14.lsp加载得早？好象对启动组文件的加载顺序问题没什么地方提到过

lei_na521

好象没写完呀

nore

怎么没人来解决一下啊？
高手们都到哪里去了？

xyp1964

实例：
[php](defun c:test ()
  (setq ce (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (command ".undo" "BE")
  ……
  ……
  ……
  (command ".undo" "E")
  (setvar "CMDECHO" ce)
)[/php]

nore

斑竹，问题是如果在程序运行后undo的话，它就到了你程序的第四行了，在此之前已经将cmdecho设为0了，结果就是改变了用户的cmdecho值了

oyxx_1023

把(setvar "CMDECHO" ce) 写在(command ".undo" "E") 可不可以?
(defun c:test ()
  (setq ce (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (command ".undo" "BE")
  ……
  ……
  ……
  (setvar "CMDECHO" ce)
   (command ".undo" "E")

)

nore

大家还是没明白我的意思
以上为例：
(defun c:test ()
(setq ce (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command ".undo" "BE") <---------------
……
……
……
(setvar "CMDECHO" ce)
(command ".undo" "E")
)
如果用了undo，就将回到箭头的地方，而前面的(setvar "CMDECHO" 0) 已经改变了用户参数，这能避免吗？

doubao

最初由 oyxx_1023 发布
[B]把(setvar "CMDECHO" ce) 写在(command ".undo" "E") 可不可以?

这样为什么不行？

(defun c:test ()
(setq ce (getvar "CMDECHO"))
(command ".undo" "BE") <---------------
(setvar "CMDECHO" 0)
……
……
……
(setvar "CMDECHO" ce)
(command ".undo" "E")
)

e2002

使用vlax的方法:

1. 
   
2. (vlax-StartUndoMark oCurrentDoc)
   
3. (vlax-EndUndoMark oCurrentDoc)
   

复制代码

netbee

最初由 e2002 发布
[B]使用vlax的方法:

1. 
   
2. (vlax-StartUndoMark oCurrentDoc)
   
3. (vlax-EndUndoMark oCurrentDoc)
   

复制代码

[/B]

1. 
   
2. (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
   
3. (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
   

复制代码

啵浪鼓

可能需要利用出错处理啦