技术工作室 发表于 2023-10-18 19:45:45

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


[*]

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

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

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

masterlong 发表于 2023-10-18 20:17:40

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

zxh92 发表于 2023-10-18 20:41:40

6666666666

cghdy 发表于 2023-10-19 08:57:56

没懂怎么个另类法

技术工作室 发表于 2023-10-19 09:36:41

飞雪神光 发表于 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)
)
页: [1]
查看完整版本: 发一个跳出while循环的另类用法，各位大能们发挥镶套多循环的用法