[VBA函数]：求lwpolyline的端点坐标

savasava

用polyline画了一条直线后我想得到这条线两端点的坐标，
line中有startpoint 属性但polyline中就没该属性

efan2000

Polyline提供了Coordinate，它可以返回一点的坐标。注意，如果Polyline是二维的，那么就是二维的点坐标，只包含X和Y坐标。用Coordinates返回所有点的坐标的数组，数组的构成形式跟它是二维的还是三维的有关，可以参考有关帮助文件。

savasava

被你言中了，反回的是二维坐标，如何返回三维
我想把这个polyline 转成line
我的程序是
Dim llinet As Acadline
   spt = line.Coordinates(0)
    ept = line.Coordinates(1)
Set linet = ThisDrawing.ModelSpace.AddPolyline(spt,ept)

efan2000

用AddLightweightPolyline所画的是二维多段线，而用Add3DPoly 或者AddPolyline所画的则是三维多段线。
多段线转化成直线的方法，一是直接调用Explode方法分解，二是依次根据各个坐标点绘出直线。