[LISP程序]：请教高手,怎样处理esc

sccat

我的程序在esc中断时要做一些收尾的处理工作,不知怎么办?

hyx_lyn

编程处理ESC，就是处理出错函数

看一下下面的程序

;;;在程序开始时定义出错函数
;;;可以在定义的出错函数中设置出错的提示比如：
;;;(if        (= msg "函数被取消")
;;;   (princ "\n你按了Esc键")
;;;)
;;;也可以用对话框来显示出错的提示比如：
;;;(setq en (getvar "errno"))
;;;(setq errmsg (strcat "ERRNO = "(itoa en) "\nError : " msg))
;;;(alert errmsg)
;;;在程序正常结束的地方恢复原来的出错函数
(defun c:name (/myerror)
  ;;定义出错函数
  (defun myerror (msg)
    (setvar "osmode" os)                ;恢复捕捉
;;;在这里可以加入你所要执行的程序
    (setq *error* olderr)                ;恢复原来的出错函数
    (princ)
  )
  ;;主程序部分
  (setq        olderr        *error*                        ;保存旧的
        *error*        myerror                        ;设置新的
  )

  (setq os (getvar "osmode"))                ;保存程序开始前的状态
  ;;其他代码
  ;;
  ;;
  ;;结束部分
  (setq *error* olderr)                        ;恢复原来的出错函数
(setvar "osmode" os)                ;恢复捕捉
)

sccat

多谢！成功了。