MapXtreme+ASP自定义图元样式及更新图元

好消息：杂吧天下（www.netosky.cn）正式上线开通，覆盖各行各业的海量信息中一定有你所想有你所要！杂吧天下全体成员欢迎您的光临，谢谢！（本工作室所有作品将在杂吧天下免费提供下载，敬请关注）

自定义图元样式并生成图元

set style=Session(cMapXCourierObject).CreateMapXStyle
style.symbolType=1
style.symbolBitmapOverrideColor=False
style.symbolBitmapTransparent=True
style.symbolFontOpaque=False
if cint(Session(cMapXObject).Zoom*10)=2 then
style.symbolBitmapSize=48
elseif cint(Session(cMapXObject).Zoom*10)=4 then
style.symbolBitmapSize=24
elseif cint(Session(cMapXObject).Zoom*10)=8 then
style.symbolBitmapSize=12
elseif cint(Session(cMapXObject).Zoom*10)=16 then
style.symbolBitmapSize=6
elseif cint(Session(cMapXObject).Zoom*10)=32 then
style.symbolBitmapSize=3
else
style.symbolBitmapSize=1
end if
style.symbolBitmapName="g0.bmp"
set point=Session(cMapXCourierObject).CreateMapXPoint
point.set X坐标,Y坐标
set ftr1=Session(cMapXObject).FeatureFactory.CreateSymbol(point,style)
Set ftr=ly1.AddFeature(ftr1)

更新图元

set style=Session(cMapXCourierObject).CreateMapXStyle
Set ftrs = Session(cMapXObject).Layers("ly1").AllFeatures
if cint(Session(cMapXObject).Zoom*10)=2 then
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 48
ftrc.Update
Next
elseif cint(Session(cMapXObject).Zoom*10)=4 then
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 24
ftrc.Update
Next
elseif cint(Session(cMapXObject).Zoom*10)=8 then
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 12
ftrc.Update
Next
elseif cint(Session(cMapXObject).Zoom*10)=16 then
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 6
ftrc.Update
Next
elseif cint(Session(cMapXObject).Zoom*10)=32 then
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 3
ftrc.Update
Next
else
For Each ftrc In ftrs
ftrc.Style.SymbolBitmapSize = 1
ftrc.Update
Next
end if