AutoCAD VBAの深淵：ActiveDocumentという「罠」を完全に掌握する
AutoCAD VBAを操るエンジニアとして、多くの者が最初に陥る罠がある。それが `ThisDrawing` や `Application.ActiveDocument` への盲信だ。
初心者は「今開いている図面を操作する」ことに疑いを持たない。だが、大規模なシステム開発や、複数図面を跨いだバッチ処理を行う現場において、その「当たり前」は重大なシステム障害のトリガーとなる。
なぜなら、`ActiveDocument` はユーザーの操作一つで、あるいはOSのコンテキストスイッチ一つで、瞬時にそのポインタを別の図面へと切り替えるからだ。
今日は、AutoCADという非同期的な環境下で、意図したオブジェクトを確実に射抜くための「生存戦略」を授ける。
—
1. 「Active」という幻想を捨てる
AutoCADのオブジェクトモデルにおいて、`ActiveDocument` プロパティは、あくまで「現在のフォーカス」を指し示す動的な参照に過ぎない。
例えば、マクロの実行中にバックグラウンドでユーザーが別のウィンドウをクリックしたり、外部システムからのDDE/OLE割り込みが発生すれば、`ActiveDocument` が指す先は即座に変わる。これをコードの冒頭で変数にキャッシュしたつもりでも、参照の寿命管理を誤れば、ゴミ（あるいは別図面）を操作し続けることになる。
堅牢なシステムを構築するための第一歩は、「明示的なIDによる管理」と「オブジェクトのライフサイクル管理」だ。
2. 確実に図面を捕捉する実装パターン
複数図面が混在する環境下では、`ActiveDocument` を頼るのではなく、`Documents` コレクションをイテレートし、ファイル名やドキュメントIDを照合してターゲットを確定させるのがプロの作法だ。
以下に、対象図面を確実に補足するためのテンプレートを示す。
‘ ———————————————————
‘ 特定のドキュメントを安全に取得するモジュール
‘ ———————————————————
Public Function GetTargetDocument(ByVal targetFileName As String) As AcadDocument
Dim doc As AcadDocument
‘ Documentsコレクションから目的の図面を探索
For Each doc In ThisDrawing.Application.Documents
‘ フルパス比較が最も安全。必要に応じてInStrで柔軟に判定せよ
If LCase(doc.FullName) = LCase(targetFileName) Then
Set GetTargetDocument = doc
Exit Function
End If
Next doc
‘ 見つからなければエラーを投げるか、Nothingを返してハンドリングさせる
Err.Raise vbObjectError + 1000, “GetTargetDocument”, “指定図面が開かれていません。”
End Function
—
3. メモリの解放：VBAの「忘れ物」を許すな
VBAはガベージコレクションを搭載しているが、COMオブジェクトの参照カウント（Reference Counting）は依然として開発者の責任だ。`Set obj = Nothing` を怠ることは、AutoCADプロセスの寿命を縮め、メモリリークを誘発する。
特に、`ActiveDocument` を使用する際は、以下のライフサイクルを厳守せよ。
1. 取得: 変数に代入する。
2. 検証: `Nothing` ではないか、期待するドキュメントかを確認する。
3. 解放: 処理が終われば即座に `Set doc = Nothing` を実行する。
これを `On Error GoTo` によるエラーハンドリングと組み合わせるのが、伝説的なエンジニアの流儀である。
Sub SecureDocumentOperation()
Dim targetDoc As AcadDocument
On Error GoTo Cleanup
‘ 図面を取得
Set targetDoc = GetTargetDocument(“C:\Projects\Design_A.dwg”)
‘ 安全に操作を行う
targetDoc.ModelSpace.AddLine StartPoint, EndPoint
Cleanup:
‘ 異常終了時も必ず参照を破棄する
If Not targetDoc Is Nothing Then Set targetDoc = Nothing
If Err.Number <> 0 Then MsgBox “Error: ” & Err.Description
End Sub
—
4. シニアエンジニアへの提言：Windows APIとの融合
もし君が、さらに高度な制御を求めるならば、`GetForegroundWindow` を含むWin32 APIを駆使し、現在フォーカスがあるウィンドウハンドル（HWND）からプロセスIDを逆引きし、AutoCADの `AcadApplication` オブジェクトと突き合わせる手法がある。
しかし、まずは基礎を極めよ。AutoCADのオブジェクトモデルにおける `Documents` コレクションの挙動を完全に制御下に置くことこそが、どんな複雑なシステムであっても「図面を見失わない」最強の防壁となる。
まとめ：安定稼働への鉄則
- `ActiveDocument` を直書きしない: 常に対象を明示的に探索せよ。
- ライフサイクルを管理せよ: 参照は使い終わる瞬間に `Nothing` にする。
- エラーハンドリングを怠るな: 予期せぬ図面の閉じられや切り替えは必ず発生する。
CADの自動化とは、単にコードを書くことではない。CADという荒れ狂う環境の中で、オブジェクトの生存圏をいかに守り抜くかという「防衛戦」なのだ。この知見を胸に、君の自動化ツールを鋼鉄のものへと進化させてほしい。
