<p>由<strong><font face="Verdana" color="#61b713">xxsheng来拼合吧，程序太长了，没心思看</font></strong></p>
<strong><font face="Verdana" color="#61b713">xxsheng兄,麻烦您接这最后一棒吧,将sailorcwx兄写的与您的拼合一下.谢谢了</font></strong>
<br/>;把这一句(mapcar '(lambda(x)(apply 'command (append '("._3dpoly") x '("")))) rcz)<br/>改成(mapcar 'drawpipers m r n rcz),,,,,,,,,,,如果想要原来画的线,可以直接添加在上面那一句的后面就可以!<br/>
本帖最后由 作者 于 2008-6-11 17:55:02 编辑 <br /><br /> <p>按照以上提示修改后还是不行啊,双线管部分还是画不出来...怎么办????</p><p></p>
<p>怎么有人看没人帮,请各位大虾出手帮帮...</p>
<p>临睡前顶起来吧,提高提高爆光率......,等人出手</p>
是啊
<pre><font><font face="Courier New">DW nil<br/> R nil<br/> N nil<br/> DstDW nil<br/> DstR nil<br/> DstN nil<br/> dh<font color="red">(</font><a target="_black" href="../object/autolisp/cons.htm"><font color="blue">cons</font></a>
<font color="red">(</font><a target="_black" href="../object/autolisp/car.htm"><font color="blue">car</font></a> x<font color="red">)</font> dh<font color="red">)<br/></font></font></font>加上面那些语句做什么用?基本上来说添加(mapcar 'drawpipers m r n rcz)这句后两个程序已经联合了!<br/>你竟然会知道"drawpipers"中要用到每根多义线的起点坐标"PTA"?真不知道你怎么知道的!<br/>主要是函数drawpipers的问题:<br/>首先缺少<font><font face="Courier New">ACADSPC变量</font></font>的定义,(添加上以后可以画出几条管来)<br/>其次不能全部画出管,可能是r,n和线两点长度的大小不正确导致计算出错,,,<br/>所以解铃还须系铃人,找<font face="Verdana" color="#61b713"><b>sailorcwx</b></font>把函数drawpipers修改一下就可以了.<br/></pre>
<p>哦，漏掉了</p><p>有时间再弄，这几天很忙</p>
<p>等.....</p>