|
阅读：2266回复：3
mapx中怎样在给定的坐标处加个标记或图元呢？
mapx中怎样在给定的坐标处加个标记或图元呢？只要能在我给定的坐标做个记号就可以了，应该怎么做啊？哪位大侠能否指点指点？
|
|
|
1楼#
发布于：2007-08-28 16:20
procedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1, Y1,<BR> X2, Y2, Distance: Double; Shift, Ctrl: WordBool;<BR> var EnableDefault: WordBool);<BR>var f: CMapXFeature;<BR> pt: CMapXPoint;<BR> fe:feature;<BR> begin<BR> if ToolNum = miArrowTool then<BR> begin<BR> pt := CoPoint.Create;<BR> pt.Set_(screenx, screeny);<BR> f := Map1.FeatureFactory.CreateSymbol(pt, Map1.DefaultStyle);<BR> fe:=Map1.Layers.Item[1].AddFeature(f, EmptyParam);<BR> // map1.Layers.Item[1].DeleteFeature(fe); 这是删除图元。<BR><BR> end;
|
|
|
2楼#
发布于：2007-08-24 10:30
<P> X = Text1.Text<BR> Y = Text2.Text<BR> Map1.Annotations.addsymbol X, Y</P>
<P>这个就是添加符号的代码（VB）</P> |
|
|
3楼#
发布于：2007-07-28 13:21
<P>astyle.createsymbol()好象是这个加图,</P>
<P>astryle.createtext()这个是加文字</P> |
|