[求助]：关于循环问题

yaker_77

谁帮我看看这个程序
while循环后就不执行后面的语句了，不知为什么
我只好把这些语句放到循环语句里面，就出现了每输入一段距离，文本就更新一次
实际我需要的是选择全部的距离后，汇兑长度最后更新一次



(defun C:CS(/ ss ent  zl   p1  d p2)

;;获取第一个文本
    (setq ss (ssget))
    (setq ENT (entget (ssname SS 0))
          STR (cdr (assoc 1 ENT))
    )
;;连接后面的文本
    (if (setq ZL (getdist "\n点取总跨度"))
        (progn
            (setq STR (strcat STR " [ZL]" (RTOS ZL 2 0)))
        )
    )

    (setq JL 0)
    (setq p1 (getdist "\n点取第一段距离"))
    (setq JL (+ JL p1))

    (setq d "T")
    (while d
        (setq p2 (getdist "\n点取下一段距离"))
        (if (= p2 "")(setq d nil))
            
        (setq STR (strcat STR " [JL]" (RTOS JL 2 0)))
        (setq ENT (entget (ssname SS 0)))
        (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))
        (entmod ENT)
        (setq JL (+ JL p2))
    )
  
)

Underway

2. 
   
3. ;|
   
4. 谁帮我看看这个程序
   
5. while循环后就不执行后面的语句了，不知为什么
   
6. 我只好把这些语句放到循环语句里面，就出现了每输入一段距离，文本就更新一次
   
7. 实际我需要的是选择全部的距离后，汇兑长度最后更新一次
   
8. |;
   
9. 
   
10. 
    
11. (defun C:CS (/ ss ent zl p1 d p2)
    
12. 
    
13.   ;;获取第一个文本
    
14.   (setq ss (ssget))
    
15.   (setq ENT (entget (ssname SS 0))
    
16.         STR (cdr (assoc 1 ENT))
    
17.   )
    
18.   ;;连接后面的文本
    
19.   (if (setq ZL (getdist "\n点取总跨度"))
    
20.     ;; (progn
    
21.       (setq STR (strcat STR " [ZL]" (RTOS ZL 2 0)))
    
22.     ;; )
    
23.   )
    
24. 
    
25.   (setq JL 0)
    
26.   (setq p1 (getdist "\n点取第一段距离"))
    
27.   (setq JL (+ JL p1))
    
28. 
    
29.   (setq i 1)
    
30.   (while (setq p2 (getdist "\n点取下一段距离"))
    
31.     (setq STR (strcat STR " [JL]" (RTOS JL 2 0)))
    
32.     (setq ENT (entget (ssname SS i)))        ; 此处 ent 改为递增
    
33.     (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))
    
34.     (entmod ENT)
    
35.     (setq JL (+ JL p2))
    
36.     (setq i (1+ i))
    
37.   )
    
38. )
    

<br /> ;|<br /> 谁帮我看看这个程序<br /> while循环后就不执行后面的语句了，不知为什么<br /> 我只好把这些语句放到循环语句里面，就出现了每输入一段距离，文本就更新一次<br /> 实际我需要的是选择全部的距离后，汇兑长度最后更新一次<br /> |;<br /> <br /> <br /> (defun C:CS (/ ss ent zl p1 d p2)<br /> <br />   ;;获取第一个文本<br />   (setq ss (ssget))<br />   (setq ENT (entget (ssname SS 0))<br />         STR (cdr (assoc 1 ENT))<br />   )<br />   ;;连接后面的文本<br />   (if (setq ZL (getdist "\n点取总跨度"))<br />     ;; (progn<br />       (setq STR (strcat STR " [ZL]" (RTOS ZL 2 0)))<br />     ;; )<br />   )<br /> <br />   (setq JL 0)<br />   (setq p1 (getdist "\n点取第一段距离"))<br />   (setq JL (+ JL p1))<br /> <br />   (setq i 1)<br />   (while (setq p2 (getdist "\n点取下一段距离"))<br />     (setq STR (strcat STR " [JL]" (RTOS JL 2 0)))<br />     (setq ENT (entget (ssname SS i)))        ; 此处 ent 改为递增<br />     (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))<br />     (entmod ENT)<br />     (setq JL (+ JL p2))<br />     (setq i (1+ i))<br />   )<br /> )<br />

;; 没看懂,费思量哩！

yaker_77

我刚铡已经找到方法了，问题出在循环中如何中途退出
还是谢谢你的回复！

(defun C:pfl (/ ss ent  zl   p1  d p2)


;;获取第一个文本
   
    (princ "\n请选择单行文字")
    (setq ss (ssget '((0 . "TEXT"))))
    (setq ENT (entget (ssname SS 0))
          STR (cdr (assoc 1 ENT))
    )
;;连接后面的文本
    (if (setq ZL (getdist "\n点取总跨度"))
        (progn
           (princ Zl)(princ)
           (setq STR (strcat STR " [ZL]" (RTOS ZL 2 0)))
        )
    )

    (setq JL 0)

    (setq catchit                         ;catchit可以在以后用相关函数判断循坏是否有中途跳出的
        (vl-catch-all-apply
           '(lambda ()

                (repeat 50                                ;循环50次
                    (setq p2 (getdist "\n点取下一段距离"))
                    (setq JL (+ JL p2))
                    (princ p2)(princ)
                    (if (= p2 "")
                        (exit)                                  ;右键时跳出
                    )
                )
            )
        )
    )

    (setq STR (strcat STR " [JL]" (RTOS JL 2 0)))
    (setq ENT (entget (ssname SS 0)))
    (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))
    (entmod ENT)
)

lj154864041

很不错

mico_ye

有意思呀

muyiyzj

没看懂