【テクニカル・上級編】【上級プロフェッショナル向け】AutoCADの「マルチドキュメントモード」を考慮した、バックグラウンドでの図面オープンとアクティブ切り替えの完全制御 – AutoCAD VBA解析バイブル

図面操作の主権を取り戻せ：マルチドキュメント環境におけるDocumentオブジェクトの完全制御

エンジニアが「動くコード」を書く段階を終え、「信頼されるシステム」を構築する段階へ進むとき、最初に直面する壁は、実行環境の不確実性である。

AutoCAD VBAにおいて、最も致命的な設計ミスは、「ActiveDocument」や「ThisDrawing」への過度な依存だ。

マルチドキュメントモード（複数の図面が同時に開かれた状態）において、これらへの依存は、ユーザーのクリック一つ、あるいは別プロセスによる割り込み一つで、プログラムの制御対象を容易に失わせる。意図しない図面にレイヤーを削除し、誤った図面を上書き保存する――。こうした事故は、単なるバグではなく、オブジェクトのライフサイクルに対する理解不足が生む「設計の敗北」である。

本稿では、プロフェッショナルが実践すべき、Documentオブジェクトの厳密な特定と、メモリリークを排した安全な図面制御のアーキテクチャについて詳解する。

1. 「ActiveDocument」という名の罠

多くのチュートリアルでは、`ThisDrawing.ModelSpace.AddLine(…)` のような記述が当たり前のように登場する。しかし、これはマルチドキュメント環境においては極めて危険な「暗黙の前提」に基づいている。

VBAの実行中にユーザーが別の図面ウィンドウをアクティブにした瞬間、`ThisDrawing` が指し示す実体は、プログラムが意図したものから、ユーザーが現在見ている図面へと変貌する。

鉄則：オブジェクトは常に「明示的」に保持せよ

プロフェッショナルは、`ThisDrawing` を直接操作しない。常に `AcadDocument` 型の変数に、操作対象となるオブジェクトを「捕捉（Capture）」し、その参照を使い続ける。

2. 実装指針：堅牢な図面コントローラー・パターン

図面をオープンし、処理を行い、保存して閉じる。この一連の流れを、外部の環境変化から隔離するための実装パターンを示す。

以下に、図面操作のコンテキストを分離するための、高度に抽象化された制御ロジックの雛形を提示する。

' --- Module: DocumentController ---
Option Explicit

' 図面操作のステートを管理するための型定義
' 呼び出し側で、操作対象のDocumentを厳密に保持する
Public Sub ExecuteSafeProcess(ByVal filePath As String)
    Dim acadApp As AcadApplication
    Dim targetDoc As AcadDocument
    Dim originalDoc As AcadDocument
    
    On Error GoTo ErrorHandler

    ' AutoCADアプリケーションへの参照取得
    Set acadApp = ThisDrawing.Application
    
    ' 現在のアクティブ図面を退避（コンテキストの保存）
    ' これにより、処理終了後にユーザーの作業環境を復元できる
    Set originalDoc = acadApp.ActiveDocument
    
    ' --- 図面のオープン ---
    ' Documents.Open は開いた図面オブジェクトを返す。
    ' ここで取得した参照を、以降のすべての操作の「唯一の真実」とする。
    Debug.Print "Opening: " & filePath
    Set targetDoc = acadApp.Documents.Open(filePath)
    
    ' --- 図面操作の実行 ---
    ' 重要：ThisDrawing.ModelSpace ではなく、targetDoc.ModelSpace を使用する
    PerformHeavyTask targetDoc
    
    ' --- 保存とクローズ ---
    targetDoc.Save
    targetDoc.Close
    
    ' オブジェクトの明示的解放（メモリ管理の基本）
    Set targetDoc = Nothing
    
    ' 元の図面をアクティブに戻す（ユーザーへの配慮）
    originalDoc.Activate
    Set originalDoc = Nothing
    
    Debug.Print "Process completed successfully."
    Exit Sub

