|
阅读：1459回复：2
请问在AO中如果将polyline转换成Polygon
<P>如题，最好哪位好心的大哥，大姐能给个代码。</P>
<P> <img src="images/post/smile/dvbbs/em12.gif" /></P> |
|
|
1楼#
发布于：2005-09-26 17:18
Dim iPLine As IPolyline<BR> Dim iPts As IPointCollection<BR> <BR> Set iPLine = MapControl1.TrackLine<BR> Set iPts = iPLine<BR> <BR> Dim iPgon As IPolygon<BR> Set iPgon = New Polygon<BR> <BR> Dim iPts2 As IPointCollection<BR> Set iPts2 = iPgon<BR> <BR> iPts2.AddPointCollection iPts<BR> <BR> MapControl1.DrawShape iPgon
|
|
|
2楼#
发布于：2006-01-04 09:17
2楼的做法是对的
|
|