社区 › VB › 求多段线的顶点数？

jkbanana 发表于 2007-2-6 10:14:00

求多段线的顶点数？

在VBA中,可以用 NumberOfControlPoints 属性求出Spline的控制点数，
对多段线(Polyline)，如何求顶点数?

wyj7485 发表于 2007-2-6 15:52:00

Sub test()
Dim objAs AcadLWPolyline
Dim pt, num As Variant
ThisDrawing.Utility.GetEntity obj, pt, "选多段线:"
num = obj.Coordinates
MsgBox (UBound(num) + 1) / 2
End Sub

查看完整版本: 求多段线的顶点数？