[求助]自己编了个小命令，使用后再撤销掉，发现不能一次性撤销掉，求教(已解决）

woshiganlian

如题，本人编了个小程序，命名为qsw，主要功能：给多段线的每个顶点按顺序编号后，将顶点坐标输入到表格中。使用后发现一个问题：如果使用撤销命令撤销qsw，不能一次性把qsw撤销完毕，一次只能撤销qsw命令中的一个步骤。如果多段线顶点越多，那要撤销的步骤也越多。本人希望点击一次撤销命令就把一次性把qsw撤销完，希望高人指教。

如果谁能把这个问题解决，作为回报，我提供给他源代码，因为此命令可以正常使用，就是不好撤销，本人希望把它更完善。附效果图如下：

xianaihua

这样就可以解决你的问题

2. (setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
3. (vla-EndUndoMark ActDoc)
4. (vla-StartUndoMark ActDoc)
5. .......
6. (......);你的中间过程
7. ........
8. (vla-EndUndoMark ActDoc)

(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object))) (vla-EndUndoMark ActDoc) (vla-StartUndoMark ActDoc) ....... (......);你的中间过程 ........ (vla-EndUndoMark ActDoc)

英雄无敌

简单点就用COMMAND

在开始时用：

（command"undo" "BE")

......

(command"undo" "e")