2023年6月12日– date –

Option Explicit Sub SpatialJoinWithArcMapUI() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'ソース フィーチャ レイヤーの取得 Dim pSourseFeatureLayer As IFeatureLayer Set pSourseFeatureLayer = pMap.Layer(1) 'ソース フ...