AutoCAD VBAを掌握する：オブジェクト削除の「極限」と「安全」を極める
こんにちは。AutoCADの自動化の世界へようこそ。
「マクロの記録」ボタンを押すだけの日常から脱却し、自分の手でAutoCADのエンジンを制御したい――そう決意したあなたを、私は心から歓迎します。
今日は、業務自動化の基本でありながら、最も「事故」が起きやすい「オブジェクトの自動削除」をテーマに、プロフェッショナルな設計思想を伝授します。
—
1. なぜ「削除」は危険なのか？
AutoCADのオブジェクト削除には、初心者が陥る「二つの罠」があります。
1. イテレータの破壊: 削除している最中にループの参照先がずれてしまい、残すべきオブジェクトまで飛ばしてしまう、あるいはエラーで強制終了する。
2. モデル空間の不可逆性: 一度削除したオブジェクトは、コマンドの「元に戻す（Undo）」を制御しない限り、簡単には戻せません。
これらを回避し、「狙った獲物だけを、安全に仕留める」のが、一流のエンジニアの流儀です。
—
2. 安全な削除のためのロジック：逆順ループ
多くの初心者は、リストの先頭から順に削除しようとします。しかし、これこそがエラーの元凶です。
正解は「配列やコレクションの末尾から先頭に向かって削除する（逆順ループ）」こと。
これにより、削除によってインデックスがずれても、まだ処理していないオブジェクトの番号には影響を与えないため、事故を確実に防げます。
—
3. 実践コード：条件付き一括削除ツール
以下は、画層・色・オブジェクトタイプを指定して削除する汎用的なプロシージャです。これをコピペして、あなたのライブラリに加えてください。
Public Sub DeleteObjectsByConditions()
Dim i As Long
Dim ent As AcadEntity
Dim objSpace As AcadBlock
‘ モデル空間を対象にする（ペーパー空間の場合は ThisDrawing.PaperSpace に変更）
Set objSpace = ThisDrawing.ModelSpace
‘ 【重要】逆順ループで回す。これがプロの必須テクニック
For i = objSpace.Count – 1 To 0 Step -1
Set ent = objSpace.Item(i)
‘ 条件判定：画層が”削除対象層”かつ、色が赤(1)であるか
‘ ここを自由にカスタマイズしてください
If ent.Layer = “削除対象層” And ent.Color = 1 Then
‘ 削除処理
On Error Resume Next ‘ 万が一の保護
ent.Delete
If Err.Number <> 0 Then
Debug.Print “削除失敗: ” & ent.ObjectName
End If
On Error GoTo 0
End If
Next i
MsgBox “削除処理が完了しました。”, vbInformation
End Sub
—
4. プロの視点：コードを読み解くポイント
このコードには、現場で生き残るための「魂」が込められています。
- `For i = objSpace.Count – 1 To 0 Step -1`:
これが「逆順ループ」の真髄です。コレクションの最後尾から処理することで、メモリ上のオブジェクト参照が崩れるのを防いでいます。
- `On Error Resume Next`:
AutoCADの図面には、「ブロック定義の一部」など、プログラムから削除できない特殊な状態のオブジェクトが存在することがあります。エラーで止まらず、ログを吐いて次に進むための「防御壁」です。
- オブジェクトの属性確認:
`ent.Layer`, `ent.Color`, `ent.ObjectName` などを使って、条件を細かく絞り込めます。例えば、`ent.ObjectName = “AcDbCircle”` とすれば、円だけを抽出することも可能です。
—
5. 次のステップへ：さらに安全に運用するために
さらにレベルアップしたいあなたへ、二つのアドバイスを送ります。
1. Undoのグループ化:
`ThisDrawing.StartUndoMark` と `ThisDrawing.EndUndoMark` で処理を囲むと、削除後に「元に戻す」ボタンを一度押すだけで、削除した全てのオブジェクトを一括復元できるようになります。
2. フィルタ機能の活用:
数万個のオブジェクトがある図面では、ループを回す前に `SelectionSet`（選択セット）の `SelectOnScreen` や `Select` メソッドで、あらかじめ条件に合うものだけを抽出してから削除すると、パフォーマンスが劇的に向上します。
—
最後に
AutoCAD VBAは、単なる「自動化ツール」ではありません。あなたの思考を、図面というキャンバスに高速で描き出す「魔法の杖」です。
今日学んだ「逆順ループ」と「安全な設計思想」さえ守れば、もう図面を破壊することを恐れる必要はありません。恐れず、しかし慎重に。あなたの素晴らしいエンジニアライフを応援しています！
ここをクリアすれば、あなたはもう脱・初心者です。次は、どんな自動化に挑戦しますか？
