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

関連記事

  • この記事を書いた人

羽田 康祐

好きな地図投影法 はパース・クィンカンシャル図法とマクブライド・トーマス平極四次曲線図法。広島市出身。GIS上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

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

© 2021 WINGFIELD since1981