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

将区域转换为LW多段线

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

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

你可能会炸毁这个地区？

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

你好
 
多段线只能包含右线段和圆弧，不能包含椭圆弧。
 
您可以使用以下例程转换椭圆和椭圆弧。
当PELLIPSE sysvar设置为1时，它创建一条多段线，该多段线是椭圆的近似值，其方式与ellipse命令相同。
 
；；椭圆多段线；；返回一条多段线（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

ectech 发表于 2022-7-6 11:30:16

但在分解区域后，所有这些区域都成为一个单独的段，因为我需要将对象作为多段线，并在其上执行一些操作。

ectech 发表于 2022-7-6 11:31:30

谢谢但是在lisp之后，将椭圆转换为多段线，并再次连接所有多段线。总面积比以前小。（见附图）
 

Lee Mac 发表于 2022-7-6 11:39:37

 
我在想你可以分解然后折线连接他们。。。

ectech 发表于 2022-7-6 11:50:31

谢谢李·麦克，但是佩迪特不能同时加入椭圆和多段线。
 
 
 
 

gile 发表于 2022-7-6 11:53:55

 
是的，因为多段线不是一个真正的椭圆，而是一个近似值，它可能在对象的长度和面积上有差异，但它应该非常小。。。
 
尝试绘制具有相同长轴和短轴长度的椭圆，一个将PELLIPSE设置为0，另一个将PELLIPSE设置为1，并比较长度和面积。。。

ectech 发表于 2022-7-6 12:04:47

非常感谢你的帮助！
页: [1]
查看完整版本: 将区域转换为LW多段线