[原创]On Error Resume Next 的Lisp方法--出错继续的另类方法

nonsmall

萝卜的思路正确

ghgh0130

好思路，学习。

zjxsky

还不是很理解楼上几位高手的思路。
ESC多按几次,连自定义的出错函数myerr也会被中断,这样就无法达到恢复原始状态的效果。

我的源程序如下：
(defun myerr (errmsg)
    (setvar "osmode" old_os)
    (setvar "cmdecho" old_echo)
    (setvar "clayer" old_lay)
    (command "_.undo" "_end")
    (command "_.undo" "")
    (setq *error* old_err)
    (princ (strcat "\n出现的错误:"
                   errmsg
                   "已经回归."
           )
    )
    (princ)
  )
  (defun funstart ()
    (setq old_echo (getvar "cmdecho"))
    (setq old_os (getvar "osmode"))
    (setq old_lay (getvar "clayer"))
    (setq old_err *error*)
    (setq *error* myerr_dr)
    (command "_.undo" "_begin")
    (setvar "cmdecho" 0)
    (setvar "osmode" 0)
  )
  (defun funend ()
    (setvar "osmode" old_os)
    (setvar "cmdecho" old_echo)
    (setvar "clayer" old_lay)
    (setq *error* old) ;;;设置自定义出错函数。
    (command "_.undo" "_end")
    (princ)
  )

如果给函数myerr加上后如下面函数myerr2，多按几次ESC还是中断，没办法执行到回到初始状态。
请问如何解决呢？

(defun myerr2 (errmsg)
  (vl-catch-all-error-p
    (vl-catch-all-apply
      '(lambda ()
         (setvar "osmode" old_os)
         (setvar "cmdecho" old_echo)
         (setvar "clayer" old_lay)

       )
    )
  )
  (command "_.undo" "_end")
  (command "_.undo" "")
  (setq *error* old_err)
  (princ (strcat "\n出现的错误:"
                 errmsg
                 "已经回归."
         )
  )
  (princ)
)

alwtyp

这个要好好学习.我的程序老是在按ESC时把CAD给搞崩溃了

zdqwy19

确实lisp程序调试太繁琐了