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

LUZUOJI · 发表于 2004-12-22 10:14:00

本帖最后由作者于 2004-12-22 11:39:17 编辑

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

meflying · 发表于 2004-12-22 12:26:00

自己定义*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 · 发表于 2004-12-22 13:50:00

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

669423907 · 发表于 2011-7-6 11:47:39

是学习的好贴！

onestonest · 发表于 2011-9-4 00:33:22

又学了一招！非常实用

账号		自动登录	找回密码
密码			注册