关于获取多线段AcdbPolyline的坐标的一个问题！

xiaoming_x

一下是获取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 请问原因？

王咣生

coordinates返回的是坐标数组,PolyLineCoor(0)表示第一点的x坐标,PolyLineCoor(1)表示第一点的y坐标,PolyLineCoor(2)表示第二点的x坐标,PolyLineCoor(3)表示第二点的y坐标.

xiaoming_x

谢谢！