请教大神，如何过关斩将怎样才能执行到最后

lgx9612

(defun c:aa()
;;;如何过关斩将怎样才能执行到最后
;;;可以执行到最后(princ "=3=>")吗
(defun er1(/ *error*)
(defun *error* (msg)
(princ "错误1处\n")
)
(setvar "CLAYER" nil)
)
(defun er2(/ *error*)
(defun *error* (msg)
(princ "错误2处\n")
)
(setvar "CLAYER" nil)
)
(defun er3(/ *error*)
(defun *error* (msg)
(princ "错误3处\n")
)
(setvar "CLAYER" nil)
)
(princ "=0=>")
(er1)
(princ "=1=>")
(er2)
(princ "=2=>")
(er3)
(princ "=3=>")
)

Lisphk

(defun c:aa ()
;;;如何过关斩将怎样才能执行到最后
;;;可以执行到最后(princ "=3=>")吗
  (defun er1 (/ *error*)
    (defun *error* (msg)
      (princ "错误1处\n")
    )
    (VL-CATCH-ALL-APPLY 'setvar (list "CLAYER" nil))
  )
  (defun er2 (/ *error*)
    (defun *error* (msg)
      (princ "错误2处\n")
    )
    (VL-CATCH-ALL-APPLY 'setvar (list "CLAYER" nil))
  )
  (defun er3 (/ *error*)
    (defun *error* (msg)
      (princ "错误3处\n")
    )
    (VL-CATCH-ALL-APPLY 'setvar (list "CLAYER" nil))
  )
  (princ "=0=>")
  (er1)
  (princ "=1=>")
  (er2)
  (princ "=2=>")
  (er3)
  (princ "=3=>")
  (princ)
)

命令: aa
=0=>=1=>=2=>=3=>

lgx9612

Lisphk 发表于 2016-11-20 15:32

谢谢大神赐教,可以让子程式的错误程式也执行返回再进入下一个语句继续执行吗？

newer

lgx9612 发表于 2016-11-20 18:45

很奇怪你要写这种程序结构，有什么考虑吗？

vl-catch-all-apply 是绕过出错机制让程序继续运行的一种机制，你可以通过vl-catch-all-error-p来判断程序往哪里执行，你非要进入错误处理，进去了，就出不来了。错误函数处理完就(exit)了。

lgx9612

lgx9612 发表于 2016-11-20 18:45

谢大师赐教

lgx9612

(defun c:aa()
(defun rong_pro()
(setvar "CLAYER" nil)
)
(defun er1(/ *error_prc*)
(defun *error_prc*()
(princ "错误1处\n")
)
(if (vl-catch-all-error-p (vl-catch-all-apply 'rong_pro (list nil)))
(*error_prc*)
)
)
(defun er2(/ *error_prc*)
(defun *error_prc*()
(princ "错误2处\n")
)
(if (vl-catch-all-error-p (vl-catch-all-apply 'rong_pro (list nil)))
(*error_prc*)
)
)
(defun er3(/ *error_prc*)
(defun *error_prc*()
(princ "错误3处\n")
)
(if (vl-catch-all-error-p (vl-catch-all-apply 'rong_pro (list nil)))
(*error_prc*)
)
)
(princ "=0=>")
(er1)
(princ "=1=>")
(er2)
(princ "=2=>")
(er3)
(princ "=3=>")
(princ)
)


可以了