关于repeat

wide · 发表于 2024-12-20 18:04:40

关于repeat运行次数的退出问题，比如下面是运行5次，当运行到2次的时候已经满足要求，这时怎么才能退出repeat循环呢？
（repeat 5
（）
（）

）

m809289064j · 发表于 2024-12-21 10:53:53

(defun tt1 (p1 lst)
      (setq m t)
               ;(defun tz () (setq m nil))
               (setq i 0 )
               (while m
                     (setq lst1 '())
                     (setq lst1 (nth i lst))
                     (setq lst1 (mapcar 'reverse  lst1))
                     (if (assoc p1 lst1)
                              (progn
                                       (setq i (1+ i))
                                       (setq m nil);(tz)
                              )
                     )
                     (setq i (1+ i))

      )
)

wide · 发表于 2024-12-20 19:01:08

飞雪神光发表于 2024-12-20 18:42
发代码看看 repeat不可中断必须执行完次数才可以想停止就只用while

(defun tt1 (p1 lst)
(setq m t)
(while m
(defun tz () (setq m nil))
(setq i 0 )
(repeat (length lst)
(setq lst1 '())
(setq lst1 (nth i lst))
(setq lst1 (mapcar 'reverse lst1))
(if (assoc p1 lst1)
(progn
(setq i (1+ i))
(tz)
)
)
(setq i (1+ i))
)
)
)

尘缘一生 · 发表于 2024-12-20 21:55:10

三领哪有个判定块内是否含有文字实体的

;;块内是否存在文字类实体-----(一级)----
(defun blkiftxt (bname / blk kua name1 tp loop k)
(setq kua (dxf1 bname 2) blk (tblobjname "Block" kua) loop t)
(while (and loop (setq name1 (entnext blk)))
(setq tp (dxf1 name1 0))
(cond
((member tp '("TEXT" "MTEXT" "TCH_TEXT" "TCH_MTEXT" "DIMENSION"))
(setq k t loop nil)
)
((= tp "INSERT")
(setq k (blkiftxt name1))
)
)
(setq blk name1)
)
k
)

你有种再说一遍 · 发表于 2024-12-20 18:12:58

Lisp就是空循环就行了.
想要break就用C#或者C++吧

m809289064j · 发表于 2024-12-20 18:14:28

用WHILE函数，达到要求，退出循环

wide · 发表于 2024-12-20 18:20:16

m809289064j 发表于 2024-12-20 18:14
用WHILE函数，达到要求，退出循环

我为了跳出repeat循环，做的就是repeat 套在while里，当repeat运行满足时设置一个跳转函数，这个跳转函数就是设置一个nil，跳出while，不管用，还是运行那么多次。

qazxswk · 发表于 2024-12-20 18:30:30

用repeat循环，一般不会用具体的数字去做循环次数，我一般都是用(sslength ss)的方式确定环次数。当然，具体问题，具体分析。

你有种再说一遍 · 发表于 2024-12-20 18:37:08

wide 发表于 2024-12-20 18:20
我为了跳出repeat循环，做的就是repeat 套在while里，当repeat运行满足时设置一个跳转函数，这个跳转函数 ...

最小化demo看看

飞雪神光 · 发表于 2024-12-20 18:42:47

发代码看看 repeat不可中断必须执行完次数才可以想停止就只用while

飞雪神光 · 发表于 2024-12-20 20:15:33

wide 发表于 2024-12-20 19:01
(defun tt1 (p1 lst)
(setq m t)
(while m

(defun tt1 (p1 lst)
(setq lst1 '())
(while (null (assoc p1 lst1))
(setq lst1 '())
(setq lst1 (nth i lst))
(setq lst1 (mapcar 'reverse lst1))
)
)

wide · 发表于 2024-12-20 20:40:25

本帖最后由 wide 于 2024-12-20 20:46 编辑

楼上的（nth i lst）中的 i 没起作用。

账号		自动登录	找回密码
密码			注册

[讨论] 关于repeat

点评