请问在vba中如何获得多段线的各个点的坐标？

gotop

请问在vba中如何获得多段线的各个点的坐标？

烟雨.江南

假设你已经取得多段线的实体objL

objL.Coordinate 就可以取得各个顶点的坐标。

如果多段线是三维的，那么

第一个点 XYZ值分别是：Coordinate(0)，Coordinate(1)，Coordinate(2)

第二个点 XYZ值分别是：Coordinate(3)，Coordinate(4)，Coordinate(5)

其余点依此类推。

如果多段线是二维的（LWPolyline），那么

第一个点 XY值分别是：Coordinate(0)，Coordinate(1)

第二个点 XY值分别是：Coordinate(2)，Coordinate(3)

其余点依此类推。

gotop

烟雨.江南发表于2007-5-29 10:02:00假设你已经取得多段线的实体objLobjL.Coordinate 就可以取得各个顶点的坐标。如果多段线是三维的，那么第一个点 XYZ值分别是：Coordinate(0)，Coordinate(1)，Coordinate(2)第二个点 XYZ值分别

哦，明白了~~~

原来要用Coordinate这个数组啊

谢谢了~~烟雨.江南兄~~~

gotop

我要将Coordinate(0)的值赋给a

a必须是Variant型变量吗？

我把a设置成double型的话就会出现错误

烟雨.江南

抱歉！我前面的回帖打漏了一个S，应该是Coordinates。

如果是Coordinate的话，Coordinate(0)是第一个点的三维坐标，要取得第一个点的XYZ值可以这样：

dim x#,y#,z#

x = Coordinate(0)(0)

y = Coordinate(0)(1)

z = Coordinate(0)(2)

或者

x = Coordinates(0)

y = Coordinates(1)

z = Coordinates(2)

gotop

那下面这段是用Coordinate还是Coordinates呢？

如果多段线是二维的（LWPolyline），那么

第一个点 XY值分别是：Coordinate(0)，Coordinate(1)

第二个点 XY值分别是：Coordinate(2)，Coordinate(3)

七敏

太好了，正找呢~~~

shyshy0916

我还想问一句，可以用这个办法来取，但结束符是什么呢？循环退出的条件是干什么呢？
  While coordinate(i) <> ""
   x(0) = coordinate(i): x(1) = coordinate(i + 1): x(2) = coordinate(i + 2)
  Set point = ThisDrawing.ModelSpace.AddPoint(x)
   i = i + 3
   Wend
以上循环取出各点坐标，但最后的结束符是什么呢，最终出现下标越界了，一直十分郁闷啊！
恳请各位老兄给予指点！！！！

hacklby

他获得这个坐标点是否由一个方向向另一个方向依次进行的.还是没有规律的.