获取二维多边形线坐标w

srikanthkamuju · 发表于 2022-7-6 11:27:14

大家好

我把二维多段线作为输入，我想要带凸出因子的多段线的坐标。稍后将介绍如何使用相同的点绘制三维多边形线

提前感谢

lpseifert · 发表于 2022-7-6 11:43:46

我认为3DPolyline不能有凸出因子，必须是直线段。

MSasu · 发表于 2022-7-6 12:00:56

如果您充分理解您的问题，下面的代码将允许您创建一个包含多段线顶点的列表（无错误保护），接下来使用SUBST函数以所需数量修改Z坐标（此代码应基于顶点列表的长度），并从此列表生成三维多段线。

(setq PLineEntity    (car (entsel "Select polyline: "))   ;select polyline to list
     PLineAssocList (entget PLineEntity)                 ;get his associated list
     VertexesList   '())
(foreach SubList PLineAssocList                           ;parse polyline to list vertexes
(if (= (car SubList) 10)   ; code DXF 10 = vertex
 (setq VertexesList (append VertexesList                 ;store vertex coordinates
                            (list (cdr SubList))))
)
)