|
阅读：2245回复：2
[求助]VB+MapX 已知两点如何画直线？先谢了！
呵呵，最好有代码，我是菜鸟。
|
|
|
1楼#
发布于：2008-07-22 20:45
featurefactory这个对象.
|
|
|
2楼#
发布于：2008-12-10 11:09
<P>dim p1 as new point</P>
<P>dim p2 as new point</P> <P>p1.set x1,y1</P> <P>p2.set x2,y2</P> <P>dim ptsLocus as new points</P> <P>ptsLocus.Add p1</P> <P>ptsLocus.add p2<BR>CreateLine Map1, Map1.Layers(2), ptsLocus</P> <P>Public Sub CreateLine(map As map, lyr As MapXLib.Layer, pts As MapXLib.Points)<BR> Dim fac As MapXLib.FeatureFactory<BR> Set fac = map.FeatureFactory<BR> Dim ftr As Feature<BR> Dim style As New MapXLib.style<BR> style.LineColor = RGB(255, 0, 0)<BR> Set ftr = fac.CreateLine(pts, style)<BR> lyr.AddFeature ftr<BR> <BR> Set fac = Nothing<BR> Set ftr = Nothing<BR> <BR>End Sub</P> |
|