【C009】ArcGIS VBA - 学习

改变点要素符号和颜色：

Sub sdkjflsdjfldj()
    Dim pColor As IRgbColor
    Set pColor = New RgbColor
    pColor.Red = 255
    pColor.Green = 100
    pColor.Blue = 100

    Dim fnt As New StdFont
    fnt.name = "ESRI Crime analysis"
    
    Dim pMarkerSym As ICharacterMarkerSymbol
    Set pMarkerSym = New CharacterMarkerSymbol
    pMarkerSym.Font = fnt
    pMarkerSym.CharacterIndex = 59
    pMarkerSym.size = 15
    pMarkerSym.Color = pColor
    
    Dim pRenderer As ISimpleRenderer
    Set pRenderer = New SimpleRenderer
    Set pRenderer.Symbol = pMarkerSym
    
    Dim pMxDoc As IMxDocument
    Dim pMap As IMap
    Dim pGFLayer As IGeoFeatureLayer
    Set pMxDoc = ThisDocument
    Set pMap = pMxDoc.FocusMap
    Set pGFLayer = pMap.Layer(0)
    Set pGFLayer.Renderer = pRenderer
    pMxDoc.activeView.Refresh
End Sub