【AutoCAD VBA極致】ネストされた外部参照の深淵を制す：再帰的修復エンジンの設計思想
AutoCADの業務自動化において、最もエンジニアの胃を痛める問題の一つが「外部参照（XRef）のリンク切れ」だ。特に数階層にネストされた外部参照の未解決状態は、手動でパスを一つずつ辿るなど、もはや現代のエンジニアが行うべき作業ではない。
今日は、AutoCAD VBAのオブジェクトモデルを深く理解し、`AcadDocument.Database`の階層構造を再帰的に走査して、リンク切れを一網打尽にする「堅牢な修復エンジン」の書き方を伝授する。
—
1. なぜ「単純なループ」では破綻するのか
多くの開発者が陥る罠は、`Blocks`コレクションを単にループして、`IsXRef`プロパティを判定するだけのコードだ。これでは、「ネストされた外部参照の内部」にアクセスできない。
AutoCADのデータベース構造は木構造である。親図面が参照している図面自体が、さらに別の図面を参照している場合、その子図面の`Database`オブジェクトに直接潜り込まなければ、真のパス修復は不可能だ。
2. アーキテクチャ設計の要諦
本ツールでは以下の原則を貫く。
1. 再帰的走査（Recursion）: 親から子へ、子から孫へとスタックを消費しながら潜り込む設計。
2. データベースのキャッシュ: `XRefDatabase`プロパティを介してメモリ上に展開されたDBを操作する。
3. セーフティ・ファースト: ファイルパスの存在確認には `Scripting.FileSystemObject` を使い、予期せぬ実行時エラーを未然に防ぐ。
—
3. プロダクションコード：XRef修復エンジン
このコードは、メイン図面から再帰的にブロック定義を辿り、未解決の外部参照を「指定のサーバーパス」へ強制的にリバインドする設計となっている。
Option Explicit
‘ 外部参照修復のメインエントリーポイント
Public Sub RepairNestedXRefs()
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 修復先サーバーパス (環境に合わせて変更してください)
Dim newPath As String
newPath = “\\Server\Project\XRefs\”
‘ 再帰的走査の開始
TraverseAndRepair doc.Database, newPath
MsgBox “外部参照の走査と修復が完了しました。”, vbInformation
End Sub
‘ 再帰的な走査エンジン
Private Sub TraverseAndRepair(db As AcadDatabase, newPath As String)
Dim blk As AcadBlock
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
For Each blk In db.Blocks
‘ 外部参照ブロックであるかを判定
If blk.IsXRef Then
‘ 未解決（パスが切れている）かを確認
If Not fso.FileExists(blk.Path) Then
‘ パスを強制的に書き換える（ファイル名のみ抽出して結合）
Dim fileName As String
fileName = fso.GetFileName(blk.Path)
On Error Resume Next ‘ 権限やロック等のエラー回避
blk.Path = newPath & fileName
On Error GoTo 0
End If
‘ さらにネストされた外部参照がある場合、そのデータベースへ潜る
If Not blk.XRefDatabase Is Nothing Then
TraverseAndRepair blk.XRefDatabase, newPath
End If
End If
Next blk
End Sub
—
4. 開発現場で生き残るための「深層知見」
① `AcadDatabase` のメモリ管理
`blk.XRefDatabase` にアクセスすると、AutoCADはメモリ上にその図面情報をロードする。大規模な図面でこれを繰り返すとメモリ消費が激しくなる。もし数百枚単位の図面を一括処理する場合は、処理の最後に `DoEvents` を適宜挟み、CPUの占有を緩和させる配慮が必要だ。
② `IsXRef` の判定と `XRefDatabase` の非同期性
ごく稀に、`IsXRef` が True なのに `XRefDatabase` が Nothing を返すケースがある。これは、図面が「ロードされていない（Unloaded）」状態である場合に発生する。実務レベルでは、`blk.Load` メソッドを呼び出して一時的にロード状態にするか、エラーハンドリングでスキップするロジックを必ず組み込むこと。
③ パス解決のロジック
本コードでは単純な文字列結合を行っているが、実務では `fso.BuildPath` を使用することを強く推奨する。OS依存のパス区切り文字（`\`）のミスを防ぐためだ。
結論：技術は「仕組み」を理解した者が制する
AutoCAD VBAは古臭いと言われることもあるが、APIの深層を理解すれば、これほど強力な自動化ツールはない。今回紹介した再帰的アプローチは、単なるパス修復だけでなく、外部参照のプロパティ一括変換や、図面内のレイヤー整合性チェックにも応用できる汎用的なフレームワークだ。
「なぜ動かないのか」と悩む時間を、「どう構造化すれば確実に動くか」を考える時間へと転換せよ。それが、現場を変えるエンジニアの矜持である。
