当按下键盘上的"ESC"退出程序时,任何恢复系统变量?

wdb · 发表于 2003-7-30 05:01:00

程序没运行完,如果按下键盘上的"ESC"退出程序时,任何恢复系统变量?
(defun c:try (/ ap p)
  (setq ap (getvar "APBOX"))
  (setvar "APBOX" 1)
  (setq p (getpoint ""))
;处理代码
  (setvar "APBOX" ap)
)

xazhji · 发表于 2003-7-30 09:03:00

用 *error* 函数！

meflying · 发表于 2003-7-30 09:11:00

(defun *error*(msg)
  (setvar "apbox" ap)
)
(defun c:try (/ p)
  (setq ap (getvar "APBOX"))
  (setvar "APBOX" 1)
  (setq b (getvar "apbox"))
  (setq p (getpoint))
;处理代码
  (setvar "APBOX" ap)
)

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