在 Forach Repeat 使用 Return 方法

st788796

在 C++ / Net  中循环函数 中满足条件时可以使用 return 返回满足条件的值，Autolisp 中 退出函数只有 exit / quit ，这两个函数是直接退出 Lisp 并返回 error ，如果使用 while 循环可以设定一个条件，满足时将这个条件 设 nil 从而退出 while 循环，但是在  foreach repeat 中则没有直接办法退出，必须便利完成，好在有了  vl-catch-all-error-p vl-catch-all-apply ，可以借助这两个函数实现退出循环的目的
看下面简单例子，设定循环次数，当 条件满足时秩序  exit , 因为使用了 vl-catch ，Lisp并不退出，仍旧会执行后面语句

1. (defun tt (/ n)
   
2.   (setq n 1)
   
3.   (vl-catch-all-error-p
   
4.     (vl-catch-all-apply
   
5.       'eval
   
6.       '((repeat
   
7.          100
   
8.          (if
   
9.           (= n 10)
   
10.           (exit)
    
11.          )
    
12.          (setq n (1+ n))
    
13.         )
    
14.        )
    
15.     )
    
16.   )
    
17.   n
    
18. )
    

(defun tt (/ n)<br />   (setq n 1)<br />   (vl-catch-all-error-p<br />     (vl-catch-all-apply<br />       'eval<br />       '((repeat<br />          100<br />          (if<br />           (= n 10)<br />           (exit)<br />          )<br />          (setq n (1+ n))<br />         )<br />        )<br />     )<br />   )<br />   n<br /> )<br />

/db_自贡黄明儒_

你的结论是啥子哟，一会说 vl-catch-all-error-p可以，一会说不可以？

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-11-15 11:43
你的结论是啥子哟，一会说 vl-catch-all-error-p可以，一会说不可以？

行与不行，一试便知