YouTube | Facebook | Twitter  Feed

ラベルエンジンの切り替え

2016/9/1 (木)

Protected Overrides Sub OnClick()
 
Dim pMaps As IMaps
Dim pMap As IMap
Dim index As Long
pMaps = My.ArcMap.Document.Maps
Dim pAnnotateMap As IAnnotateMap
 
For index = 0 To pMaps.Count - 1
 
pMap = pMaps.Item(index) 'get the map at the current index
pAnnotateMap = pMap.AnnotationEngine
 
If TypeOf pAnnotateMap Is IMaplexAnnotateMap Then
MessageBox.Show("データフレーム「" & pMap.Name & "」を標準ラベルに変更前:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
pMap.AnnotationEngine = New ESRI.ArcGIS.Carto.AnnotateMap
MessageBox.Show("データフレーム「" & pMap.Name & "」を標準ラベルに変更後:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
Else
MessageBox.Show("データフレーム「" & pMap.Name & "」をMaplexラベルに変更前:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
pMap.AnnotationEngine = New ESRI.ArcGIS.Maplex.MaplexAnnotateMapClass
MessageBox.Show("データフレーム「" & pMap.Name & "」をMaplexラベルに変更後:pMap.AnnotationEngine.Name=" & pMap.AnnotationEngine.Name.ToString)
End If
 
Next index
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

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

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