将区域转换为LW多段线

ectech · 发表于 2022-7-6 11:00:40

大家好，

可以通过lisp将对象从区域转换为lwpolyline？因为当我尝试使用bpoly命令再次重新创建多段线时，内部有一个对象，但出现错误消息“无法导出多段线边界，创建区域？”

谢谢

Lee Mac · 发表于 2022-7-6 11:12:03

你可能会炸毁这个地区？

gile · 发表于 2022-7-6 11:19:30

你好

多段线只能包含右线段和圆弧，不能包含椭圆弧。

您可以使用以下例程转换椭圆和椭圆弧。
当PELLIPSE sysvar设置为1时，它创建一条多段线，该多段线是椭圆的近似值，其方式与ellipse命令相同。

[code]；；椭圆多段线；；返回一条多段线（vla对象），该多段线是椭圆（或椭圆弧）的近似值；；；；参数：椭圆（vla对象）（defun EllipseToPolyline（el/doc cl norm cen elv pt0 pt1 pt2 pt3 pt4 ac0 ac4 a04 a02 a24 bsc1 bsc2 bsc3 bsc4 plst blst spt spa fspa srat ept epa fepa erat n）（vl load com）（setq doc（vla get ActiveDocument（vlax get acad object））spc（if（=1（getvar'cvport））（vla get PaperSpace doc）（vla get ModelSpace doc））cl（and（=（vla get StartAngle el）0.0）（=（vla get EndAngle el）（*2 pi）））norm（vlax get el'Normal）cen（trans（vlax get el'Center）0 norm）elv（caddr cen）cen（3dtodpt cen）pt0（mapcar’+（trans（vlax get el’MajorAxis）0 norm）cen）ac0（angle cen pt0）pt4（mapcar’+cen（trans（vlax get el’MinorAxis）0 norm）pt2（3dTo2dPt（trans（vlax curve getPointAtparam el（/pi 4））0 norm））ac4（角度cen pt4）a04（角度pt0 pt4）a02（角度pt0 pt2）a24（角度pt2 pt4）bsc1（/（ang