asp+mapxtreme的示例代码-通过layerinfo创建图层并画矩形

来源：互联网发布：数据库系统工程师难吗编辑：程序博客网时间：2024/04/29 22:43

'创建图层
  Call CreateMapXLayerInfo(Li)
  Li.Type = 6 'miLayerInfoTypeTemp
  Li.AddParameter "name","new"
        bRC = CreateMapFields(fld)
  fld.AddStringField "temp" , 1
  Li.AddParameter "Fields",fld
  Set lyrTemp=Session(cMapXObject).Layers.Add(Li)
  Session(cMapXObject).DataSets.Add miDataSetLayer, lyrTemp,"new",,,"new"
'添加图元
  GetMapCenter fLocX, fLocY
  bRc = CreateMapPoint (ptCenter)
  bRc = CreateMapPoints (pts)
  bRc = CreateMapStyle (style)
  ptCenter.Set fLocX, fLocY
  pts.Add ptCenter
  ptCenter.Set fLocX+0.05, fLocY
  pts.Add ptCenter
  ptCenter.Set fLocX+0.05, fLocY+0.05
  pts.Add ptCenter
  ptCenter.Set fLocX, fLocY+0.05
  pts.Add ptCenter
  ptCenter.Set fLocX, fLocY
  pts.Add ptCenter
  style.LineColor=RGB(255,0,0)
  style.LineWidthUnit=0
  style.LineWidth=5
  SET ft1=Session(cMapXObject).FeatureFactory.CreateLine(pts,style)
  Set ft2 = lyrTemp.AddFeature(ft1)
'删除临时图层
  Session(cMapXObject).Layers.Remove "new"