如何获取LWPOLLI的信息
你好当您输入列表并选择一条LW多段线时,您会得到很多信息,如;凸度、中心、半径、开始角度、结束角度等。
如何使用vba从选定对象获取此信息?有可能吗?
我知道你可以计算这些信息,但有更简单的方法吗?或者有人知道一些示例代码吗?
在下面,您可以找到我目前获得的代码:
非常感谢您的帮助!
//马库斯
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
除了从多段线获取信息,你还想做什么?可能有人已经这么做了。
你可能是对的!我肯定有人已经这么做了,
但无论如何。我正在尝试将带圆弧的LW多段线转换为不带圆弧的多段线(改为多条直线)。我希望能够根据凸度和半径,选择弧内要使用的线(扇区)的数量。我真的成功了!有很多数学知识!
无论如何,谢谢!
页:
[1]