如何进行错误处理?

trueman

    为了操作时返回方便,我通常在程序中加入

     (command "undo" "be")

   和

     (command "undo"  "e").但如果程序在运行过程中中断,就要特别运行一下undo命令undo命令才能用.

       请教各路英雄如何进行这种类型的错误处理

HuaiYu

大不了自定义*error*函数

trueman

    能不能来个例子啊,谢谢了

bobby

看看下面的程序是否是你想要的。

(defun c:mal ()
  (defun BZERR (st)
    (command "undo" "")
    (setq *error* olderr)
    (princ)
  )
  (setq olderr *error*
 *error* BZERR
        oldcmd (getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (while (and (setq pt1 (getpoint "\nFirst point:"))
              (setq pt2 (getpoint pt1 "\nSecond point:"))
         )
  (command "line" pt1 pt2 "")
  )
  (command "undo"  "e")
  (setq *error* olderr)
  (setvar "cmdecho" oldcmd)
  (princ)
)

trueman

     楼上的还是不错,但我希望是按ESC键后要自动运行的程序,而不需要专门重新输入命令才能恢复系统变量

bobby

将你需要恢复的系统变量加到错误处理函数中就好了。