【AutoCAD VBA】図面分割の極意：レイアウト抽出から見るメモリ管理の深淵
AutoCADの巨大なDWGから、特定のレイアウトのみを切り出し、整合性を保ったまま「新規図面」として書き出す。一見すると単純な`Layout.Copy`や`WBLOCK`の応用に見えるが、実務でこれを数百枚規模の図面群に対して行うと、メモリリークと残置オブジェクトが牙を剥く。
今回は、単なる「動くコード」ではなく、AutoCADという巨大なCOMサーバーのライフサイクルを制御し、いかにしてシステムを破綻させずに自動化するかという、アーキテクトの視点から解説する。
—
1. なぜ「WBLOCK」の直叩きが危険なのか
多くのエンジニアが陥る罠は、`SendCommand`を使ってコマンドライン越しに`WBLOCK`を実行することだ。これは、非同期処理の制御が甘くなり、デッドロックや「現在開いている図面がロックされている」というエラーを誘発する。
真のエンジニアは、ObjectDBX (AxDbDocument) を使用する。これはAutoCADのUIを起動せずにDWGを操作する軽量インターフェースであり、メモリ消費を劇的に抑えつつ、バックグラウンドでの高速なファイル編集を可能にする。
—
2. 実装の核心：ObjectDBXによるレイアウト抽出
以下のコードは、アクティブ図面の特定レイアウトを新規DWGとして書き出すための「堅牢な」テンプレートである。
‘ 必要な参照設定: AutoCAD ObjectDBX Common Type Library
Public Sub ExtractLayoutToNewFile(targetLayoutName As String, savePath As String)
Dim dbxDoc As AxDbDocument
Dim sourceDoc As AcadDocument
Dim layout As AcadLayout
‘ メモリ最適化: 早期バインディングで定義
Set sourceDoc = ThisDrawing.Application.ActiveDocument
Set dbxDoc = Application.GetInterfaceObject(“ObjectDBX.AxDbDocument.” & Left(AcadApplication.Version, 2))
‘ ObjectDBXに現在の図面をロード
dbxDoc.Open sourceDoc.FullName
‘ 対象レイアウトの存在確認とコピー
‘ 注意: AxDbDocumentはUIを持たないため、CopyObjectsの際は特に厳密な処理が必要
On Error Resume Next
Dim objCollection(0) As Object
Set objCollection(0) = dbxDoc.Layouts.Item(targetLayoutName).Block
‘ ここで別ファイルへの書き出し処理を行う
‘ 実務では WBLOCK ではなく、データベースの複製を推奨する
‘ … (レイアウト複製ロジック) …
dbxDoc.SaveAs savePath
‘ オブジェクトの明示的解放 – これが最も重要
Set dbxDoc = Nothing
If Err.Number <> 0 Then
MsgBox “抽出失敗: ” & Err.Description, vbCritical
End If
On Error GoTo 0
End Sub
—
3. メモリリークを根絶する「アーキテクトの矜持」
VBAのガーベジコレクションは、COMオブジェクトに対して極めて無頓着だ。特に`AcadDatabase`や`AxDbDocument`を大量に開閉するツールでは、以下の原則を厳守せよ。
1. Set Nothingの徹底: スコープを抜ける前に、必ず全てのオブジェクトを`Nothing`にリセットする。特にコレクション内の要素をループで回す際は、ループ内で生成した一時オブジェクトを必ず解放すること。
2. Windows APIによるプロセス監視: 巨大な図面を扱う際、時折AutoCADプロセスがゾンビ化する。`GetWindowThreadProcessId`を用いて、対象のドキュメントが正しく破棄されたかをハンドルレベルで監視する仕組みを組み込むのが、シニアエンジニアの流儀だ。
3. 図面データベースの整合性: `WBLOCK`に近い処理を行う際、ブロック定義が欠落することがある。`Purge`を安易に行わず、`Audit`（監査）メソッドを明示的に呼び出し、データベースの完全性を担保した上で保存する。
—
4. レガシー環境での保守とシステム連携
社内システムで本ツールを運用する場合、「AutoCADのバージョン互換」が常に足枷となる。
- バージョン判定: `AcadApplication.Version`を動的に取得し、`AxDbDocument`のインターフェースを指定するロジックを共通クラス化しておくこと。
- ファイルロックの回避: ネットワーク上のDWGを直接編集せず、必ずローカルのTempフォルダにコピーしてから処理する。これは、ネットワーク切断による「ゴーストファイル」の発生を防ぐための、最も低コストで最も効果的な防衛策だ。
—
結びに代えて
自動化とは、単に工数を減らすことではない。「人間が手作業で起こすミスを、システム的な制約によって物理的に不可能にする」ことこそが本質だ。
今回紹介したObjectDBXによる抽出手法は、UIを排した堅牢な設計を可能にする。このコードをベースに、貴殿の環境に最適な「エラーハンドリング」と「ログ出力」を肉付けしてほしい。
技術は裏切らない。コードの隅々にまで「なぜそう書いたのか」という意図を刻み込むこと。それが、伝説的な自動化エンジニアへの第一歩となる。
