[求助]如何恢复被ESC中断的系统变量？

LUZUOJI

lisp程序的开始往往要改变系统变量，在程序结束前再恢复过来。但是，如果在程序执行过程中由于esc强行退出，则系统变量就无法恢复了。 我这里所说的“退出”是指在执行lisp语句时的强行退出，例如：
(setq p0 (getpoint "\n指定第一点："))
按ESC键强制退出。 请问，该如何解决？

meflying

自己定义*error*函数，按ESC时，系统会自动执行*error*函数 (defun err(msg)
(setvar "osmode" os);恢复系统的改变
(setq *error* errtmp);恢复原有*error*函数
) (defun myapp( / pt)
(setq errtmp *error*);保存原有*error*函数
(setq *error* err);使用自己错误处理函数
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq pt (getpoint "\nabc:"))
(setvar "osmode" os)
(setq *error* errtmp);恢复原有*error*函数
(princ)
)

LUZUOJI

谢谢版主，我对*error*函数的认识加深了。

669423907

是学习的好贴！

onestonest

又学了一招！非常实用