AutoCAD VBAを掌握する極限の知見：図面への独自メタデータ埋め込み術（Dictionaries & XRecords）
AutoCAD VBAの実務開発において、多くのエンジニアが直面する壁がある。それは「図面ファイル（.dwg）の内部に、カスタムプロパティや外部システム連携用のメタデータをどう持たせるか」という課題だ。
レイヤ名、ブロック属性、あるいは強引に文字（Text/MText）オブジェクトとして図面内に描画する――こうしたレガシーな手法をとっているならば、今すぐその手を止めてほしい。描画データと管理データが混在する設計は、後続の自動化処理や他システム連携において必ず破綻をきたす。
真のプロフェッショナルは、AutoCADの根幹である「Dictionaries（辞書）」と拡張データ構造「XRecords（拡張レコード）」を駆使する。今回は、図面データベースの深層に独自の非可視メタデータを安全かつ高速に埋め込み、抽出するための極限の知見を授けよう。
—
1. AutoCADオブジェクトモデルの深層：なぜ「辞書とXRecords」なのか？
AutoCADの図面（`AcadDocument`）は、単なる線や円の集合体ではない。背後には厳密なオブジェクト指向のデータベースが構築されている。
オブジェクトのプロパティ以外に独自のデータを付与する方法として、かつては`XData（拡張データ）等`が使われていた。しかし、XDataは容量制限（1つのグループにつき16KB）が厳しく、ネスト構造を持てないという致命的な欠点がある。
一方、`Dictionaries` と `XRecords` の組み合わせは以下の圧倒的な優位性を持つ。
- 容量無制限: バイナリデータや長大な文字列を何一つ妥協することなく格納可能。
- 階層構造（ネスト）: ルート辞書の下に独自のサブ辞書を展開し、プロジェクト情報、レビジョン履歴、システム連携IDなどを綺麗に整理して保持できる。
- 図面運命共同体: 図面ファイル（.dwg）の内部に完全にカプセル化されるため、外部データベースやINIFILEへの依存を排除できる。
—
2. 実装アーキテクチャ：安全な書き込みとメモリ最適化
VBAにおけるAutoCADオブジェクト操作で最も恐れなければならないのは、COMオブジェクトの解放漏れによるメモリリークと、図面データベースのトランザクション不整合だ。
特に `Dictionaries` は図面データベース（`Database` オブジェクト）のルート直下に存在するため、参照の取得と解放を誤ると、AutoCAD自体の不安定化を招く。
以下の実用コードは、プロジェクトID、設計担当者、最終同期日時というメタデータを図面内のカスタム辞書に安全に書き込むプロシージャである。
Option Explicit
‘ =========================================================================
‘ ﾌﾟﾛｼｰｼﾞｬ名: SetCustomMetadataToDrawing
‘ 概要: 図面データベースのルート辞書に独自メタデータを安全に書き込む
‘ =========================================================================
Public Sub SetCustomMetadataToDrawing()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim rootDicts As AcadDictionaries
Dim targetDict As AcadDictionary
Dim xrec As AcadXRecord
On Error GoTo ErrorHandler
‘ 1. アプリケーションとアクティブドキュメントの取得（遅延バインディング回避と安全性確保）
Set acadApp = ThisDrawing.Application
Set acadDoc = acadApp.ActiveDocument
‘ 2. データベースのルート辞書（Named Object Dictionary: NOD）を取得
Set rootDicts = acadDoc.Dictionaries
‘ 3. 独自カスタム辞書（例: “MyCompany_MetaData”）の取得または新規作成
Dim dictName As String
dictName = “MyCompany_MetaData”
On Error Resume Next
Set targetDict = rootDicts.Item(dictName)
On Error GoTo ErrorHander
If targetDict Is Nothing Then
Set targetDict = rootDicts.Add(dictName)
End If
‘ 4. 格納するデータ型（DXFコード）と値の定義
‘ DXFグループコード: 1 = 文字列(キー), 3 = 文字列(値), 90 = 長整数 など
Dim dataTypes(0 To 5) As Integer
Dim dataValues(0 To 5) As Variant
dataTypes(0) = 1: dataValues(0) = “ProjectID”
dataTypes(1) = 1: dataValues(1) = “PRJ-202X-9988”
dataTypes(2) = 1: dataValues(2) = “Designer”
dataValues(3) = 1: dataValues(3) = “Chief_Architect”
dataTypes(4) = 1: dataValues(4) = “LastSyncTime”
dataValues(5) = 1: dataValues(5) = CStr(Now)
‘ 5. XRecord（拡張レコード）の作成または更新
Dim xrecName As String
xrecName = “ProjectParameters”
On Error Resume Next
Set xrec = targetDict.Item(xrecName)
On Error GoTo ErrorHandler
If xrec Is Nothing Then
‘ 新規作成
Set xrec = targetDict.AddXRecord(xrecName)
End If
‘ データの書き込み（既存データは上書きされる）
xrec.SetXRecordData dataTypes, dataValues
MsgBox “メタデータの埋め込みに成功しました。”, vbInformation, “システム通知”
GoTo CleanUp
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
CleanUp:
‘ 6. 参照の明示的解放（メモリリーク防止の鉄則）
Set xrec = Nothing
Set targetDict = Nothing
Set rootDicts = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
—
3. 抽出エンジン：非可視データを高速にリードする
書き込んだデータがブラックボックス化していては意味がない。次は、図面を開いた際に、そのメタデータを高速かつ安全に抽出し、外部システム連携や図面検証に活用するコードだ。
‘ =========================================================================
‘ ﾌﾟﾛｼｰｼﾞｬ名: GetCustomMetadataFromDrawing
‘ 概要: 図面内のカスタム辞書からメタデータを抽出する
‘ =========================================================================
Public Sub GetCustomMetadataFromDrawing()
Dim acadDoc As AcadDocument
Dim rootDicts As AcadDictionaries
Dim targetDict As AcadDictionary
Dim xrec As AcadXRecord
Dim dataTypes As Variant
Dim dataValues As Variant
Dim i As Long
Dim resultMessage As String
On Error GoTo ErrorHandler
Set acadDoc = ThisDrawing.Application.ActiveDocument
Set rootDicts = acadDoc.Dictionaries
‘ 辞書の存在確認
On Error Resume Next
Set targetDict = rootDicts.Item(“MyCompany_MetaData”)
On Error GoTo ErrorHandler
If targetDict Is Nothing Then
MsgBox “この図面には独自のメタデータが埋め込まれていません。”, vbExclamation, “データなし”
Exit Sub
End If
‘ XRecordの存在確認
On Error Resume Next
Set xrec = targetDict.Item(“ProjectParameters”)
On Error GoTo ErrorHandler
If xrec Is Nothing Then
MsgBox “指定された拡張レコード（ProjectParameters）が存在しません。”, vbExclamation, “データなし”
Exit Sub
End If
‘ データの取得
xrec.GetXRecordData dataTypes, dataValues
‘ 抽出データの組み立て
resultMessage = “— 埋め込みメタデータ解析結果 —” & vbCrLf
For i = LBound(dataValues) To UBound(dataValues)
resultMessage = resultMessage & “[” & i & “]: ” & CStr(dataValues(i)) & vbCrLf
Next i
MsgBox resultMessage, vbInformation, “メタデータ抽出”
GoTo CleanUp
ErrorHandler:
MsgBox “抽出処理中にエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
CleanUp:
‘ 参照の解放
Set xrec = Nothing
Set targetDict = Nothing
Set rootDicts = Nothing
Set acadDoc = Nothing
End Sub
—
4. チーフアーキテクトからの警鐘：実務運用の落とし穴
この手法を実際のエンタープライズ環境（数百人規模の設計部隊や、PDM/PLMシステムとの連携基盤）に導入する際、以下のポイントを必ず設計仕様書に明記してほしい。
1. 図面バージョンの互換性:
AutoCADのバージョン（特にR14以前の極端なレガシー環境や、他社製CADが吐き出したDWG）では、Named Object Dictionaryの構造が破損している場合がある。読み込み時には必ず `On Error` によるフォールバックを実装すること。
2. 大規模アセンブリ（外部参照: Xref）への配慮:
親図面にメタデータを埋め込んでも、子図面（アタッチされた外部参照）の辞書データは継承されない。システム連携を行う際は、どの図面レベル（ルートか、特定ブロックか）にデータを保持すべきか、アーキテクチャ設計を徹底すること。
3. オブジェクトの解放（`Set ◯◯ = Nothing`）の徹底:
VBAのガベージコレクションは頼りにならない。AutoCADのCOMラッパーオブジェクトはメモリを大量に消費するため、プロシージャの終了前には必ず逆順でオブジェクト変数に `Nothing` を代入し、VBAランタイムとAutoCADプロセス間のメモリリークを断ち切れ。
CADの図面は、単なる「線の集まり」ではなく「情報のデータベース」である。このパラダイムシフトを理解した者だけが、真の自動化とシステム統合の果実を手にすることができる。コードの模倣にとどまらず、背後にあるオブジェクトライフサイクル哲学をあなたのシステムにインストールしてほしい。
