【実務・中級編】【上級】AcadDocument.Database.XRefDatabaseを再帰的に走査し、ネストされた外部参照の「未解決」状態を自動修復する – AutoCAD VBA解析バイブル

【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の深層を理解すれば、これほど強力な自動化ツールはない。今回紹介した再帰的アプローチは、単なるパス修復だけでなく、外部参照のプロパティ一括変換や、図面内のレイヤー整合性チェックにも応用できる汎用的なフレームワークだ。

「なぜ動かないのか」と悩む時間を、「どう構造化すれば確実に動くか」を考える時間へと転換せよ。それが、現場を変えるエンジニアの矜持である。