请问如何将多个执行步骤合并为一个。

matichen

就是LISP通常会执行多个命令，一步一步批处理执行，UNDO的时候就要一下一下地回，能不能让它的多个步骤合并为一个。一次UNDO就可以返回。谢谢！

yxp

 

undo 有个参数，你用"BE" 参数开始 "B"  参数结束就行了

 (command "undo" "be")
.......................
 (command "undo" "e")

matichen

谢谢，但我不是要在程序里回退，是执行完后又画了几笔后发现不合适，UNDO命令回去的时候，会一步一步重现程序里的步凑。我希望CAD能把LISP里的命令认为是一个不可分割的部分，用一次"U"就可以回完。

 

请知道的朋友帮帮忙。

ZZXXQQ

matichen发表于2006-11-25 13:43:00 谢谢，但我不是要在程序里回退，是执行完后又画了几笔后发现不合适，UNDO命令回去的时候，会一步一步重现程序里的步凑。我希望CAD能把LISP里的命令认为是一个...

用二楼的方法就能满足楼主的要求呀。只要在程序开头写上

(COMMAND "UNDO" "BE")

在程序未尾写上

(COMMAND "UNDO" "E")

就行了。