【AutoCAD VBA極限最適化】ObjectDBXによる「図面を開かない」超高速属性書き換えの真髄
AutoCADの自動化において、`Documents.Open`を繰り返す手法は、もはや「素人」の所業だ。数百枚の図面に対してGUIを起動し、メモリを浪費させ、描画更新を待つ。そんな低効率なスクリプトを書いて時間をドブに捨てているエンジニアに対し、私はあえて言いたい。「DWGファイルを『開く』という固定観念を捨てよ」と。
本稿では、AutoCADのバックグラウンド処理の要であるObjectDBX (AxDbDocument) を駆使し、メモリ消費を極限まで抑えながら、数百枚の属性値を数秒で更新するアーキテクチャを伝授する。
—
1. なぜ「開いてはいけない」のか：技術的背景
AutoCADのプロセス（`acad.exe`）はGUIレンダリング、イベントリスナー、コマンドスタックなど、膨大なリソースを抱える肥大化したモンスターだ。`Documents.Open`はこれら全てをロードするため、I/O負荷が極大化する。
一方、`ObjectDBX`は「DWGデータベースへの直接的なインターフェース」である。GUIを持たず、最小限のメモリ空間でバイナリデータにアクセスする。これこそが、SIerや設計コンサルタントが大規模図面管理で生き残るための「唯一の正攻法」だ。
—
2. 実装：ObjectDBXによる属性一括書き換え
以下のコードは、指定フォルダ内の全DWGに対し、特定のブロック属性を書き換えて保存するルーチンだ。
‘ 伝説的なアーキテクトによるObjectDBX高速更新ルーチン
Sub BatchUpdateAttributes(ByVal targetFolder As String, ByVal tagName As String, ByVal newValue As String)
Dim dbx As Object
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim folder As Object: Set folder = fso.GetFolder(targetFolder)
Dim file As Object
‘ ObjectDBXインターフェースの生成
‘ ※レガシー環境ではバージョン依存があるため、ObjectDBX.AxDbDocument.XX を指定
Set dbx = CreateObject(“ObjectDBX.AxDbDocument.24”) ‘ AutoCAD 2021以降向け
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “dwg” Then
‘ バックグラウンドで開く（GUI非表示）
dbx.Open file.Path
‘ モデル空間内のエンティティを走査
Dim ent As Object
For Each ent In dbx.ModelSpace
If ent.ObjectName = “AcDbBlockReference” Then
If ent.HasAttributes Then
Dim attrs As Variant
attrs = ent.GetAttributes
Dim i As Integer
For i = LBound(attrs) To UBound(attrs)
If attrs(i).TagString = tagName Then
attrs(i).TextString = newValue
attrs(i).Update
End If
Next i
End If
End If
Next ent
‘ 上書き保存（高速・非同期に近い挙動）
dbx.SaveAs file.Path
‘ メモリの強制解放：ここが重要
‘ 参照を初期化し、GC(Garbage Collector)にヒントを与える
Set dbx = Nothing
Set dbx = CreateObject(“ObjectDBX.AxDbDocument.24”)
End If
Next file
End Sub
—
3. 現場で「死なない」ための極限チューニング
メモリリーク対策の徹底
VBAの参照カウンタは、ループ処理においてしばしば解放漏れを起こす。特に`ObjectDBX`のインスタンスを使い回すと、大規模な図面を処理した際にメモリがフラグメント化する。上記のコードのように、ファイルを一つ処理するごとにインスタンスを再生成するのが、安定性を保つための「賢者の戦略」だ。
Windows APIによるファイルロックの回避
ネットワーク共有上の図面を扱う際、他のプロセスによるロックでスクリプトが止まることがある。これを防ぐには、`CreateFile` APIを使用してファイルアクセス権を事前に確認するか、エラーハンドリングで`Err.Number`を厳密に判定し、リトライロジック（指数バックオフ）を組み込むことが不可欠である。
バージョン互換制御
`ObjectDBX.AxDbDocument.XX` は、インストールされているAutoCADのバージョンに厳密に依存する。レガシー環境が混在する社内システムでは、`ProgID`をレジストリから動的に取得するラッパー関数を実装し、抽象化レイヤーを一枚挟むのがプロの仕事だ。
—
4. 結び：エンジニアとしての矜持
AutoCAD VBAは「古い」と切り捨てるのは容易い。しかし、APIの深層を理解し、ObjectDBXを適材適所で使いこなすエンジニアにとって、それは最強の「自動化武器」であり続ける。
「図面を開く」という無駄な動作を排除し、データそのものを直接操作する。このアプローチを習得した者だけが、数百枚、数千枚の図面更新という苦行から解放され、より本質的な設計自動化の世界へ足を踏み入れることができる。
次は、このObjectDBXの非同期処理をさらに拡張し、`Multi-threading`（VBAの制限を超えるための外部タスク連携）について触れるとしよう。技術を語るには、まだ先がある。
—
執筆：AutoCAD開発アーキテクト
