请问如下情形如何设置循环

daiguafan

如上图所示，多段线为基准线
通过不断求大圆和多段线的交点，绘制小圆。
现有代码如下，可是无法实现循环，求大侠指点

2. (defun C:qjd(/ pt)  ;
   
3.    (vl-load-com)
   
4.    (setq p1 (getpoint "指定起始点")
   
5.    d (getint "\n指定小圆直径")
   
6.    dis (getint "\n指定大圆直径 ")
   
7.    ent2 (entsel"\n选择参照基准线")
   
8.    )
   
9.    (Setq aobj2 (Vlax-Ename->Vla-Object (car ent2)))
   
10.   (command ".circle" p1 "d" d "")
    
11.    (command ".circle" p1 dis "")
    
12.    (setq ent1 (entlast))
    
13.     (while (> ipts nil)
    
14.    (Setq aobj1 (Vlax-Ename->Vla-Object  ent1))
    
15.      (Setq IPTS (vla-intersectwith aobj1 aobj2 0 )
    
16.              IPTS(vlax-variant-value IPTS))
    
17.    (setq IPTS (vlax-safearray->list IPTS))
    
18. ;(command ".erase" ent1 "")
    
19. (command ".circle" IPTS "d" d "")
    
20.   (command ".circle" IPTS dis "")  
    
21.    (setq ent1 (entlast))
    
22.    
    
23.    (princ)
    
24. )
    
25. )
    

(defun C:qjd(/ pt)  ;<br />    (vl-load-com)<br />    (setq p1 (getpoint "指定起始点")<br />    d (getint "\n指定小圆直径")<br />    dis (getint "\n指定大圆直径 ")<br />    ent2 (entsel"\n选择参照基准线")<br />    )<br />    (Setq aobj2 (Vlax-Ename->Vla-Object (car ent2)))<br />   (command ".circle" p1 "d" d "")<br />    (command ".circle" p1 dis "")<br />    (setq ent1 (entlast))<br />     (while (> ipts nil)<br />    (Setq aobj1 (Vlax-Ename->Vla-Object  ent1))<br />      (Setq IPTS (vla-intersectwith aobj1 aobj2 0 )<br />              IPTS(vlax-variant-value IPTS))<br />    (setq IPTS (vlax-safearray->list IPTS)) <br /> ;(command ".erase" ent1 "")<br /> (command ".circle" IPTS "d" d "")<br />   (command ".circle" IPTS dis "")  <br />    (setq ent1 (entlast))<br />    <br />    (princ)<br /> )<br /> )<br />

该贴已经同步到 daiguafan的微博

daiguafan

请各位大侠帮帮忙啊

daiguafan

帮帮忙啊，各位大侠

nzl1116

daiguafan 发表于 2013-7-14 15:01
帮帮忙啊，各位大侠

这不是跟画链条的程序一个思路吗？

daiguafan

可否给个思路啊

daiguafan

nzl1116 发表于 2013-7-14 17:16
这不是跟画链条的程序一个思路吗？

能够给个思路么

vectra

需要指定一个每次移动的步长值，然后是通过多段线各个顶点和一堆矢量运算来得到下一个大圆心的位置，执行你画小圆的逻辑，直到多段线结束。

nzl1116

daiguafan 发表于 2013-7-14 21:57
能够给个思路么

绘制链条的，你看看

daiguafan

vectra 发表于 2013-7-14 22:13
需要指定一个每次移动的步长值，然后是通过多段线各个顶点和一堆矢量运算来得到下一个大圆心的位置，执行你 ...

大圆的直径就是移动的步长

daiguafan

nzl1116 发表于 2013-7-15 05:01
绘制链条的，你看看

谢谢啊，我先看看