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

求多段线的顶点数？

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

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

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