VB MAPX Labelatpoint

<P>我新建了一个图层 <BR>'新建一个名为"temporary layer1"的临时图层 <BR><BR>fields.AddStringField "GeoName", 10 <BR><BR>LayerInfoObject.Type = miLayerInfoTypeTemp <BR>LayerInfoObject.AddParameter "Name", "Temporary Layer1" <BR>LayerInfoObject.AddParameter "Fields", fields <BR><BR>Set newLayer = Map1.Layers.Add(LayerInfoObject, 1) <BR><BR>newLayer.Editable = True <BR>newLayer.AutoLabel = True <BR>newLayer.OverrideStyle = True <BR>newLayer.Style.SymbolCharacter = 53 '新建图层图标53为飞机标志 <BR>newLayer.Style.SymbolFontColor = RGB(0, 255, 0) <BR><BR>Set Map1.Layers.InsertionLayer = newLayer '使newlayer为目前插入图层 <BR><BR>然后希望在这个图层上根据已知坐标点(100.123,40.123)标记 <BR>Map1.CurrentTool = miLabelTool <BR>Map1.Layers(1).LabelAtPoint 100.123, 40.323 <BR><BR>但是图上却没有任何标记 <BR><BR>如果我改为Map1.CurrentTool = miAddPointTool <BR>则图上只能鼠标点击出现标记 <BR>不能根据坐标点标记 <BR><BR>麻烦知道的朋友帮帮忙</CD></P>

<P>不知道是否该用Labelatpoint这个方法</P>
<P>看了ＭＡＰＸ的帮助文件也比较茫然</P>
<P>就是希望在新建的图层上</P>
<P>根据已知的ＸＹ坐标绘制标签</P>
<P>标签的样式都已经在建立图层的时候选好了</P>

<P>  Pot.Set 100.123, 40.323 <BR>  Set LyrNode = MAP1.Layers(1)</P>
<P>  Set f = Main.Mapshow.FeatureFactory.CreateCircularRegion(1, Pot, 2, 7, 32)</P>
<P>  LyrNode.Editable = True<BR>  Set NodeFeature = LyrNode.AddFeature(f)<BR>  NodeFeature.Style.RegionColor = miColorBlue<BR>  LyrNode.Refresh</P>
<P>  LyrNode.KeyField = "GEONAME"<BR>  NodeFeature.KeyValue = K<BR>  NodeFeature.Update</P>