AutoCAD VBAを掌握する極限の知見：図面オブジェクト一括操作のアーキテクチャ
AutoCAD VBAにおけるオブジェクト操作の効率化は、単なる「コード行数の削減」ではない。CADエンジン内部のCOM（Component Object Model）のライフサイクル、メモリ管理、そしてAutoCAD固有のトランザクション構造を完全に理解しているかどうかの試金石である。
今回は、図面内の複数オブジェクトに対して画層や色、線種などのプロパティを一括変更する処理を題材に、実務の現場で耐えうる極限のパフォーマンスと堅牢性を備えたコードの書き方を解説する。
—
1. AutoCAD COMの残酷な真実とパフォーマンスのボトルネック
多くの初学者は、`ModelSpace` や `PaperSpace` を `For Each` ループで回し、一つひとつのオブジェクトの `.Color` や `.Layer` を書き換えるコードを書く。
‘ 【アンチパターン】絶対にやってはならない実装
Dim obj As AcadEntity
For Each obj In ThisDrawing.ModelSpace
obj.Layer = “0”
obj.Color = acRed
‘ この瞬間、COM境界を跨ぐオーバーヘッドと再描画が発生する
Next obj
このアプローチは、小規模な図面であれば動くように見える。しかし、数万件のエンティティを持つ実務図面（プラント図面や大規模建築図面）において、このコードは致命的なパフォーマンス低下を引き起こす。
なぜ遅いのか？
1. COMのマーシャリングオーバーヘッド: VBA（クライアント）とAutoCAD（ホスト）の間で、オブジェクトへの参照が行われるたびにプロセス間通信が発生する。
2. 暗黙の再描画（Graphics Update）: プロパティが変更されるたびに、AutoCADの画面バッファが無効化され、再描画の計算が走る。
3. メモリリークの温床: 適切に参照を解放しない `AcadEntity` のインスタンスがCOMの参照カウンタを汚染し、VBAのガベージコレクションを阻害する。
シニアエンジニアとして、我々は「AutoCADのトランザクションとバッチ処理的思考」をVBAの世界に持ち込まなければならない。
—
2. 堅牢性と速度を極限まで高めた一括プロパティ変更エンジン
以下のコードは、指定した画層、色、線種を持つすべてのオブジェクト（または特定のタイプに絞ったオブジェクト）を、極限まで最適化された状態で一括変更する実用プロシージャである。
Option Explicit
‘ ==============================================================================
‘ 担当アーキテクト: 伝説のチーフアーキテクト
‘ 概要: 図面内の特定条件のオブジェクトプロパティをノーウェイトで一括置換する
‘ ==============================================================================
Public Sub BulkUpdateProperties()
‘ エラーハンドリングの標準化
On Error GoTo ErrorHandler
‘ AutoCADのパフォーマンスを飛躍的に向上させるためのシステム変数退避と制御
Dim oldCursor As Boolean
oldCursor = ThisDrawing.Application.GetSystemVariable(“CURSORBASED”) ‘ 例: システム変数
‘ 画面描画の凍結（これを行わないと、1オブジェクト毎の再描画で処理が10倍以上遅くなる）
ThisDrawing.Application.SetSystemVariable “REDUCEFLASH”, 1 ‘ 環境に応じた最適化
Application.ScreenUpdating = False
Dim targetLayer As String
targetLayer = “OLD_LAYER” ‘ 変更前の画層
Dim newLayer As String
newLayer = “NEW_LAYER” ‘ 変更後の画層
Dim count As Long
count = 0
Dim ent As AcadEntity
Dim sSet As AcadSelectionSet
‘ センスのないオブジェクト名重複を避けるため、既存の同名選択セットがあれば確実に破棄
On Error Resume Next
ThisDrawing.SelectionSets.Item(“BatchUpdateSS”).Delete
On Error GoTo ErrorHandler
‘ 選択セットの新規作成
Set sSet = ThisDrawing.SelectionSets.Add(“BatchUpdateSS”)
‘ フィルター条件の設定（特定の画層に属するエンティティのみを高速抽出）
Dim filterType(0) As Integer
Dim filterData(0) As Variant
filterType(0) = 8 ‘ 画層コード (DXF Group Code 8)
filterData(0) = targetLayer
sSet.Select acSelectionSetAll, , , filterType, filterData
If sSet.count = 0 Then
MsgBox “対象となるオブジェクトが見つかりませんでした。”, vbInformation
GoTo Cleanup
End If
‘ トランザクション的アプローチの開始
‘ セキュリティとパフォーマンスのため、配列や一括操作を検討するが、
‘ COMの仕様上、コレクションをイテレートする場合は参照をローカル変数に固定する
Dim i As Long
Dim totalCount As Long
totalCount = sSet.count
‘ AutoCADの進捗バーをステータスバーに表示
ThisDrawing.Application.StatusBarText = “プロパティ一括更新中…”
For i = 0 To totalCount – 1
Set ent = sSet.Item(i)
‘ プロパティの書き換え（必要最小限のプロパティのみアクセス）
ent.Layer = newLayer
ent.Color = acByLayer ‘ 色を画層に従うに設定
‘ オブジェクトの明示的解放（メモリ最適化の極意）
Set ent = Nothing
Next i
‘ 変更を強制的に同期
ThisDrawing.Regen acAllViewports
MsgBox “処理が完了しました。更新件数: ” & totalCount & ” 件”, vbInformation
Cleanup:
‘ リソースの解放とクリーンアップ（メモリリーク防止の絶対命題）
If Not sSet Is Nothing Then
sSet.Delete
Set sSet = Nothing
End If
Application.ScreenUpdating = True
ThisDrawing.Application.StatusBarText = “”
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
—
3. コードの裏側にある「極限の知見」
上記のコードには、単なる「動くコード」を超えた、プロフェッショナルとしての設計思想がいくつか埋め込まれている。
① 選択セット（`AcadSelectionSet`）のライフサイクル管理
AutoCAD VBAにおいて、選択セットは自動的には消滅しない。プログラム終了後も図面データベース内に残り続け、次回実行時に `-50105: 選択セットが既に存在します` という致命的なエラーを引き起こす。
これを防ぐため、コード内では「生成前に必ず同名の選択セットを削除し、処理終了時にも明示的に `.Delete` を呼ぶ」というイディオムを徹底している。
② メモリの明示的解放（`Set … = Nothing`）
VBAのランタイムはCOMオブジェクトの参照カウントを裏で管理しているが、CADとVBAのプロセス境界を跨ぐオブジェクト（`AcadEntity` など）は、スコープを抜けても即座にメモリから解放されないことが多々ある。
ループ内で `Set ent = Nothing` を明示的に実行し、さらにループの外で `sSet.Delete` と `Set sSet = Nothing` を行うことで、長時間のバッチ処理でもメモリ使用量がフラットに保たれる。
③ 画面描画の抑制と `Regen` のコントロール
AutoCADのUIスレッドは、オブジェクトのプロパティが変わるたびにビューポートの再描画を試みる。数千のオブジェクトを処理する際にこれが起きると、CPUが描画処理に奪われ、フリーズしたような状態になる。
`Application.ScreenUpdating = False`（あるいはAutoCAD固有のシステム変数制御）と、処理最後の明示的な `ThisDrawing.Regen acAllViewports` の組み合わせこそが、真のパフォーマンスチューニングである。
—
4. システム間連携・レガシー保守への応用
この設計パターンを応用することで、Excelや外部データベース（SQL Server等）からCSV/JSON形式で「どの画層のどのオブジェクトをどう変更するか」というマッピング定義を受け取り、AutoCAD上で完全にヘッドレス（あるいはバックグラウンド）に近い形で一括処理するシステムを構築できる。
レガシーなAutoCAD環境（例えばAutoCAD 2010〜最新版が混在するような現場）においても、COMの基本仕様は大きく変わっていないため、この「選択セットによるフィルタリング ＋ 明示的メモリ解放 ＋ 描画抑制」の三原則を守りさえすれば、バージョン依存のクラッシュを完全に排除することが可能だ。
泥臭いマクロの寄せ集めから脱却し、インフラとしての強靭さを持つVBAコードを構築せよ。それが、システムを操るエンジニアの特権である。
