[求助]：能不能在按下ESC键以后调用出错处理函数

xiaping

编程中自定义了出错处理函数，以方便在程序出错或中断时将一下系统变量恢复到初始状态。可是当按下ESC键中断时，程序并不进入出错处理函数，而是自动退出导致一些程序运行中更改的系统变量无法恢复。请问有没有办法在按下ESC键退出时也进入自定义出错处理函数。
    请各位高手不吝赐教。

lijiao

按下ESC键退出时，已经进入了出错处理程序，但人们在按下ESC键时，常常是按住ＥＳＣ不松手，使得出错处理程序也被中断．我们能做的是尽量缩短出错处理程序，减少处理时间，以免出错处理程序被中断．

xiaping

谢谢版主回复，但是试了一下无论ESC点击时间再短。程序都直接退出。还是无法执行出错处理程序。不知何故。在出错函数第一语句处设置断点进行调试时，也无法看到出错函数响应的痕迹，似乎按下ESC以后程序并没有进入出错处理函数。真是有点让人费解。不知道ESC响应时间在系统里能不能调整一下？

x99

你的*error*函数可能有问题，试一下下面这个：
(defun *error* (msg)
(if
  (or
    (= msg "函数被取消")
    (= msg "quit / exit abort")
  )
    (progn
        (if (/= eh nil)
              (setvar "cmdecho" eh)
        )
        (if (/= picks nil)
             (setvar "pickstyle" picks)
       )
    (princ)
)
  (princ (strcat "\n错误: " msg))
)

)

这时eh和picks就是你前面保存的变量原值。

lijiao

应该是出错处理程序有问题，还有就是出错处理程序是否已经加载？