YouTube | Facebook | X(Twitter) | RSS

選択シンボルをピクチャ マーカー シンボルで表示する方法

2016/9/1 (木)

'デフォルトの選択色を変更
Sub defautl()
 
Dim pMxApp As IMxApplication
Set pMxApp = Application
 
Dim pSEnvironment As ISelectionEnvironment
Set pSEnvironment = pMxApp.SelectionEnvironment
 
Dim pColor As IColor
Set pColor = New RgbColor
pColor.RGB = vbRed
 
Set pSEnvironment.DefaultColor = pColor
 
End Sub
 
 
'選択シンボルをピクチャマーカシンボルで表示する方法
Public Sub subChangeSelectionSymbol()
     
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
     
    Dim pFSelection As IFeatureSelection
    Set pFSelection = pMxDoc.FocusMap.Layer(1)
     
    '作成した選択シンボルの有効を設定
    pFSelection.SetSelectionSymbol = True
     
    'シンプルマーカシンボル(ポイントレイヤ)
    Dim pSymbol As ISimpleMarkerSymbol
    Set pSymbol = New SimpleMarkerSymbol
     
    'IPictureMarkerSymbol Exampleを参考
    Dim pictBMPMrkSym As IPictureMarkerSymbol
    Set pictBMPMrkSym = New PictureMarkerSymbol
     
    Dim TranspColor As IRgbColor
    Set TranspColor = New RgbColor
     
    TranspColor.Red = 255
    TranspColor.Green = 255
    TranspColor.Blue = 255
     
    With pictBMPMrkSym
        .CreateMarkerSymbolFromFile esriIPictureBitmap, _
            "C:\Program Files\ArcGIS\Styles\Pictures\z_warningsign.bmp"
        .Angle = 0
        .BitmapTransparencyColor = TranspColor
        .size = 32
        .XOffset = 0
        .YOffset = 0
    End With
     
    Dim pColor As IColor
    Set pColor = New RgbColor
    pColor.RGB = vbBlue
     
    pSymbol.Color = pColor
    pSymbol.size = 20
    pSymbol.Outline = True
     
    Set pFSelection.SelectionSymbol = pictBMPMrkSym
     
End Sub
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

-プログラミング, ArcGIS
-,