社区 › VBA/VB/ActiveX/API 编程技术 › 多线段的顶点如何取得？

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

多线段的顶点如何取得？

<P>我知道获得多段线的顶点数，但我现在要得到这个多段线一个个顶点该如何得到？</P>
<P>因为我要用这些顶点来画线</P>

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

Coordinates属性

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

<P>楼主举个例子好不，我知道得到顶点数: (UBound(objPoly.Coordinates) + 1) / 2</P>
<P>但得到一个个顶点，不知道该如何写代码，objPoly.Coordinates这样得到的是什么？是顶点实体还是一个数组集合?</P>
<P>&nbsp;</P>
<P>&nbsp; </P>

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<BR>&nbsp;&nbsp;&nbsp; If TypeOf objPLine Is AcadLWPolyline Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GetVertexCount = (UBound(objPLine.Coordinates) + 1) / 2<BR>&nbsp;&nbsp;&nbsp; ElseIf TypeOf objPLine Is AcadPolyline Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GetVertexCount = (UBound(objPLine.Coordinates) + 1) / 3<BR>&nbsp;&nbsp;&nbsp; End If<BR>End Function

查看完整版本: 多线段的顶点如何取得？