求多段线的顶点数？

jkbanana

在VBA中,可以用 NumberOfControlPoints 属性求出Spline的控制点数，

对多段线(Polyline)，如何求顶点数?

wyj7485

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

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