2023年6月– date –

Option Explicit Public Sub CreateFeatureClass() 'フィールドの作成 Dim pFieldEdit(2) As IFieldEdit 'ObjectID Set pFieldEdit(0) = New Field pFieldEdit(0).Type = esriFieldType.esriFieldTypeOID pFieldEdit(0).Name = "OBJECTID" '既定値は "OBJECTID" 'SpatialReference Dim pSpatialReferenceFactory As ISpatialReferenceFactory...

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) 'ソース フ...