|
|
一下是获取AcDbPolyline多线段的一段代码：
Dim mospace As AcadModelSpace
Dim ent As AcadEntity
Dim coord As Object
Dim j As Integer
......
For Each ent In mospace
For j = LBound(PolyLineCoor) To UBound(PolyLineCoor)
If StrComp(ent.ObjectName, "AcDbPolyline", 1) = 0 Then
PolyLineCoor = ent.coordinates
coord = PolyLineCoor(UBound(PolyLineCoor(j)))
Debug.Write(PolyLineCoor(0))
End If
Next j
Next
在执行过程中，出现了问题，用UBound(PolyLineCoor) 可以获取一条多线段的节点总数，但是用Debug.Write(PolyLineCoor(0))只能得到一半的坐标值，例如：
第2个实体信息
实体类型AcDbPolyline
折线第一个点坐标：55066.7190010562
第3个实体信息
实体类型AcDbPolyline
折线第一个点坐标：53138.7851450313
第4个实体信息
实体类型AcDbPolyline
折线第一个点坐标：54286.7667293699
请问原因？ |
|
置顶卡
