[分享][原创][如何才能用程序实现mline线转变成闭合线（或面域）？（现已暂时解决，
本帖最后由 作者 于 2010-6-7 10:42:36 编辑 <br /><br /> [分享][原创][如何才能用程序实现mline线转变成闭合线（或面域）？（现已暂时解决，附源程序）<p>我在制作立体图时有大量的mline墙线要转化成立体墙体，<font face="Verdana">如何才能用程序实现mline线转变成闭合线（或面域）？</font></p><p> </p>
<p></p> 本帖最后由 作者 于 2010-6-7 13:53:06 编辑 <br /><br /> <p>暂时解决问题，对于非闭合多线能顺利生成立体图，闭合双线不能生成立体图，现将源程序上传，本人编程水平有限，用的办法笨了点，程序行较多，如有高手有办法瘦身的话，请指教。有用得着该程序的请下载使用（本着开源初衷免费下载）。程序中部分程序段可移植至其他程序使用（如获取MLine线的各顶点列表、根据点列表画出pline线、pline线偏移、不同的图元形成闭合pline线等）</p>
<p>程序如下：</p>
<p><font face="Verdana">;;;;;;;;;根据多线形成立体图形<br/>(defun c:cgb_to_lt (/ len len1 index en ss)<br/> (setvar "osmode" 0)<br/> (princ "\n请选择生成立体图形的双线:")<br/> (setq cgb_ss (ssget '((0 . "mline"))))<br/> (setq d<br/> (getint<br/> "\n请输入拉伸高度:(/2800)<1-2400、2-2500、3-2600、4-2800、5-3000、6-3500>"<br/> )<br/></font></p>
<p><font face="Verdana"> </font> 由于不知道多少人下载，所以现只能下载程序以便知道数量</p>
<p> </p>
页:
[1]