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

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

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

© 2020 WINGFIELD since1981