[分享][原创][如何才能用程序实现mline线转变成闭合线（或面域）？（现已暂时解决，

xyzjint_cn

[分享][原创][如何才能用程序实现mline线转变成闭合线（或面域）？（现已暂时解决，附源程序）[br]

我在制作立体图时有大量的mline墙线要转化成立体墙体，如何才能用程序实现mline线转变成闭合线（或面域）？

 

xyzjint_cn

暂时解决问题，对于非闭合多线能顺利生成立体图，闭合双线不能生成立体图，现将源程序上传，本人编程水平有限，用的办法笨了点，程序行较多，如有高手有办法瘦身的话，请指教。有用得着该程序的请下载使用（本着开源初衷免费下载）。程序中部分程序段可移植至其他程序使用（如获取MLine线的各顶点列表、根据点列表画出pline线、pline线偏移、不同的图元形成闭合pline线等）

程序如下：

;;;;;;;;;根据多线形成立体图形
(defun c:cgb_to_lt (/ len len1 index en ss)
  (setvar "osmode" 0)
  (princ "\n请选择生成立体图形的双线:")
  (setq cgb_ss (ssget '((0 . "mline"))))
  (setq d
  (getint
    "\n请输入拉伸高度/2800)<1-2400、2-2500、3-2600、4-2800、5-3000、6-3500>"
  )

   由于不知道多少人下载，所以现只能下载程序以便知道数量