【AutoCAD VBA】外部参照（Xref）ロード抑止による超高速図面オープン・アーキテクチャ
大規模なプラント設計、インフラ土木、建築設計の現場において、1つのメイン図面に数Mb〜数10MBクラスの外部参照（Xref）が数十件配置されているケースは珍しくありません。これらの図面群をバッチ処理（図面枠情報の集計、属性抽出、レイヤー一括変更など）しようとした際、最大のボトルネックとなるのが「図面オープン時における外部参照の再解析とメモリロード（I/Oおよびネットワーク待機）」です。
低速なファイル共有サーバー（SMBプロトコル）上のパスが設定されたXrefや、リンク切れを起こしているXrefが存在する場合、1ファイルのオープンに数分単位のブロックが発生し、バッチ処理全体の実行時間が破綻します。
本稿では、レガシーかつ現代の業務自動化の最前線に立つエンジニアに向けて、AutoCAD VBAおよびCOM/ObjectDBX環境下において外部参照のロードを完全に抑制・制御し、図面オープン速度を極限まで引き上げる高度なアーキテクチャを解説します。
—
1. 外部参照ロードが引き起こすI/Oボトルネックの解剖
AutoCADが `Documents.Open` メソッドを実行する際、内部では単にDWGのB-Tree構造（図形データベース）を読み込むだけでなく、以下の同期処理をパイプライン上で実行します。
[DWG Open Call]
│
├── 1. メインDWGヘッダーおよびAcDbDatabaseの解析
├── 2. 外部参照テーブル (BlockTableRecord – XREF) の走査
├── 3. 各Xrefパスのファイルシステム / ネットワーク探索 (SMB Sync Wait)
├── 4. Xref宛先DWGのメモリ展開 & ネストされたXrefの再帰解析
└── 5. ディスプレイスキャン & 描画パイプラインの初期化 (GUIモード時)
ステップ3およびステップ4における再帰的ファイル探索と同期I/Oが、オートメーション処理におけるレイテンシの90%以上を占めます。
これを回避・最適化するための手法は、大きく分けて以下の2つのアプローチが存在します。
1. ObjectDBX（`AxDbDocument`）によるノン・グラフィカル高速オープン（グラフィック描画・UIスレッドを介さない完全軽量読み込み）
2. システム変数（`DEMANDLOAD` / `XLOADCTL`）およびレジストリ制御を組み込んだGUIコンテキストの高速オープン（CAD画面上で処理を完了させる必要がある場合）
用途に応じてこれらを正しく選択・実装することが、プロフェッショナルな設計者に求められます。
—
2. アーキテクチャ比較：ObjectDBX vs GUIオープン制御
| 制御要素 | ObjectDBX (`AxDbDocument`) | Documents.Open (システム変数制御) |
| :— | :— | :— |
| Xrefのロード挙動 | デフォルトで完全スキップ | システム変数設定に応じて抑制 |
| 処理速度 | 極限（通常オープンの5〜20倍） | 中速（描画エンジンは初期化される） |
| メモリフットプリント | 最小（1DWGあたり数MB程度） | 大（AutoCAD本体のメモリ領域を消費） |
| UI表示 | なし（バックグラウンド処理） | あり（図面ウィンドウが開く） |
| 制限事項 | 選択セット(`SelectionSets`)やLISP実行、一部プロパティの書き換え不可 | AutoCAD全機能利用可能 |
—
3. 実装：Xref完全抑止バッチ処理モジュール
以下に示すVBAコードは、エンタープライズ環境での運用に耐えうる堅牢な実装です。
以下の技術仕様を網羅しています。
- Win32 API（`QueryPerformanceCounter`） によるマイクロ秒精度のパフォーマンス計測
- RAIIパターン風のステート管理（エラー発生時でも必ずCADのシステム変数を復元する例外安全設計）
- ObjectDBX（`AxDbDocument`）の動的インターフェースバインディング（AutoCADバージョン依存の解決）
- COMオブジェクトの明示的メモリ解放（ガベージコレクションに依存しない確定的なリソース破棄）
動作可能なコンプリートVBAソースコード
標準モジュール（例: `Mdl_XrefOptimizer.bas`）に以下を記述します。
Option Explicit
‘ ==============================================================================
‘ Win32 API 宣言（高精度タイマー用）
‘ ==============================================================================
If VBA7 Then
Private Declare PtrSafe Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare PtrSafe Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long
Else
Private Declare Function QueryPerformanceCounter Lib “kernel32” (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib “kernel32” (lpFrequency As Currency) As Long
End If
‘ ==============================================================================
‘ 定数定義
‘ ==============================================================================
Private Const SYS_DEMANDLOAD As String = “DEMANDLOAD”
Private Const SYS_XLOADCTL As String = “XLOADCTL”
‘ ==============================================================================
‘ メイン処理：高速図面オープンおよびデータ処理のエントリポイント
‘ ==============================================================================
Public Sub FastOpenAndProcessDrawing()
Dim targetFilePath As String
‘ テスト対象のDWGパス（環境に合わせて書き換えてください）
targetFilePath = “C:\EngineeringData\Heavy_Plant_Layout.dwg”
If Dir(targetFilePath) = “” Then
MsgBox “指定された図面ファイルが存在しません: ” & targetFilePath, vbCritical, “エラー”
Exit Sub
End If
Debug.Print “=== 高速オープン処理開始 ===”
‘ アプローチ1: ObjectDBXによる最速読み込み (UI非表示・Xref未ロード)
Call ProcessViaObjectDBX(targetFilePath)
‘ アプローチ2: GUIコンテキストでのXref抑止オープン
Call ProcessViaGUIWithXrefSuppression(targetFilePath)
Debug.Print “=== 処理完了 ===”
End Sub
‘ ==============================================================================
‘ 手法1: ObjectDBX (AxDbDocument) を用いた超高速処理
‘ ==============================================================================
Private Sub ProcessViaObjectDBX(ByVal filePath As String)
Dim dbxDoc As Object
Dim startTime As Currency, endTime As Currency, freq As Currency
Dim block As Object
Dim xrefCount As Long
QueryPerformanceFrequency freq
QueryPerformanceCounter startTime
On Error GoTo ErrorHandler
‘ AutoCADのバージョンに対応したObjectDBXインスタンスの動的生成
Set dbxDoc = GetObjectDBXDocument()
If dbxDoc Is Nothing Then
Err.Raise vbObjectError + 1001, , “ObjectDBXの初期化に失敗しました。”
End If
‘ 図面データベースの同期ロード (Xrefおよび描画要素の生成はスキップされる)
dbxDoc.Read filePath
‘ 例: ブロックテーブルを走査してXrefの存在数を特定するだけの処理
xrefCount = 0
For Each block In dbxDoc.Blocks
If block.IsXRef Then
xrefCount = xrefCount + 1
End If
Next block
QueryPerformanceCounter endTime
Debug.Print String(50, “-“)
Debug.Print “[ObjectDBX] 処理結果:”
Debug.Print ” ファイルパス: ” & filePath
Debug.Print ” 検出されたXref数: ” & xrefCount
Debug.Print ” 所要時間: ” & Format$((endTime – startTime) / freq, “0.0000”) & ” 秒”
Debug.Print String(50, “-“)
Cleanup:
‘ 明示的なオブジェクトの破棄 (メモリリーク防止)
Set dbxDoc = Nothing
Exit Sub
ErrorHandler:
Debug.Print “[ObjectDBX Error] ” & Err.Description
Resume Cleanup
End Sub
‘ ==============================================================================
‘ 手法2: GUIモードにおけるシステム変数制御によるXref抑止オープン
‘ ==============================================================================
Private Sub ProcessViaGUIWithXrefSuppression(ByVal filePath As String)
Dim acadDoc As AcadDocument
Dim oldDemandLoad As Integer
Dim oldXLoadCtl As Integer
Dim startTime As Currency, endTime As Currency, freq As Currency
QueryPerformanceFrequency freq
QueryPerformanceCounter startTime
On Error GoTo ErrorHandler
‘ 1. 現在のシステム変数をキャプチャ (状態復元の保証用)
oldDemandLoad = ThisDrawing.GetVariable(SYS_DEMANDLOAD)
oldXLoadCtl = ThisDrawing.GetVariable(SYS_XLOADCTL)
‘ 2. Xrefの自動ロードおよびデマンドロードを極限まで抑制
‘ DEMANDLOAD = 0: カスタムオブジェクトおよび外部参照のデマンドロードを無効化
‘ XLOADCTL = 0: 外部参照のロードを即座に有効化せず、要求まで遅延/無視
ThisDrawing.SetVariable SYS_DEMANDLOAD, 0
ThisDrawing.SetVariable SYS_XLOADCTL, 0
‘ 3. 図面を開く
‘ ※DEMANDLOAD/XLOADCTLの制御下で開かれるため、ネットワーク経由の解析が最小化される
Set acadDoc = AcadApplication.Documents.Open(filePath, ReadOnly:=True)
QueryPerformanceCounter endTime
Debug.Print String(50, “-“)
Debug.Print “[GUI Control Open] 処理結果:”
Debug.Print ” ファイルパス: ” & acadDoc.Name
Debug.Print ” 所要時間: ” & Format$((endTime – startTime) / freq, “0.0000”) & ” 秒”
Debug.Print String(50, “-“)
‘ タスク処理完了後、図面を保存せずに閉じる
acadDoc.Close False
Set acadDoc = Nothing
Cleanup:
‘ 4. システム変数を絶対安全に元の状態へ復元 (RAIIの徹底)
On Error Resume Next
ThisDrawing.SetVariable SYS_DEMANDLOAD, oldDemandLoad
ThisDrawing.SetVariable SYS_XLOADCTL, oldXLoadCtl
On Error GoTo 0
Exit Sub
ErrorHandler:
Debug.Print “[GUI Open Error] ” & Err.Description
Resume Cleanup
End Sub
‘ ==============================================================================
‘ ヘルパー関数: バージョン非依存の ObjectDBX オブジェクトの生成
‘ ==============================================================================
Private Function GetObjectDBXDocument() As Object
Dim dbxInst As Object
Dim progIDs As Variant
Dim i As Long
‘ AutoCAD 2015〜2024+ までのObjectDBX ProgIDのフォールバック配列
progIDs = Array( _
“ObjectDBX.AxDbDocument”, _
“ObjectDBX.AxDbDocument.24”, _
“ObjectDBX.AxDbDocument.23”, _
“ObjectDBX.AxDbDocument.22”, _
“ObjectDBX.AxDbDocument.21”, _
“ObjectDBX.AxDbDocument.20” _
)
For i = LBound(progIDs) To UBound(progIDs)
On Error Resume Next
Set dbxInst = CreateObject(CStr(progIDs(i)))
On Error GoTo 0
If Not dbxInst Is Nothing Then Exit For
Next i
‘ AutoCAD内部コンテキストからの生成（上記で失敗した場合）
If dbxInst Is Nothing Then
On Error Resume Next
Set dbxInst = AcadApplication.GetInterfaceObject(CStr(progIDs(0)))
On Error GoTo 0
End If
Set GetObjectDBXDocument = dbxInst
End Function
—
4. アーキテクトが抑えるべき深層メカニズムと注意点
① `DEMANDLOAD` と `XLOADCTL` のフラグ値の意味
コード内で制御しているシステム変数の挙動を正しく理解しておく必要があります。
- `DEMANDLOAD` (Demand Loading)
- `0`: デマンドロードを無効化。外部図面やサードパーティのARXアプリケーションを必要になるまで自動ロードしない。
- `3`: （デフォルト）ソース図面およびカスタムオブジェクトのデマンドロードを完全に有効化。
- `XLOADCTL` (Xref Load Control)
- `0`: 外部参照ファイルを即座にすべてロードする（参照元のファイルを共有アクセス保護しない）。
- `2`: コピーを作成してロード。元ファイルは他者が書き込み可能。
大量バッチ時には、`DEMANDLOAD = 0` に設定することで、参照先ファイルのタイムスタンプチェックやネットワーク境界を越えた同期解析をバイパスできます。
② ObjectDBX使用時のメモリ管理と注意点
ObjectDBX（`AxDbDocument`）は圧倒的なパフォーマンスを誇りますが、万能ではありません。COMインターフェースとしての寿命管理に厳しい制約があります。
1. 参照の確実な解放:
`Set dbxDoc = Nothing` を明示的に呼び出さない場合、AutoCADプロセス内部にメモリブロックが残り、大量のファイルをループ処理する際に `Out of Memory`（VBA Error 7）やAutoCADの突然死を引き起こします。
2. モデル空間・ペーパー空間のエンティティ操作:
`dbxDoc.ModelSpace` から取得したオブジェクトのプロパティを変更した場合、 `dbxDoc.SaveAs` を明示的に呼ぶ必要があります。
3. UI依存メソッドの拒絶:
`dbxDoc` に対して `Utility.GetPoint` や `SelectionSets.Add` など、ユーザーインターフェースをトリガーするCOMメソッドを呼ぶと、実行時例外が発生します。
③ ネットワーク・タイムアウト問題（SMB/UNCパス）の完全遮断
最も悲惨なシナリオは、「参照先のネットワークドライブが切断されている」または「存在しないUNCパス（`\\NAS01\CAD\…`）が外部参照に設定されている」場合です。
この場合、WindowsのSMBタイムアウト（デフォルトで約20秒〜45秒）がファイルごとに発生します。
GUIオープンでこれを防ぐ極限のテクニックとして、一時的に サポート検索パス（`PreferencesFiles.SupportPath`）から不要なパスを外す、あるいは Win32 APIでネットワーク接続状態をあらかじめ高速Ping/Portチェックする という防衛的プログラミングが有効です。
—
5. まとめ
大規模CADシステムの自動化においては、単に「コードが動く」レベルから一歩踏み出し、「ファイルI/Oの特性」「AutoCADの内部データベース構造」「メモリ空間のライフサイクル」を極限まで制御する視点が不可欠です。
- データ抽出・プロパティ一括変更・非描画処理 ＝ ObjectDBX (`AxDbDocument`) 一択
- GUI描画や印刷、LISP連携が必須の処理 ＝ `DEMANDLOAD=0` / `XLOADCTL=0` の状態管理＋`Documents.Open`
この2つのラインを適切に使い分けることで、数時間を要していた図面バッチ処理を「数分」の次元へと高速化することが可能です。貴社のレガシーVBA資産の高速化・安定化に向け、ぜひ本アーキテクチャを組み込んでみてください。
