请问vlisp里有没有类似VB里的exit sub或exit for的流程控制语句

Taoyimaier

本人在编写vlisp程序时，有时候经常在循环体中进行判断，如果在判断中找到一个所
需要的东西，想跳出循环题，但一直没有找到这样的语句来实现，只好每次设置一个tag，要是有象vb里的exit for就好了，问一下大家，看大家是怎样处理这个问题的

龙龙仔

;;看懂就能用!!!!!!!!!
;;Tony Tanzillo wrote:
(defun BREAK-OUT-OF-LOOP (/ I)
  (vl-catch-all-apply
    '(lambda ()
       (setq I 0)
       (repeat 10000
         (if (eq 1000 (setq I (1+ I)))
           (exit)
         )
       )
     )
  )
  (princ "\nstill going...")
)

;; Tony Tanzillo
;; name is NOT case-senseitive
;; must include .dwg
;; Return: Document object if open, or NIL
(defun ISDOCOPEN (NAME / TEMP)
  (setq NAME (strcase NAME))
  (vl-catch-all-apply
    '(lambda ()
       (vlax-for DOC (vla-get-documents (vlax-get-acad-object))
         (if (eq NAME (strcase (vla-get-name DOC)))
           (progn (setq TEMP DOC) (exit))
         )
       )
     )
  )
  TEMP
)

Taoyimaier

不知道你为什么把代码写这么奇怪，我至少看了半小时以上，还不太透，
功力不够啊
你主要使用了两个函数，一个vl-catch-all-apply和exit其实你没有必要
让代码那么费解，可以写些你代码的目的，我到现在都不知道你代码的意义
所在，其中vl-catch-all-apply不会因出现错误而中止程序，而exit则是跳出循环的句子，第一个代码的目的我完全不懂，第二个好像是如果当前打开的是特定的文件名文件，则退出，但我想如果不是的话，不是照样退出吗，
？？？？只是temp的赋值不同而已

你只要给我回答说有跳出循环的的语句或者有中止程序的语句，就想vb离地
exit和end一样，然后告诉我相应的语句在vlisp里是exit就可以了，

秋枫

(exit)函数在lisp中是退出整个程序的，与你要求的退出sub或退出for有所不同，所以这里有必要用vl-catch-all-apply捕获这个异常，确保只是退出循环而不是中止程序。

建议你把所有的autolisp/vlisp的帮助通读一篇，可能有些问题就不是问题了。

Taoyimaier

你这样说就太清楚了，我一直看书都是看基础的，对于难的，比如那些vlisp扩展的，我一般没有，那个东西又多，相关书籍好的有少（没有），所以我是不会看得（还有你们这些高手现在成了一个我不看这些的更大原因了，呵呵），即使我看了，在实际工作作没有用到，也就会忘了，

没半法，人太懒了，呵呵，谢谢，真的谢谢