Function GetFeatureLayerByName(LayerName As String) As ILayer Dim i As Integer Dim mylayer As ILayer Dim myLayer2 As ILayer Dim pMap As IMap Dim pMxDocument As IMxDocument Set pMxDocument = Application.Document Set pMap = pMxDocument.Focus…

『VBAによるArcGISプログラミング入門』通りに書いてるのに動かない、と思ったら、withを使わないと構文エラーになるようだ。上下のコードの違いが分からない・・・

C:\Program Files\ArcGIS\DeveloperKit\tools\MXDDoctor.exeArcGISを買ったときに入ってくるDesktop Developer Toolsに標準で入ってるソフト。壊れてしまったMXDファイルから、ページレイアウト、VBAプロジェクト、スタイルライブラリ、プレビューイメージ等…

オートメーションエラーが発生する場合メモ フィールド名が違っている ポイントの描画時にポイントの座標が投影座標から著しく離れている場合？ 「オートメーションエラー」発生後、デバッグ・中止いずれを押しても強制終了してしまうので検証出来ない・・・…

他の仕事も落ち着いてきたのでArcGIS（ArcMap）での開発に再突入。胃が痛くなるぜ！