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

最新推荐文章于 2013-06-25 20:51:00 发布

qsxucsdn

最新推荐文章于 2013-06-25 20:51:00 发布

阅读量2.1k

点赞数

分类专栏： GIS 文章标签： asp session

本文链接：https://blog.csdn.net/qsxucsdn/article/details/232396

版权

GIS 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

'创建图层
  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"