多线段的顶点如何取得？

wholin · 发表于 2006-10-24 13:39:00

我知道获得多段线的顶点数，但我现在要得到这个多段线一个个顶点该如何得到？

因为我要用这些顶点来画线

mccad · 发表于 2006-10-24 17:38:00

Coordinates属性

wholin · 发表于 2006-10-25 18:55:00

楼主举个例子好不，我知道得到顶点数: (UBound(objPoly.Coordinates) + 1) / 2

但得到一个个顶点，不知道该如何写代码，objPoly.Coordinates这样得到的是什么？是顶点实体还是一个数组集合?

mccad · 发表于 2006-10-26 08:40:00

得到的是数组，如果二维多段线，则每两个元素组成一个顶点中的X和Y。这样你该知道了吧。还有一个属性是coordinate是取顶点的，如第一个顶点用coordinate(0)可取得。

wholin · 发表于 2006-10-26 19:36:00

明白了，谢谢楼主

shirazbj · 发表于 2006-11-4 11:28:00

原来是除2。

hym924 · 发表于 2006-11-9 17:19:00

Public Function GetVertexCount(ByVal objPLine As AcadEntity) As Long
    If TypeOf objPLine Is AcadLWPolyline Then
        GetVertexCount = (UBound(objPLine.Coordinates) + 1) / 2
    ElseIf TypeOf objPLine Is AcadPolyline Then
        GetVertexCount = (UBound(objPLine.Coordinates) + 1) / 3
    End If
End Function

账号		自动登录	找回密码
密码			注册