用AddLWPolyline创建的对象类型为LWPolyline。
用AddPolyline创建的对象类型为Polyline。
经过拟合的多段线类型为Polyline。
- Sub getss()
- Dim ss As AcadSelectionSet
- Set ss = CreateSelectionSet
- Dim fc As Variant
- Dim fd As Variant
- BuildFilter fc, fd, 0, "lwpolyline"
- ss.Select acSelectionSetAll, , , fc, fd
- Debug.Print ss.Count
- End Sub
|