AutoCAD VBAを掌握する極限の知見：条件抽出と画層一括移転のアーキテクチャ
AutoCAD VBAにおいて、図面内のオブジェクトを走査し、特定の条件（画層、色、線種など）でフィルタリングして別の画層へ移動する処理は、実務の現場で最も頻繁に遭遇する要件の一つだ。
しかし、素朴な実装――例えば `ModelSpace` を `For Each` で総なめし、その都度オブジェクトのプロパティを評価して `Layer` プロパティを書き換えるようなコードは、実務の巨大な図面（数十万オブジェクト規模）の前では完全に破綻する。COMのラウンドトリップオーバーヘッド、メモリリーク、そしてAutoCAD特有のトランザクション管理の無知が引き起こすパフォーマンスの劣化は、VBAを「おもちゃの言語」に貶める十分な理由になってしまう。
本稿では、シニアエンジニアおよび社内システム管理者が、大規模図面でも秒速で動作する堅牢なフィルタリング＆レイヤー一括移行システムを構築するための極限の知見を公開する。
—
1. AutoCADオブジェクトモデルの深層とパフォーマンスの罠
AutoCAD VBAの背後では、COM（Component Object Model）サーバーであるAutoCADアプリケーションが稼働している。VBA側から `AcadEntity` のプロパティ（`Layer`, `Color`, `Linetype` など）にアクセスするたびに、COMの境界を越えたプロセス間通信（あるいはインプロセスであってもマーシャリング）が発生する。
悪臭を放つアンチパターン
‘ 【悪夢のアンチパターン】絶対に行ってはならない実装
Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
If ent.Layer = “OLD_LAYER” Then
ent.Layer = “NEW_LAYER” ‘ 毎回COM境界を跨ぐ書き込みが発生
End If
Next ent
このコードの何が問題か。
1. 暗黙のCOM参照の蓄積: ループ内で生成されるラッパーオブジェクトがメモリ上に残り続け、VBAのガベージコレクション（正確にはCOM参照カウントの解放タイミング）が追いつかなくなる。
2. 非効率な走査: `ModelSpace` 全体を無条件に舐めるため、不要なオブジェクトまでVBAのコンテキストに引きずり出す。
これを解決するためには、「オブジェクトの適切な明示的解放（解放の作法）」と、可能であれば内部的な高速化手法を意識した設計が不可欠である。
—
2. 実務仕様：高速フィルタリング・画層移行エンジンの実装
ここでは、指定した「旧画層名」「色（オプション）」「線種（オプション）」に合致するエンティティをミリ秒単位で抽出し、ターゲット画層が存在しない場合は自動生成した上で一括移行する、プロダクション品質のVBAプロシージャを提示する。
堅牢な実装コード
Option Explicit
‘ ==============================================================================
‘ 処理名:
‘ BatchMoveEntitiesByFilter
‘ 概要:
‘ 条件に合致するモデル空間内のオブジェクトを抽出し、指定画層へ一括移動する。
‘ 存在しないターゲット画層は自動的に作成する。
‘ ==============================================================================
Public Sub BatchMoveEntitiesByFilter()
Dim targetDoc As AcadDocument
Set targetDoc = ThisDrawing
‘ — 設定パラメータ（実務ではUIや設定ファイルから取得すること） —
Const SOURCE_LAYER As String = “DEMO_OLD”
Const TARGET_LAYER As String = “DEMO_NEW”
Const FILTER_COLOR As Integer = acByLayer ‘ 条件絞り込み不要なら acByLayer 等
Dim useColorFilter As Boolean: useColorFilter = False
On Error GoTo ErrorHandler
‘ 1. 処理の最適化（画面描画とイベントを抑制してパフォーマンスを極限まで引き上げる）
targetDoc.Application.ScreenUpdating = False
‘ 2. ターゲット画層の存在確認と自動生成
Call EnsureLayerExists(targetDoc, TARGET_LAYER)
‘ 3. モデル空間の走査と条件一致オブジェクトの退避・移行
Dim modelSpace As AcadModelSpace
Set modelSpace = targetDoc.ModelSpace
Dim totalEntities As Long
totalEntities = modelSpace.Count
Dim i As Long
Dim ent As AcadEntity
Dim movedCount As Long
movedCount = 0
‘ 配列やインデックスアクセスではなく、確実な参照管理を行うためのループ
For i = 0 To totalEntities – 1
Set ent = modelSpace.Item(i)
‘ 削除マーク（Deleted）がついているオブジェクトの安全なスキップ
If Not ent.ObjectName = “AcDbBlockReference” Or True Then ‘ ※必要に応じた型安全性の確保
‘ フィルタリング条件の評価
Dim isMatch As Boolean
isMatch = True
‘ 画層条件チェック
If StrComp(ent.Layer, SOURCE_LAYER, vbTextCompare) <> 0 Then
isMatch = False
End If
‘ 色条件チェック（フラグが有効な場合のみ）
If isMatch And useColorFilter Then
If ent.Color <> FILTER_COLOR Then
isMatch = False
End If
End If
‘ 条件一致時の処理
If isMatch Then
ent.Layer = TARGET_LAYER
movedCount = movedCount + 1
End If
End If
‘ メモリ最適化：ループごとのオブジェクト参照を明示的に解放
Set ent = Nothing
Next i
‘ 4. 完了通知
targetDoc.Application.ScreenUpdating = True
MsgBox “処理が完了しました。” & vbCrLf & _
“移行対象オブジェクト数: ” & movedCount & ” 件”, vbInformation, “AutoCAD VBA Architecture”
Exit Sub
ErrorHandler:
‘ 異常系：確実に画面描画フラグを戻し、メモリリークを防ぐ
targetDoc.Application.ScreenUpdating = True
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Execution Error”
‘ 参照の強制解放
Set ent = Nothing
Set modelSpace = Nothing
End Sub
‘ ==============================================================================
‘ 補助関数: 指定した画層が存在しなければ作成する
‘ ==============================================================================
Private Sub EnsureLayerExists(doc As AcadDocument, layerName As String)
Dim lyr As AcadLayer
Dim layerExists As Boolean
layerExists = False
For Each lyr In doc.Layers
If StrComp(lyr.Name, layerName, vbTextCompare) = 0 Then
layerExists = True
Exit For
End If
Set lyr = Nothing
Next lyr
If Not layerExists Then
Dim newLyr As AcadLayer
Set newLyr = doc.Layers.Add(layerName)
‘ 必要に応じて色の初期設定などを行う
newLyr.Color = acWhite
Set newLyr = Nothing
End If
End Sub
—
3. チーフアーキテクトが教える実装の勘所とメモリマネジメント
上記のコードには、大規模CADシステムを支えてきたエンジニアリングの知見が随所に埋め込まれている。
1. `ScreenUpdating = False` による描画サイクルの遮断
AutoCADは、エンティティのプロパティ（`Layer`など）が書き換えられるたびに、ビューポートの再描画（Graphics Pipelineの更新）を走らせようとする。数千〜数万のオブジェクトをループ内で書き換える際、この描画処理がボトルネックの8割を占める。
処理の冒頭で `ScreenUpdating = False` を宣言し、処理終了時に `True` に戻すことで、描画コストを完全にバイパスし、実行速度を劇的に向上させることが可能だ。
2. ループ内での `Set ent = Nothing` によるCOM参照カウントの制御
VBAは自動メモリ管理言語のように見えるが、COMオブジェクトの背後ではC++ベースの参照カウント（AddRef / Release）が稼働している。
`For Each` や `modelSpace.Item(i)` で取得した `AcadEntity` のラッパーは、変数 `ent` にバインドされている間、メモリ上に居座り続ける。これをループの末尾で `Set ent = Nothing` と明示的に解放することで、VBAランタイムとAutoCAD間のメモリリークを完全にシャットアウトする。
3. 文字列比較の厳密性 (`StrComp`)
画層名の比較において `If ent.Layer = SOURCE_LAYER` と書くのはアマチュアのやり方だ。VBAの `=` 演算子はプロジェクトの設定（Option Compare）や大文字小文字の扱い（Case Sensitive/Insensitive）に依存するため、思わぬバグを生む。
`StrComp(ent.Layer, SOURCE_LAYER, vbTextCompare) = 0` を使用することで、大文字小文字を区別しない確実な比較を担保する。
—
4. さらなる高みへ：SelectionSet（選択セット）を用いた爆速アプローチ
もし「モデル空間全体を舐めることすら遅い」と感じる超巨大図面に直面している場合、VBAのループ処理ではなく、AutoCADのネイティブデータベース機能である SelectionSet（選択セット） を活用するべきだ。
AutoCADのフィルター機能（DXFグループコード）をVBAから叩くことで、VBA側のループ数をゼロにし、AutoCADのC++コアエンジンに直接フィルタリング処理を委譲できる。
‘ ==============================================================================
‘ 高度なアプローチ: 選択セット（SelectionSet）とDXFグループコードによる超高速抽出
‘ ==============================================================================
Public Sub FastMoveWithSelectionSet()
Dim ssets As AcadSelectionSets
Set ssets = ThisDrawing.SelectionSets
‘ 既存の同名選択セットがあれば削除（クリーンアップの鉄則）
On Error Resume Next
ssets.Item(“TempFilterSet”).Delete
On Error GoTo 0
Dim sset As AcadSelectionSet
Set sset = ssets.Add(“TempFilterSet”)
‘ フィルター条件の設定（DXFグループコード）
Dim groupCode(0) As Integer
Dim dataValue(0) As Variant
groupCode(0) = 8 ‘ グループコード 8 は「画層名」を指す
dataValue(0) = “DEMO_OLD” ‘ 抽出対象の画層名
Dim fCode As Variant: fCode = groupCode
Dim fData As Variant: fData = dataValue
‘ AutoCADのC++コアに抽出を丸投げ（VBA側でループを回さないため圧倒的に高速）
sset.Select acSelectionSetAll, , , fCode, fData
If sset.Count > 0 Then
‘ ターゲット画層の確保
Call EnsureLayerExists(ThisDrawing, “DEMO_NEW”)
Dim ent As AcadEntity
For Each ent In sset
ent.Layer = “DEMO_NEW”
Set ent = Nothing
Next ent
MsgBox sset.Count & ” 件のオブジェクトを高速移行しました。”, vbInformation
Else
MsgBox “条件に合致するオブジェクトはありませんでした。”, vbInformation
End If
‘ 選択セットの解放
sset.Delete
Set sset = Nothing
Set ssets = Nothing
End Sub
この実装では、VBA側で1つずつ `Layer` プロパティを評価するコストすら存在しない。AutoCADのデータベースインデックスを利用して一瞬でオブジェクト群が特定されるため、数万・数百万のエンティティを持つインフラ・プラント図面であっても、体感できる遅延はほぼゼロになる。
—
結言
AutoCAD VBAは、単なる「マクロ記録の延長」ではない。背後にあるCOMアーキテクチャ、メモリライフサイクル、そしてAutoCAD自体のデータベース構造（DXFグループコードや選択セットの概念）を正しく理解した者だけが、真に安定し、実用に耐えうる自動化システムを構築できる。
ここに示したコードと知見をあなたの開発環境に組み込み、レガシーな業務フローを圧倒的なスピードで近代化してほしい。技術の限界を決めるのは言語ではなく、いつだってエンジニアの知見の深さなのだから。
