问一个初级问题

fkyourmather

初学者
[pcode=lisp,true](defun c:tt (/ ss sl i e sp ep d)
(while (and (setq d (getdist "\n增量距离: ")) ;_可输入，可拾取（仅为正值),收缩时输入负值
      (setq ss (ssget '((0 . "line"))))
   )
  (setq sl (sslength ss)
    i-1
  )
  (repeat sl
  (setq e(ssname ss (setq i (1+ i)))
    sp (vlax-curve-getstartpoint e)
    ep (vlax-curve-getendpoint e)
  )
  (vl-cmdf ".lengthen" "_de" d (list e sp) (list e ep) "")
  )
)
(princ)
)[/pcode]
帮忙解释下这个i循环这个问题，真的不明白，为什么i不用附值

Free-Lancer

这样解释能不能明白

1. (defun c:tt (/ ss sl i e sp ep d)
   
2.   (while (and (setq d (getdist "\n增量距离: ")) ;_可输入，可拾取（仅为正值),收缩时输入负值
   
3.               (setq ss (ssget '((0 . "line"))))
   
4.          );_and 为条件，为 Nil 上结束 while
   
5.     (setq sl (sslength ss)
   
6.           i-1
   
7.     )
   
8.     (repeat sl;_重复选择集次数
   
9.       (setq e  (ssname ss (setq i (1+ i)))
   
10.             sp (vlax-curve-getstartpoint e)
    
11.             ep (vlax-curve-getendpoint e)
    
12.       )
    
13.       (vl-cmdf ".lengthen" "_de" d (list e sp) (list e ep) "")
    
14.     );_结束Repeat,回到 While 的条件 And 处
    
15.   );_结束while，
    
16.   (princ)
    
17. )

(defun c:tt (/ ss sl i e sp ep d)<br />   (while (and (setq d (getdist "\n增量距离: ")) ;_可输入，可拾取（仅为正值),收缩时输入负值<br />               (setq ss (ssget '((0 . "line"))))<br />          );_and 为条件，为 Nil 上结束 while<br />     (setq sl (sslength ss)<br />           i-1<br />     )<br />     (repeat sl;_重复选择集次数<br />       (setq e  (ssname ss (setq i (1+ i)))<br />             sp (vlax-curve-getstartpoint e)<br />             ep (vlax-curve-getendpoint e)<br />       )<br />       (vl-cmdf ".lengthen" "_de" d (list e sp) (list e ep) "")<br />     );_结束Repeat,回到 While 的条件 And 处<br />   );_结束while，<br />   (princ)<br /> )

fkyourmather

Free-Lancer 发表于 2013-5-19 08:48
这样解释能不能明白

明白了～谢谢啦，