社区 › Auto Lisp › 获取二维多边形线坐标w

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

获取二维多边形线坐标w

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

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))))
)
)
 
当做

MSasu 发表于 2022-7-6 12:10:25

事实上，OP似乎在寻找VBA解决方案——同样的内容也发布在AutoCAD初学者区域中…

alanjt 发表于 2022-7-6 12:26:25

你可以用老式的2d。

David Bethel 发表于 2022-7-6 12:38:30

下面是Autolsip中的一个例程，它将任何直线、圆弧或*多段线转换为三维多边形-大卫
固定路径。LSP

查看完整版本: 获取二维多边形线坐标w