xiaoming_x 发表于 2005-2-23 10:51:00

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

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

王咣生 发表于 2005-2-23 13:31:00

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

xiaoming_x 发表于 2005-2-23 14:00:00

谢谢！
页: [1]
查看完整版本: 关于获取多线段AcdbPolyline的坐标的一个问题！