求助,如何根据列表中的点画闭合线
<p>我是新手,向各位大侠请教一个问题,我想根据列表Dotlist中的点构造封闭多边形, 如果点的个数不多,可以用(COMMAND "PLINE" pt1 pt2 pt3 pt4 "C")来做,但是列表中的点如果个数太多了,请问一下如何通过循环来实现,谢谢.</p><p>例,DOTLIST如下所示</p><p>(setq dotlist '((29.3013 2.42917)(147.692 2.42917)(197.639 82.2516)(124.754 82.2516)(124.754 36.4276)(71.8481 36.4276)(71.8481 65.2524)(35.5909 55.2746)(10 68.5184 18.6893) (10 34.481 12.407)))<br/> </p> <p>用多段线，获取点的信息构造封闭曲线</p><p></p> <p><font color="#ff0000">已有大侠帮我解决了,谢谢各位</font></p><p><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/DEFUN.htm" target="_black"><font color="#0000ff">DEFUN</font></a><font color="#0000ff"><b>DRAWPL</b></font>
<font color="#ff0000">(</font>PDLST<font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/SETVAR.htm" target="_black"><font color="#0000ff">SETVAR</font></a>
<font color="#ff00ff">"CMDECHO"</font>
<font color="#008000">0</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/SETQ.htm" target="_black"><font color="#0000ff">SETQ</font></a> N <font color="#008000">0</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/COMMAND.htm" target="_black"><font color="#0000ff">COMMAND</font></a>
<font color="#ff00ff">"PLINE"</font>
<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/CAR.htm" target="_black"><font color="#0000ff">CAR</font></a> PDLST<font color="#ff0000">)</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/REPEAT.htm" target="_black"><font color="#0000ff">REPEAT</font></a>
<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/LENGTH.htm" target="_black"><font color="#0000ff">LENGTH</font></a> PDLST<font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/COMMAND.htm" target="_black"><font color="#0000ff">COMMAND</font></a>
<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/NTH.htm" target="_black"><font color="#0000ff">NTH</font></a>
<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/SETQ.htm" target="_black"><font color="#0000ff">SETQ</font></a> N <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black"><font color="#0000ff">1+</font></a> N<font color="#ff0000">)</font><font color="#ff0000">)</font> PDLST<font color="#ff0000">)</font><font color="#ff0000">)</font><br/> <font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/COMMAND.htm" target="_black"><font color="#0000ff">COMMAND</font></a>
<font color="#ff00ff">""</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/PRINC.htm" target="_black"><font color="#0000ff">PRINC</font></a><font color="#ff0000">)</font><br/><font color="#ff0000">)</font><br/></p> <p>xyp-Entmake-lwPolyline</p><p>建立多段线</p><p>(xyp-Entmake-lwPolyline 点集 mode)</p><p>mode: 0,打开；1,闭合</p>
页:
[1]