AutoCAD VBAの深淵：ActiveSpaceとMSpaceの制御で「空間の壁」を突き抜ける
AutoCADのオートメーションにおいて、最も多くのエンジニアが挫折し、あるいは不完全なコードを量産する領域がある。それが「モデル空間とペーパー空間（レイアウト）のシームレスな制御」だ。
ただ図形を生成するだけのスクリプトは初心者でも書ける。しかし、レイアウト上の特定のビューポートを貫通し、モデル空間の座標系を維持したまま注釈を投下するという芸当は、AutoCADの内部アーキテクチャを理解していなければ不可能だ。
今日は、APIの裏側に潜む空間制御の真髄を伝授する。
—
1. 空間制御のパラドックス：ActiveSpaceとMSpace
AutoCAD VBAで空間を扱う際、初心者は `ThisDrawing.ActiveSpace` だけを弄り回すが、これは致命的な誤解を生む。
- `ActiveSpace`: 現在の編集環境がモデルかペーパーかを示す。
- `MSpace`: ペーパー空間において「ビューポート内」にフォーカスがあるかを示す。
レイアウト上の特定のビューポートへアクセスするには、`ActiveSpace = acPaperSpace` にした上で、さらに `MSpace = True` にし、対象の `PViewport` オブジェクトを `ActivePViewport` に設定するという「三段構え」の儀式が必要だ。この手順を一つでも間違えば、座標系は狂い、オブジェクトは思わぬ空間へと迷い込む。
—
2. 空間を貫通する制御の実装
以下のコードは、指定したレイアウト内の特定のビューポートへフォーカスを移し、モデル空間側の座標を基準に記号（ここでは円）を打つためのテンプレートだ。
‘ 空間制御の核となるプロシージャ
Public Sub PlaceAnnotationInViewport(layoutName As String, vpHandle As String, targetPt As Variant)
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 1. レイアウトをアクティブ化
On Error Resume Next
doc.ActiveLayout = doc.Layouts(layoutName)
If Err.Number <> 0 Then Err.Raise vbObjectError + 1, , “Layout not found.”
On Error GoTo 0
‘ 2. ペーパー空間へ切り替え
doc.ActiveSpace = acPaperSpace
‘ 3. 対象ビューポートの探索とアクティブ化
Dim obj As AcadObject
Set obj = doc.ObjectIdToObject(doc.HandleToObject(vpHandle).ObjectID)
If TypeOf obj Is AcadPViewport Then
‘ ビューポート内へ潜り込む（MSpaceをTrueにする）
doc.MSpace = True
doc.ActivePViewport = obj
‘ 4. モデル空間側の座標系として描画
‘ ここで生成されたオブジェクトは、モデル空間の座標系に同期される
Dim circ As AcadCircle
Set circ = doc.ModelSpace.AddCircle(targetPt, 10.0)
‘ オブジェクトの明示的解放（メモリリークの防止）
Set circ = Nothing
End If
‘ 処理後は必ずモデル空間へ戻し、フォーカスをクリーンにするのが流儀
doc.MSpace = False
doc.ActiveSpace = acModelSpace
Set obj = Nothing
Set doc = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリの重み」
VBAはガベージコレクションが極めて脆弱だ。特にAutoCADのオブジェクトモデルは、COM（Component Object Model）のラッパーであるため、明示的に `Nothing` を代入しない限り、オブジェクトへの参照はメモリに居座り続ける。
大規模なバッチ処理を行う際、このメモリリークは「動作が重くなる」という兆候として現れ、最終的にはAutoCADのフリーズを招く。
- `Set`したオブジェクトは必ず `Nothing` で閉じる。これは宗教的なまでに徹底すべきだ。
- `ActiveDocument`のキャッシュ: `ThisDrawing` を何度も呼び出すのはコストが高い。ローカル変数 `doc` に代入して再利用せよ。
- エラーハンドリング: 空間切り替え中にエラーが発生すると、`MSpace` が `True` のままスタックする。`Finally` 句に近い構造（`On Error GoTo`）を使い、異常終了時でも必ずモデル空間へ復帰させるロジックを組むこと。
—
4. レガシー連携：Windows APIの活用
さらに踏み込むなら、AutoCADの標準メソッドだけでは限界がある。特に、モーダルダイアログが表示されている最中のフォーカス制御などは、Windows APIの `SetForegroundWindow` や `SendMessage` を駆使しなければ、AutoCAD側の描画更新が追いつかない場面がある。
もし、外部システムからAutoCADを制御する際に「描画が反映されない」という問題に直面したなら、`doc.Regen acActiveViewport` を叩くだけでは不十分だ。APIを用いてWindowsメッセージキューをフラッシュし、描画パイプラインを強制的に更新する必要がある。
結びに代えて
AutoCAD VBAは、現代の言語から見ればレガシーな存在かもしれない。しかし、図面という「空間情報」を操作する上で、これほどダイレクトにエンジンを叩ける環境は他にない。
「空間を制御する」とは、ただコードを書くことではない。AutoCADという巨大なドキュメントモデルの呼吸を感じ、そのライフサイクルに寄り添うことだ。この極限の制御術をマスターした時、君の自動化スクリプトは「ただのツール」から「熟練のオペレーター」へと進化するだろう。
次に問うべきは、君のコードがどれほど静かに、そして確実に空間を支配できているかだ。
