发一个跳出while循环的另类用法，各位大能们发挥镶套多循环的用法

技术工作室

• 
  

一个跳出while循环的另类用法，各位大能们写出更多镶套循环的用法；

飞雪神光

1. (defun c:tt()
   
2.         (while (setq str3 (car (entsel "\n<请选择图元>:")))
   
3.                 (setq st(cdr (assoc 1 (entget str3))))
   
4.                 (princ "\n程序继续:")
   
5.         )
   
6.         (princ "\n已退出循环！")
   
7.         (princ)
   
8. )

(defun c:tt()<br />         (while (setq str3 (car (entsel "\n<请选择图元>:")))<br />                 (setq st(cdr (assoc 1 (entget str3))))<br />                 (princ "\n程序继续:")<br />         )<br />         (princ "\n已退出循环！")<br />         (princ)<br /> )

masterlong

我就想知道楼主眼中的不另类的代码是啥样的   

zxh92

6666666666

cghdy

没懂怎么个另类法

技术工作室

飞雪神光 发表于 2023-10-18 19:59

谢谢你的回复，我想的是这样：
(defun c:tt()
                  (setq DM 1
         DM 2
         DM 3
   )
   (while (OR (= DM 1)(= DM 2)(= DM 3))
        (while (setq str3 (car (entsel "\n<请选择图元>:")))
                (setq st(cdr (assoc 1 (entget str3))))
                (princ "\n程序继续执行其它命令:")
        )
                           (princ "\n程序再继续执行代码命令===>:")
                )
        (princ "\n已退出循环！继续执行代码");现需要的是在途中任意退出能执行这里的代码？
        (princ)
)