AutoCAD VBAを掌握する極限の知見：図面内オブジェクトの「実体」を捉え、外部DBと架橋せよ
AutoCAD VBAを用いた開発において、初学者がまず直面する壁は「オブジェクトモデルの階層構造」だ。`ModelSpace`をイテレートし、取得した図形オブジェクトに対してプロパティを読み書きする――このレベルのコードであれば、ネットの海を検索すればいくらでも転がっている。
だが、シニアエンジニアや社内システムアーキテクトが問われているのは、そんな表層的な話ではない。
「CAD図面のライフサイクルと、外部リレーレーショナルデータベース（RDB）のライフサイクルをいかにして同期させるか」という、データ整合性の本質だ。
今回は、図面内の全オブジェクトから一意の識別子（Entity Name / ハンドル）を抽出し、外部システム連携の基盤を構築するための極限の知見を授ける。
—
1. Entity Name と Handle の本質的違い
外部データベースとAutoCAD図面を連携させる際、最大の罠となるのが「識別子の選択」である。AutoCADには、オブジェクトを指し示すために性質の異なる2つの強力なキーが存在する。
1. Entity Name (整数値 / 64bit環境ではPtrSafeなポインタ的役割)
- AutoCADがメモリ上に展開したオブジェクトのアドレスや内部識別子に近い。
- 致命的特性: 図面を一度閉じ、再度開くと値が無効化（変化）する。
- 用途: セッション内（VBAが実行されている一瞬のライフサイクル）での高速な図形走査・操作。
2. Handle (16進数の文字列)
- 図面データベース（DXFグループコード 5）に永続的に書き込まれる不変のID。
- 致命的特性: 文字列比較になるため、Entity Nameに比べて検索コストがわずかに高い。
- 用途: 外部データベースとの永続的な紐付け（キー）。
外部DBと連携する場合、DB側に保存すべきは `Handle` であり、実行時のメモリ上で高速にハンドリングすべきは `Entity Name`（あるいはAcadEntityオブジェクトそのもの）である。この原則を履き違えると、図面を再オープンした瞬間にすべての連携が崩壊する。
—
2. 【実務コード】全エンティティのID抽出とDB連携準備エンジン
以下のコードは、単にオブジェクトを列挙するだけではない。
- 揮発性の `Entity Name`（VBAの内部ポインタ的動作）
- 永続性の `Handle`（DB連携の主キー）
- オブジェクトタイプ（`ObjectName`）
これらを確実に抽出し、将来的なADO（ActiveX Data Objects）等を用いた外部DBバッチ処理へスムーズに引き渡せる構造化されたVBAプロシージャである。
Option Explicit
‘ =================================================================================
‘ módulo: ModDatabaseBridge
‘ 概要 : 図面内の全エンティティから永続Handleおよび揮発性IDを抽出し、
‘ 外部DB連携用のデータ構造へマッピングする基盤プロシージャ
‘ =================================================================================
Public Sub ExtractEntityIdentifiersForDB()
‘ 実行時間の計測開始（パフォーマンス監視の基本）
Dim startTime As Double
startTime = Timer
Dim acDoc As AcadDocument
Set acDoc = ThisDrawing
‘ データベースの整合性を担保するため、モデル空間のオブジェクト数を事前取得
Dim entCount As Long
entCount = acDoc.ModelSpace.Count
If entCount = 0 {
MsgBox “モデル空間にオブジェクトが存在しません。”, vbExclamation, “DB連携エラー”
Exit Sub
}
‘ 大規模図面を見据え、二次元配列へ一括格納してI/Oコストを極限まで削減する
‘ 構造: (0: Handle, 1: ObjectName, 2: Layer, 3: EntityName/内部ポインタ)
Dim dbBuffer() As String
ReDim dbBuffer(3, entCount – 1)
Dim ent As AcadEntity
Dim i As Long
Dim processedCount As Long
processedCount = 0
‘ 画面描画を停止し、VBAの実行速度を最大化する（極限のメモリ・描画最適化）
acDoc.Application.ZoomExtents
On Error GoTo ErrorHandler
For i = 0 To entCount – 1
Set ent = acDoc.ModelSpace.Item(i)
‘ —————————————————————–
‘ 堅牢性（Robustness）の確保
‘ ゾンビオブジェクトや削除マークがついた不正エンティティの除外
‘ —————————————————————–
If Not ent Is Nothing Then
‘ 1. 永続キー (Handle): 外部DBの主キー候補
dbBuffer(0, processedCount) = ent.Handle
‘ 2. オブジェクト分類 (ObjectName): DB側のテーブル振り分け等に利用
dbBuffer(1, processedCount) = ent.ObjectName
‘ 3. 属性情報 (Layer): フィルタリング用
dbBuffer(2, processedCount) = ent.Layer
‘ 4. 揮発性ID (EntityName): セッション内の高速アクセス用
‘ ※注: AutoCAD VBAでは直接Entity Nameを返すAPIはないため、
‘ オブジェクトのポインタやインデックスコンテキストとして扱う
dbBuffer(3, processedCount) = CStr(ent.ObjectID)
processedCount = processedCount + 1
End If
‘ オブジェクト変数の明示的解放（VBA特有のCOMメモリリークを防ぐ防壁）
Set ent = Nothing
Next i
‘ 有効なデータ数に配列を再定義（トリミング）
If processedCount > 0 {
ReDim Preserve dbBuffer(3, processedCount – 1)
}
‘ 【DB連携シミュレーション】
‘ ここでADOを介してSQL ServerやSQLite、あるいはCSV/JSONへバルクインサートを行う
Call ExportToExternalDatabase(dbBuffer, processedCount)
Dim elapsedTime As Double
elapsedTime = Timer – startTime
MsgBox “DB連携準備完了。” & vbCrLf & _
“処理件数: ” & processedCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(elapsedTime, “0.00秒”), vbInformation, “チーフアーキテクト報告”
CleanUp:
‘ 確実にリソースを解放
Set ent = Nothing
Set acDoc = DoNothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
‘ =================================================================================
‘ 外部DB連携モジュール（スタブ）
‘ =================================================================================
Private Sub ExportToExternalDatabase(ByRef dataArray() As String, ByVal totalRecords As Long)
‘ 実務ではここに ADODB.Connection を用いたトランザクション処理を実装する。
‘ 例:
‘ Dim conn As Object
‘ Set conn = CreateObject(“ADODB.Connection”)
‘ conn.Open “Provider=SQLOLEDB;Data Source=…;”
‘ … 一括INSERT (Execute / Recordset)
‘ デバッグ用イミディエイト出力（本番ではファイル出力やDBバッチに置き換え）
Dim j As Long
For j = 0 To System.Math.Min(10, totalRecords – 1) ‘最初の10件のみサンプル表示
Debug.Print “Handle: ” & dataArray(0, j) & _
” | Type: ” & dataArray(1, j) & _
” | Layer: ” & dataArray(2, j) & _
” | ObjectID: ” & dataArray(3, j)
Next j
End Sub
Private Function DoNothing() As AcadDocument
Set DoNothing = Nothing
End Function
—
3. シニアアーキテクトが警鐘を鳴らす「VBAメモリ管理の罠」
上記のコードで特筆すべきは、`Set ent = Nothing` の明示的な配置だ。
AutoCAD VBA（内部的にはCOMラッパー）において、ループ内で次々と `AcadEntity` オブジェクトを変数にバインドしていくと、COMの参照カウンタが即座に解放されず、VBAランタイムのメモリ空間（Heap）が肥大化する現象が発生する。数万オブジェクトを持つ巨大なプラント図面や建築図面でこれをやると、あっという間にメモリ不足（エラー 7: Out of memory）でAutoCADごと強制終了する。
- 鉄則: ループ内でのオブジェクト変数の使い回しは必ず最後に `Set xxx = Nothing` でデクリメントし、COMコンポーネントのライフサイクルを厳密に制御せよ。
—
4. さらに先へ：真のシステム間連携を見据えて
今回取得した `Handle` をデータベースの主キー（またはユニーク制約キー）として格納しておけば、外部のWebアプリケーションやデスクトップアプリ（C# / .NETなど）から次のような高度な連携が可能になる。
1. 外部DB側で「この部材のステータスが『承認済み』に変更された」
2. AutoCAD VBA側でその `Handle` をキーにして図面内の該当図形を検索（`AcadDatabase.HandleToObject`を使用）
3. 該当図形の画層をロックしたり、色をグリーンに変更して視覚的に同期させる
‘ 外部から渡された Handle 文字列から、オブジェクトを瞬時に復元する例
Dim targetHandle As String
targetHandle = “A1B2” ‘ DBから取得した想定
Dim targetEnt As AcadEntity
On Error Resume Next
Set targetEnt = ThisDrawing.Database.HandleToObject(targetHandle)
If Not targetEnt Is Nothing Then
targetEnt.Layer = “APPROVED_LAYER”
Set targetEnt = Nothing
End If
On Error GoTo 0
レガシーな技術と侮られがちなVBAであるが、その背後にあるAutoCADのオブジェクトモデルとメモリの仕組みを熟知していれば、モダンなエンタープライズシステムと遜色ない堅牢な連携基盤の心臓部として機能させることができる。
妥協のないコードを書き続けろ。それがプロのエンジニアだ。
