关于 Repeat 次数变量

Free-Lancer

看一个例子

1. (setq i 5)
   
2. (repeat   i
   
3.   (setq l (cons (setq i (1- i)) l))
   
4. )
   

(setq i 5)<br /> (repeat   i<br />   (setq l (cons (setq i (1- i)) l))<br /> )<br />

运行结果
_$ (setq i 5)
5
_$ (repeat i (setq l (cons (setq i (1- i)) l)))
(0 1 2 3 4)
_$ i
0

大概只有 repeat 用到的这个变量是固定的，循环体内变量的变化不影响 repeat

/db_自贡黄明儒_

这就是与whi|e的不同，while每循环一次都要检查一下后面是T. or. nil，总是要花时间的吧

newer

是的，repeat 时候，次数就固定了，否则里面修改循环控制变量，那程序就乱了。

Lisper

正因为如此，选择集转表才可以这样写：

1. (defun ss->lst (ss / l)
   
2.   (if ss
   
3.     (repeat (setq n (sslength ss))
   
4.       (setq l (cons (ssname ss (setq n (1- n))) l))
   
5.     )
   
6.   )
   
7. )

(defun ss->lst (ss / l)<br />   (if ss<br />     (repeat (setq n (sslength ss))<br />       (setq l (cons (ssname ss (setq n (1- n))) l))<br />     )<br />   )<br /> )

炫翔

{:soso_e100:}
个人测试，就算WHILE循环也比repeat快

1. (defun c:xx ( / t1 t2 SS)
   
2.   (get-utime)
   
3.   (SETQ SS(ssget))
   
4.   (setq t1 (get-utime))
   
5.   (ss->lst SS)
   
6.   (setq t2 (get-utime))
   
7.   (PRINC (strcat "用时:" (rtos (- t2 t1) 2 5) "秒"))
   
8. )
   
9. 
   
10. (defun ss->lst (ss / l)
    
11.   (repeat (setq n (sslength ss))
    
12.      (setq l (cons (ssname ss (setq n (1- n))) l))
    
13.   )
    
14. )
    
15. 
    
16. (defun ss->lst (ss / e el i)
    
17.   (setq i (sslength ss))
    
18.   (while (setq e (ssname ss (setq i (1- i))))
    
19.     (setq el (cons e el))
    
20.   )
    
21.   el
    
22. )
    
23. 
    
24. (defun get-utime ()
    
25.   (* 86400.0 (getvar "tdusrtimer"))
    
26. )
    

(defun c:xx ( / t1 t2 SS)<br />   (get-utime)<br />   (SETQ SS(ssget))<br />   (setq t1 (get-utime))<br />   (ss->lst SS)<br />   (setq t2 (get-utime))<br />   (PRINC (strcat "用时:" (rtos (- t2 t1) 2 5) "秒"))<br /> )<br /> <br /> (defun ss->lst (ss / l)<br />   (repeat (setq n (sslength ss))<br />      (setq l (cons (ssname ss (setq n (1- n))) l))<br />   )<br /> )<br /> <br /> (defun ss->lst (ss / e el i)<br />   (setq i (sslength ss))<br />   (while (setq e (ssname ss (setq i (1- i))))<br />     (setq el (cons e el))<br />   )<br />   el<br /> )<br /> <br /> (defun get-utime ()<br />   (* 86400.0 (getvar "tdusrtimer"))<br /> )<br />

newer

炫翔 发表于 2014-10-23 09:50
个人测试，就算WHILE循环也比repeat快

把结果也贴出来啊，炫版

炫翔

newer 发表于 2014-10-23 10:34
把结果也贴出来啊，炫版

每个人的电脑配置不同,用时不同
我这里测试:
10万多个图元，测试结果while比repeat快0.3秒

/db_自贡黄明儒_

炫翔 发表于 2014-10-23 11:33
每个人的电脑配置不同,用时不同
我这里测试:
10万多个图元，测试结果while比repeat快0.3秒

这个结果与我想象的不一样，看来今后多用while,少用repeat
用repeat还有一个问题是:如果循环内的SS少了的话，会出问题

XDSoft

炫翔 发表于 2014-10-23 11:33
每个人的电脑配置不同,用时不同
我这里测试:
10万多个图元，测试结果while比repeat快0.3秒

测试几十次，取个平均值，在比较下看看，把结果告诉大家。

炫翔

XDSoft 发表于 2014-10-23 12:35
测试几十次，取个平均值，在比较下看看，把结果告诉大家。

{:soso_e113:}老大太较真了，
我这里只是测试选择集转图元,差异不大，详细结果没必要太较真

主要看用途
  while 只是判断T
一般这样用
   (setq n t)
   (while n
      .......
       (IF (> I 100000)           (setq n nil))
    )

炫翔

数据不大的情况,哪个顺手方便用哪个:)

高山流水

对比过编译后的吗？
在WIN7 64位 CAD2011 编译后比较 效率优劣：Foreach -> repeat -> while

hjting

都是神人那

Free-Lancer

高山流水 发表于 2014-10-23 20:41
对比过编译后的吗？
在WIN7 64位 CAD2011 编译后比较 效率优劣：Foreach -> repeat -> while

不知道autodesk这个repeat是哪种方式，只知道c++中遍历无怪乎for … 、foreach、while

qhdycm2016

我喜欢用repeat while搞不好就进入死循环