AutoCAD VBAの深淵：オブジェクト削除の「極限」をマスターする
AutoCAD VBAにおいて「オブジェクトを削除する」という行為は、単なる `Delete` メソッドの呼び出しではない。それは、メモリとデータベースの整合性を維持しつつ、AutoCADという巨大なマシンの心臓部にメスを入れる外科手術だ。
多くの初学者が陥る罠は、「イテレータの回し方」と「条件判定の甘さ」にある。今回は、実務で絶対にバグらせない、堅牢で保守性の高い削除ロジックの極意を伝授する。
—
1. なぜ「For Each」で削除してはいけないのか
初心者がやりがちな典型的な過ちは、`For Each` ループ内でオブジェクトを削除することだ。
AutoCADのデータベースは、オブジェクトが削除されるたびにインデックスが再構築される可能性がある。ループ中にコレクションの構造が変われば、イテレータは迷子になり、未定義の挙動や予期せぬエラー（あるいはメモリリーク）を引き起こす。
極限の解： 削除対象は一度スタック（配列やコレクション）に蓄積し、ループを抜けた後に一括で処理する。これが「守り」の鉄則だ。
—
2. 堅牢なオブジェクト削除エンジンの設計
実務レベルでは、画層、色、線種といった「タグ」を柔軟に組み合わせる必要がある。条件分岐をハードコーディングするのではなく、関数として切り出す設計思想を持つべきだ。
以下は、プロダクション環境でも耐えうる、安全かつ高速な削除エンジンの実装例である。
‘ 【プロダクションコード】堅牢なオブジェクト削除ユーティリティ
Public Sub SecureDeleteObjects()
Dim acadObj As AcadEntity
Dim targetObjects As Collection
Set targetObjects = New Collection
‘ 削除対象を一時格納するためのコレクション
‘ 1. 条件抽出フェーズ（データベースをなめる）
For Each acadObj In ThisDrawing.ModelSpace
If ShouldDelete(acadObj, “削除対象画層名”, acRed, “BYLAYER”) Then
targetObjects.Add acadObj
End If
Next acadObj
‘ 2. 実行フェーズ（安全に削除）
Dim obj As AcadEntity
On Error Resume Next ‘ 万が一のロック解除エラーに備える
For Each obj In targetObjects
obj.Delete
Next obj
On Error GoTo 0
ThisDrawing.Regen acActiveViewport
MsgBox targetObjects.Count & ” 個のオブジェクトを安全に削除しました。”
End Sub
‘ 判定ロジックを分離することで、保守性と再利用性を最大化する
Private Function ShouldDelete(obj As AcadEntity, layerName As String, color As Integer, linetype As String) As Boolean
‘ 型チェック（BlockReferenceやLineなど必要なタイプのみ判定する）
If obj.Layer = layerName And obj.Color = color And obj.Linetype = linetype Then
ShouldDelete = True
Else
ShouldDelete = False
End If
End Function
—
3. 実務で「詰まない」ための3つの重要戒律
① トランザクションとアンドゥ管理
AutoCADの `Delete` はアンドゥログを消費する。数万オブジェクトを削除する際、一気に実行するとメモリを圧迫し、AutoCADがクラッシュするリスクがある。
大量削除の場合は、`ThisDrawing.SendCommand` を使ったバッチ処理や、`Application.UndoServer` の制御を検討すべきだが、基本的には「削除のたびにUIを更新しない（Regenを繰り返さない）」ことが鉄則だ。
② 参照エラーへの警戒
`PaperSpace` と `ModelSpace` をまたいで処理する場合、あるいは「外部参照（Xref）」が含まれている場合、`Delete` は失敗する。
`On Error Resume Next` で強引に握りつぶすのではなく、`If obj.ObjectName <> “AcDbBlockReference”` のように、削除可能なオブジェクトかどうかを事前にチェックするフィルタリングを必ず実装せよ。
③ データベース連携時の整合性
もしこのマクロが外部データベース（ExcelやCSV）と連携している場合、図面側を削除した後にデータベース側のレコードを消すのは危険だ。必ず「図面内の削除が成功したことを確認してからデータベースを同期」する、あるいは「削除フラグを立ててから一括クリーンアップ」するフローを構築すること。
—
最後に：エンジニアとしての矜持
コードを書くことは、単に動くものを作ることではない。「後から修正する誰か（あるいは半年後の自分）」が、恐怖を感じずに触れるコードを残すことだ。
今回の設計は、削除条件が増えた場合でも `ShouldDelete` 関数を拡張するだけで対応できる。AutoCADの内部モデルを理解した上で、あえて「面倒な手順」を踏む。それが、プロフェッショナルの技術だ。
あなたの自動化ツールが、現場の無駄なクリックを一つでも減らし、設計者の創造性を解放する一助となることを期待している。
