[求助]：autolisp程序运行问题

gxynd

在调用autolisp程序之后，运行其命令，发现如果我想用undo返回，则需一步一步地针对命令串顺序返回，十分麻烦，我知道这肯定是哪一步没有设置导致的结果，但我却想不出该如何设置，望兄台指点指点，帮小弟渡过难关，谢谢。

sdwy19691229

删除带颜色图元
(defun C:D1 (/ m A M)
             (setq m:err *error* *error* *merr*)
             (setvar "cmdecho" 0)
             (command "UNDO" "G")
             (prompt "选择图形")
             (setq A (ssget '((62 . 1)) ))
             (if (/= A nil)(progn
             (setq M (sslength A))
             (command "erase" A "")
             (princ "\n共删除红色图元<")(princ M)(princ ">个")
             ))
             (command "UNDO" "E")  
             (princ)  )  

请看看，也许对你有帮助。

xyp1964

楼上：(command "UNDO" "G")的“G”选项不知是什么。
通常形式：
(command "UNDO" "BE");回退开始
……
……
(command "UNDO" "E");回退结束

fools

同意三楼的意见，不知道为什么大家很喜欢用：(command "UNDO" "G")
autolisp提供的标准组合是：(command "UNDO" "BE")-----(command "UNDO" "E")
和：(command "UNDO" "M")------(command "UNDO" "B")
G选项是否有特殊用途？帮助里查不到，请高手指点。

它山之石

最初由 fools 发布
[B]同意三楼的意见，不知道为什么大家很喜欢用：(command "UNDO" "G")
autolisp提供的标准组合是：(command "UNDO" "BE")-----(command "UNDO" "E")
和：(command "UNDO" "M")------(command "UNDO" "B")
G选项是否?.. [/B]

　　用“G”选项不知是否是因为在程序运行后用“UNDO”命令回退时，在命令行显示的是　　命令: _u GROUP