asp+mapxtreme的示例代碼-通過layerinfo創建圖層並畫矩形
'創建圖層
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"
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.