qq_zsw 发表于 2008-6-29 15:26:00

根据源对象生成多段线

<p>请大家帮忙处理程序前半段无法自动处理，多段线闭合的情况：</p><p>即闭合多段线转换后变为不闭合的？？？</p><p>请指教</p>

caoyin 发表于 2008-6-29 16:36:00

<p>闭合多段线转换后变为不闭合的？？？</p><p>(vla-put-closed (vlax-ename-&gt;vla-object (car (entsel))) :vlax-false)</p>

claotlaot 发表于 2008-6-29 16:52:00

caoyin发表于2008-6-29 16:36:00static/image/common/back.gif闭合多段线转换后变为不闭合的？？？

<p></p><p>(vla-put-closed (vlax-ename-&gt;vla-object (car (entsel))) :vlax-false)</p></div><p>不怎么明白，</p>

qq_zsw 发表于 2008-6-30 20:06:00

感谢黑侠兄，但是请进一步指教我的程序中的错误。<br/>另，我对vlisp函数不了解，请尽量用autolisp函数<br/>

byghbcx 发表于 2008-6-30 21:30:00

<p><font face="Courier New" color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black"><font face="Courier New" color="#0000ff">if</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/4761.htm" target="_black"><font face="Courier New" color="#0000ff">/=</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf1<font color="#ff0000">)</font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf<font color="#ff0000">)</font><font color="#ff0000">)</font></font></p><p><font face="Courier New"><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/entmod.htm" target="_black"><font face="Courier New" color="#0000ff">entmod</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/subst.htm" target="_black"><font face="Courier New" color="#0000ff">subst</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf1<font color="#ff0000">) </font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf<font color="#ff0000">) dxf</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font></font></p><p><font face="Courier New"><font color="#ff0000">改成:<p><font face="Courier New" color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black"><font face="Courier New" color="#0000ff">if</font></a><font face="Courier New">
                                                <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/4761.htm" target="_black"><font face="Courier New" color="#0000ff">/=</font></a><font face="Courier New">
                                                <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                                                <font color="#008000">70</font> dxf1<font color="#ff0000">)</font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                                                <font color="#008000">70</font> dxf<font color="#ff0000">)</font><font color="#ff0000">)</font></font></p><p><font face="Courier New"><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/entmod.htm" target="_black"><font face="Courier New" color="#0000ff">entmod</font></a><font face="Courier New"> (setq dxf <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/subst.htm" target="_black"><font face="Courier New" color="#0000ff">subst</font></a><font face="Courier New">
                                                <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                                                <font color="#008000">70</font> dxf1<font color="#ff0000">) </font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                                                <font color="#008000">70</font> dxf<font color="#ff0000">) dxf</font><font color="#ff0000">)</font><font color="#ff0000">))</font><font color="#ff0000">)</font></font><br/>看看</p></font><br/>看看</font></p><p><font face="Courier New" color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black"><font face="Courier New" color="#0000ff">if</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/4761.htm" target="_black"><font face="Courier New" color="#0000ff">/=</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf1<font color="#ff0000">)</font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf<font color="#ff0000">)</font><font color="#ff0000">)</font></font></p><p><font face="Courier New"><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/entmod.htm" target="_black"><font face="Courier New" color="#0000ff">entmod</font></a><font face="Courier New"> (setq dxf <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/subst.htm" target="_black"><font face="Courier New" color="#0000ff">subst</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf1<font color="#ff0000">) </font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">70</font> dxf<font color="#ff0000">) dxf</font><font color="#ff0000">)</font><font color="#ff0000">))</font><font color="#ff0000">)</font></font><br/>看看</p>
页: [1]
查看完整版本: 根据源对象生成多段线