如何获取LWPOLLI的信息

MR_Zeroeffect · 发表于 2022-7-6 14:25:37

你好

当您输入列表并选择一条LW多段线时，您会得到很多信息，如；凸度、中心、半径、开始角度、结束角度等。

如何使用vba从选定对象获取此信息？有可能吗？

我知道你可以计算这些信息，但有更简单的方法吗？或者有人知道一些示例代码吗？

在下面，您可以找到我目前获得的代码：

非常感谢您的帮助！
//马库斯

copy


ThisDrawing.Utility.GetEntity oEnt, vPick, vbCr & "Select object:"
If TypeOf oEnt Is AcadLWPolyline Then
Dim MyLWPolyline As AcadLWPolyline
Set MyLWPolyline = oEnt
For lCounter = 0 To lNumberOfCoordinates
   
dNewCoordinates(lCounter) = MyLWPolyline.Coordinates(lCounter)
dNewCoordinatesBulge(lCoordpairCounter) = MyLWPolyline.GetBulge(lCoordpairCounter)
   
Next
end if