ErrorHandler:
    MsgBox "Critical Error in Document Process: " & Err.Description, vbCritical
    ' エラー発生時も、可能な限りオブジェクトを解放し、状態を復旧させる
    If Not targetDoc Is Nothing Then
        ' 未保存の変更がある場合の処理を検討（ReadOnlyにするか、Saveするか）
        targetDoc.Close False 
        Set targetDoc = Nothing
    End If
    If Not originalDoc Is Nothing Then originalDoc.Activate
End Sub

' 実際の作業ロジック（引数としてDocumentを受け取ることで、対象を固定する）
Private Sub PerformHeavyTask(ByRef doc As AcadDocument)
    Dim mSpace As AcadModelSpace
    Dim line As AcadLine
    Dim startPt(0 To 2) As Double
    Dim endPt(0 To 2) As Double
    
    ' 図面オブジェクトから直接ModelSpaceを取得
    Set mSpace = doc.ModelSpace
    
    startPt(0) = 0: startPt(1) = 0: startPt(2) = 0
    endPt(0) = 100: endPt(1) = 100: endPt(2) = 0
    
    ' 常に渡された doc オブジェクトのコンテキスト内で実行
    Set line = mSpace.AddLine(startPt, endPt)
    line.Update
    
    Debug.Print "Task performed on: " & doc.Name
End Sub

3. メモリの深淵：COMオブジェクトのライフサイクルと解放

AutoCAD VBAはCOM（Component Object Model）技術に基づいている。図面を大量にオープン・クローズするバッチ処理において、最も恐ろしいのは「メモリリークによるAutoCADのクラッシュ」である。

なぜ `Set obj = Nothing` だけでは足りないのか

VBAの参照カウントがゼロになればオブジェクトは破棄される。しかし、AutoCADの内部構造においては、図面内のエンティティ（Line, Circle等）が、親である `Document` オブジェクトへの参照を複雑に保持している場合がある。

特に、以下の点に注意せよ：
1. 循環参照の回避: 図面オブジェクトをグローバル変数や、長寿命のクラスモジュール内で保持し続けるな。
2. Scope（スコープ）の最小化: オブジェクト変数は、可能な限りプロシージャ内（Local Scope）で定義し、プロシージャ終了時に自動的に参照カウントが減るように設計せよ。
3. 明示的な解放の順序: 子要素（Entity）から順に解放するのではなく、親（Document）のコンテキストを確実に終了させることで、AutoCADのガベージコレクションを促す。

4. システム間連携におけるWindows APIの知見

高度な自動化システムでは、AutoCADの外部（C#やPython、あるいは別のVBAプロセス）からAutoCADを操作する場合がある。このとき、AutoCADが「フォアグラウンド（最前面）」にいるかどうかが、ユーザー体験を左右する。

VBA単体では、図面を「バックグラウンド（非表示）」で開くことは不可能に近い（`Documents.Open` は必ず図面を可視化させる）。しかし、Windows APIを用いて、操作中の図面ウィンドウのフォーカスを制御し、ユーザーの作業を妨げない「擬似的なバックグラウンド処理」を実現するアプローチがある。

' --- Windows APIによるウィンドウ制御の断片 ---
If VBA7 Then
    Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hwnd As LongPtr) As Long
    Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
Else
    Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Declare Function GetForegroundWindow Lib "user32" () As Long
End If

' 図面操作中にユーザーの作業ウィンドウを最前面に維持するためのヒント
' (実際には、操作対象の図面ウィンドウを最小化、あるいは操作後に復元する制御が必要)

※注：APIによる強制的なウィンドウ制御は、OSのウィンドウマネージャとAutoCADの描画スレッドの競合を引き起こすリスクがある。極めて慎重なテストが必要だ。

5. 結論：アーキテクトとしての規律

マルチドキュメント環境における図面制御の本質は、「コンテキストの完全な隔離」にある。

1. `ThisDrawing` を捨て、`AcadDocument` 変数を信じろ。
2. すべてのメソッドの引数に `Document` を明示的に渡せ。
3. エラーハンドリングは「状態の復旧」までを責務とせよ。

これらを遵守すること。それが、数千枚の図面を自動処理する大規模システムにおいて、深夜の呼び出しを防ぐ唯一の手段である。