这个错误函数出错是怎么回事？

qq1846687144

1. (defun c:te ()  (setq *error*_bak *error*)
   
2.   (setq *error* *error*_non)
   
3.   (tt)
   
4. )
   
5. 
   
6. (defun tt ()
   
7.   (setq *error* *error*_non)
   
8.   (getpoint "选点")
   
9. )
   
10. 
    
11. (defun *error*_non (msg)
    
12.   (tt)
    
13.   (setq *error* *error*_bak)
    
14. )

(defun c:te ()  (setq *error*_bak *error*)<br />   (setq *error* *error*_non)<br />   (tt)<br /> )<br /> <br /> (defun tt ()<br />   (setq *error* *error*_non)<br />   (getpoint "选点")<br /> )<br /> <br /> (defun *error*_non (msg)<br />   (tt)<br />   (setq *error* *error*_bak)<br /> )

我最初的想法是：就算按esc取消，也不断重复选点这个过程，直到选点完成，但是用上面的方法，按一次esc时，能继续执行选点，但是按第二次esc时，提示*error* 函数中出错函数被取消

qq1846687144

求大神讲解一下，感激不尽！！！

Lisphk

在错误函数处理里面，再定义错误函数应该是没用的。

qq1846687144

Lisphk 发表于 2016-9-25 10:12

谢谢大大，那有什么办法可以实现按esc不是直接退出，而是继续执行选点这个过程？

Lisphk

qq1846687144 发表于 2016-9-25 10:19

ESC就是一个错误机制，

你想想 用户为什么费很大劲去左上角 按那个 ESC 键呢 ？ 他有需求吗，他想要你确不给他，他就找别人了。

qq1846687144

Lisphk 发表于 2016-9-25 10:23

也对额！不纠结这个鬼了！

iLisp

用 while + vl-catch-all-error-p

qq1846687144

iLisp 发表于 2016-9-25 13:55

感谢大大，我试试！