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