下面这段是飞哥贴过的一段,你参考一下:
(defun myerror() (command) (command "_undo" "e") (setvar "osmode" oldosmode) ;;;;oldosmode为先前获得的osmode的值 (setq *error* olderror);;;;olderror也是 )
;主函数,两个变量必须作为全局变量 (defun test() (setq oldosmode (getvar "osmode")) (setq olderror *error*) (setq *error* myerror) (command "_.undo" "be") ...... ...... ;主函数中各个参数也需要恢复 (command) (command "_undo" "e") (setvar "osmode" oldosmode) ;;;;oldosmode为先前获得的osmode的值 (setq *error* olderror);;;;olderror也是 (princ) )
|