代码名称：

作者：James.Liu/刘毅

开发环境：MapXtreme for Windows ,MapX

代码：

sub ChangeSymbolStyle(oMap,strLayerName)
 dim oLayer
 dim oStyle
 
 set oLayer = oMap.Layers(strLayerName)
 oLayer.OverrideStyle=true
 oLayer.style.SymbolType = 1
 oLayer.Style.SymbolBitmapSize = 24
 oLayer.Style.SymbolBitmapTransparent = True
 oLayer.Style.SymbolBitmapName = "AMBU1-32.BMP"
end sub