「ThisDrawing」という名の罠を回避せよ：MDI環境におけるDocumentオブジェクトの完全制御
AutoCADの自動化ツールを開発している際、最も恐ろしいのは「エラーで止まること」ではない。「エラーを出さずに、全く別の図面に対して破壊的な操作を行ってしまうこと」だ。
多くの開発者が、慣習的に `ThisDrawing` や `ActiveDocument` をコードの随所に散りばめる。しかし、マルチドキュメントインターフェース（MDI）環境において、これらのグローバルな参照は「いつ、どの図面を指しているか」が極めて不安定な、時限爆弾に他ならない。
本稿では、プロフェッショナルとして、複数の図面をバックグラウンドで制御し、ユーザーの作業を妨げず、かつ絶対に図面を履き違えないための「オブジェクト・ライフサイクル管理」の極意を伝授する。
1. なぜ `ThisDrawing` は「設計上の欠陥」になり得るのか
AutoCAD VBAにおける `ThisDrawing` は、そのコードが記述されているプロジェクトが属する図面を指す。一見便利だが、以下のシナリオでは致命的なバグを引き起こす。
1. 図面オープンによるコンテキストの強制遷移: `Documents.Open` を実行した瞬間、AutoCADのフォーカス（ActiveDocument）は新しく開いた図面に移動する。
2. ユーザーの割り込み: マクロの実行中にユーザーが別の図面をマウスでクリックした瞬間、`ActiveDocument` の参照先は書き換わる。
もし、あなたのコードが `ActiveDocument` をベースに図形を描画したり、属性を書き換えたりしているなら、その操作は「ユーザーが今見ている図面」に対して行われることになる。これは、業務ツールとしては「致命的な欠陥」だ。
プロフェッショナルの鉄則：
> 「グローバルな参照（ThisDrawing/ActiveDocument）をロジックの核にするな。常に明示的な `Document` オブジェクトのハンドルを保持せよ。」**
2. 堅牢な設計指針：Explicit Document Referencing（明示的図面参照）
バグの起きないツールを構築するためには、以下の3つの設計原則を徹底する必要がある。
① 引数によるオブジェクトの注入（Dependency Injection）
サブプロシージャや関数を作成する際、対象となる図面を「暗黙的」に探させるのではなく、必ず `Document` オブジェクトを引数として渡す設計にする。
② 「Open」と「Handle」の分離
図面を開く操作と、その図面に対して処理を行う操作を完全に分離する。`Documents.Open` の戻り値を変数に格納し、その変数を通じてのみ操作を行う。
③ ライフサイクルの厳格な管理
「開いた図面は、必ず閉じる」あるいは「開いた図面は、必ず保存する」というフローを、例外処理（Error Handling）とセットで実装する。
3. 実装例：プロダクション・レディな図面制御エンジン
以下に、複数の図面を安全に開き、特定の処理を実行し、保存して閉じる一連のワークフローを示す。これは単なるサンプルではなく、実務でそのまま利用可能な構造を持っている。
Option Explicit
' ==============================================================================
' Module: DrawingAutomationEngine
' Description: MDI環境における安全な図面操作エンジン
' ==============================================================================
''' <summary>
''' メインエントリポイント。複数の図面に対してバッチ処理を行う。
''' </summary>
Public Sub BatchProcessRoutine()
Dim targetFiles As Collection
Set targetFiles = New Collection
' 処理対象のファイルリスト（実際にはファイルダイアログやDBから取得）
targetFiles.Add "C:\Temp\Drawing_A.dwg"
targetFiles.Add "C:\Temp\Drawing_B.dwg"
Dim filePath As Variant
Dim targetDoc As AcadDocument
On Error GoTo ErrorHandler
For Each filePath In targetFiles
Debug.Print "Processing: " & filePath
' 1. 図面を安全にオープンし、そのハンドルを取得
Set targetDoc = SafeOpenDocument(CStr(filePath))
If Not targetDoc Is Nothing Then
' 2. 明示的なDocumentオブジェクトを引数として処理を委譲
' ここで ThisDrawing を一切使わないことが肝要
ExecuteBusinessLogic targetDoc
' 3. 保存してクローズ
SafeCloseDocument targetDoc, True
Set targetDoc = Nothing
End If
Next filePath
MsgBox "全ての処理が正常に完了しました。", vbInformation
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical
End Sub
''' <summary>
''' 図面をオープンし、そのDocumentオブジェクトを返す。
''' </summary>
Private Function SafeOpenDocument(ByVal fullPath As String) As AcadDocument
On Error GoTo OpenError
' ファイルの存在確認（堅牢性の基本）
If Dir(fullPath) = "" Then
Debug.Print "File not found: " & fullPath
Set SafeOpenDocument = Nothing
Exit Function
End If
' Documents.Open は、開いた図面の Document オブジェクトを返す
' これを捕捉することで、ActiveDocument に依存しない制御が可能になる
Set SafeOpenDocument = ThisDrawing.Application.Documents.Open(fullPath)
Exit Function
OpenError:
Debug.Print "Failed to open: " & fullPath & " | Error: " & Err.Description
Set SafeOpenDocument = Nothing
End Function
''' <summary>
''' 実際の業務ロジック。対象図面を明示的に受け取る。
''' </summary>
Private Sub ExecuteBusinessLogic(ByRef doc As AcadDocument)
' 警告：ここで ActiveDocument や ThisDrawing を使ってはいけない
' 必ず引数として受け取った doc を使用する
Dim mSpace As AcadBlock
Dim lineObj As AcadLine
Dim startPt(0 To 2) As Double
Dim endPt(0 To 2) As Double
' モデル空間の取得
Set mSpace = doc.ModelSpace
' 座標の設定
startPt(0) = 0: startPt(1) = 0: startPt(2) = 0
endPt(0) = 100: endPt(1) = 100: endPt(2) = 0
' 図形作成（docオブジェクト経由で行う）
Set lineObj = mSpace.AddLine(startPt, endPt)
lineObj.Color = acRed
Debug.Print "Successfully modified: " & doc.Name
End Sub
''' <summary>
''' 図面を安全にクローズする。
''' </summary>
Private Sub SafeCloseDocument(ByRef doc As AcadDocument, ByVal saveChanges As Boolean)
On Error GoTo CloseError
If Not doc Is Nothing Then
If saveChanges Then
doc.Save
End If
doc.Close
End If
Exit Sub
CloseError:
Debug.Print "Error closing document: " & doc.Name & " | " & Err.Description
End Sub4. アーキテクトの視点：パフォーマンスとリソースの管理
この設計において、さらに高度なレベルを目指すなら以下の点に留意せよ。
バージョン互換性の制御
`Documents.Open` を行う際、古いバージョンのDWGを扱う可能性があるなら、事前にファイルヘッダーを確認するか、エラーハンドリング内で「アップグレードが必要なファイル」として分離するロジックを組み込むべきだ。
データベース（DB）連携時の整合性
図面内の情報を外部DB（SQL Server等）に書き出す場合、`ExecuteBusinessLogic` 内でトランザクションを管理せよ。図面操作が成功しても、DB書き込みでエラーが起きた場合、図面をロールバック（保存せずに閉じる）する設計が、データの整合性を守る唯一の道である。
メモリリークの防止
VBAのCOMオブジェクト操作において、`Set targetDoc = Nothing` による明示的な参照解除は、ループ処理を行う際のメモリ管理において極めて重要だ。特に大量の図面を処理する場合、これを怠るとAutoCADのメモリ消費が指数関数的に増大し、クラッシュを招く。
まとめ：信頼されるエンジニアであるために
「動くコード」を書くのは初級者だ。「壊れないコード」を書くのが中級者であり、「ユーザーの環境や操作に左右されない、堅牢なアーキテクチャを設計できる」のが上級プロフェッショナルである。
`ThisDrawing` という甘い誘惑を断ち切り、常に `Document` オブジェクトを厳密にハンドリングせよ。それが、大規模なプロジェクトにおいて、あなたの設計に対する信頼を決定づける。
