mapxtreme地图编辑

<P>请问各位大侠，</P>
<P>　　初接触mapxtreme，不知可不可以否实现地图编辑功能，如在web 页面上加点、线、面及相关的属性信息，并能够把数据保存到服务器中。</P>
<P>     　等待中。。。。。。。。。</P>

转载：<br>
MapxTreme 添加点图元的函数For ASP<br>
<br>
参数说明：LayerName-----------tab表名，不加“.tab”,如 "china"<br>
FeatureName------------------图元名称<br>
sStrxy--------------------存放坐标的字符串，如：“117.145424,37.454254”<br>
<br>
<br>
Function AddPointToLayer(LayerName,FeatureName,sStrxy)<br>
<br>
 Dim bResult,objMapx,lyr<br>
 Dim ftrNewPt,ftrAddPt<br>
 Dim flocx,flocy,tt<br>
 tt = Split(sStrxy,",",-1,1)<br>
 flocx = tt(0)<br>
 flocy = tt(1)<br>
 Set objMapx = GetMapEngine()<br>
 Set lyr = objMapx.Layers.Item(LayerName)<br>
 If CreateMapFeature(ftrNewPt) = True Then <br>
<br>
  ftrNewPt.Attach objMapX<br>
  ftrNewPt.Type = miFeatureTypeSymbol<br>
  ftrNewPt.Style.SymbolFont.Name = "Mapinfo Symbols" <br>
  ftrNewPt.Style.SymbolCharacter = 35  <br>
  ftrNewPt.Style.SymbolFont.Size = 8<br>
  ftrNewPt.Style.SymbolFontColor = 255<br>
  ftrNewPt.Point.Set flocx,flocy<br>
  Set ftrAddPt = lyr.AddFeature(ftrNewPt)<br>
  ftrAddPt.Keyvalue = FeatureName<br>
  ftrAddPt.Update<br>
<br>
 End If <br>
 bResult = SetLayerProperties(lyr, True, True, True)<br>
 bResult = SetMapCenter(fLocX, fLocY)<br>
Set objMapx = Nothing<br>
Set lyr = Nothing <br>
End Function

论坛高手太少呢?还是不愿理我们这些菜鸟呢?<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

没人做过吗？