写给新手的while循环,欢迎高手继续完善~~~

77077

本人也是新手,来这里做点学习笔记~
前段时间有人问循环问题,这里我发一个while循环,欢迎大家一起来讨论,也不知道我这样说,算说清楚了没!!

2. 
   
3. (defun c:tt( / 循环标记 en)
   
4. (setq 循环标记 T);程序开始时,咱暂时假定需要循环
   
5. (while 循环标记  ;循环标记为T,执行以下代码
   
6.    (if (setq en (entsel "\n点选物件"))
   
7.        (progn   ;选到物件时,执行
   
8.           (princ (entget(car en)));举例:输出DXF
   
9.           ;还有其它要说的,在这里添加即可
   
10.         )
    
11.      (setq 循环标记 nil);没选到物体时,设定循环标记为nil,退出循环
    
12.    )
    
13. )
    
14. )
    

<br /> (defun c:tt( / 循环标记 en)<br /> (setq 循环标记 T);程序开始时,咱暂时假定需要循环<br /> (while 循环标记  ;循环标记为T,执行以下代码<br />    (if (setq en (entsel "\n点选物件"))<br />        (progn   ;选到物件时,执行<br />           (princ (entget(car en)));举例:输出DXF<br />           ;还有其它要说的,在这里添加即可<br />         )<br />      (setq 循环标记 nil);没选到物体时,设定循环标记为nil,退出循环<br />    )<br /> )<br /> )<br />

langjs

可以精简一下实现同样功能
(defun c:tt ( / en)
  (while (not (setq en (entsel "\n点选物件"))))
  (entget (car en))
)

77077

是啊,梁大师这个减少了很多不必要的运算,速度应该提升不少~~~多谢
不过大师,没循环起来啊~~

llsheng_73

(while(setq en(car(entsel "\n点选物件")))
    (princ(entget en))
  )

其实楼主对while的解释相当准确，只是while它本身会先对循环条件进行检查，所以有时可以利用这点去掉多余的if条件判断

langjs

while并不特殊，后边可跟and,or甚至progn,自定义函数都行，只要最后结果能判断真假就成。据说while没有repeat执行速度快。

77077

llsheng_73 发表于 2014-7-21 11:49
(while(setq en(car(entsel "\n点选物件")))
    (princ(entget en))
  )

没办法啊,新手只能按照字面意思来做程序~~

llsheng_73

langjs 发表于 2014-7-21 12:40
while并不特殊，后边可跟and,or甚至progn,自定义函数都行，只要最后结果能判断真假就成。据说while没有repe ...

按道理来说应该没有repeat快，因为while它会每次对循环条件进行检查，而repeat只需要一个计数器进行次数计算，不过一般情况下用不着考虑这点差别
但是repeat对于循环次数不能超过所以表示的最大整数(比如32位下不能超过2的31次方减去1  : 2147483647)

(repeat 2147483648 t)
; 错误: 参数类型错误: fixnump: 2.14748e+009

xyp1964

太复杂了

2. (defun c:tt ()
   
3.   (while (setq en (entsel "\n点选物件: "))
   
4.     (princ (entget (car en)))
   
5.   )
   
6.   (princ)
   
7. )

(defun c:tt ()<br />   (while (setq en (entsel "\n点选物件: "))<br />     (princ (entget (car en)))<br />   )<br />   (princ)<br /> )

nzl1116

llsheng_73 发表于 2014-7-21 13:20
按道理来说应该没有repeat快，因为while它会每次对循环条件进行检查，而repeat只需要一个计数器进行次数 ...

repeat照样对条件进行检查，只不过一个是我们写的lsp表达式，一个是CAD自动添加的表达式。

恕放之生命

学习一下。