求多段线的顶点数？

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

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

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


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

求多段线的顶点数？

发表回复

精选推荐