AutoCAD VBAの深淵へ：全パージを卒業し、「狙い撃ち」で画層を浄化する極意
こんにちは。AutoCADの自動化という荒野を旅するエンジニアの皆さん。
「図面が重いから、とりあえず `PurgeAll` しておけばいいや」
そう思っていませんか？ その思考停止こそが、プロジェクトの崩壊を招く第一歩です。
実務レベルの自動化では、「何を消し、何を残すか」をコードで制御できることがプロとアマの決定的な境界線になります。今日は、AutoCAD VBAのオブジェクトモデルを深く理解し、特定の画層だけを安全かつ高速に削除する「外科手術」のような手法を伝授します。
—
1. なぜ「全パージ」が危険なのか？
`AcadDocument.PurgeAll` は強力ですが、いわば「核兵器」です。
意図しないブロック定義や、将来的に必要になるかもしれないスタイルまで根こそぎ消し去ってしまうリスクがあります。
我々エンジニアが目指すべきは、「未使用かつ、特定の命名規則に従う不要画層だけを排除する」という繊細な自動化です。これを実現するために、AutoCADの `Layers` コレクションを直接操作するスキルを身につけましょう。
—
2. 画層削除の壁：オブジェクトのライフサイクル
AutoCADのオブジェクトモデルにおいて、画層の削除は一筋縄ではいきません。
以下の「削除できない理由」を理解することが、エラーを回避する鍵です。
- カレント画層である： 現在作業中の画層は消せません。
- 図形が残っている： その画層に1本でも線が引かれていれば、消せません。
- 画層「0」および「Defpoints」： これらはAutoCADのシステム上、削除不可です。
- 外部参照（Xref）に依存している： 外部参照に関連する画層は直接削除できません。
これらの制約をコードでどう回避するか。それが今回の核心です。
—
3. 実践：特定の画層を「外科手術」で削除するコード
以下のコードは、指定したプレフィックス（接頭辞）を持つ画層のうち、使用されていないものだけを抽出して削除する、現場即戦力のロジックです。
Sub PurgeSpecificLayers()
Dim layerObj As AcadLayer
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 削除対象のプレフィックス（例: “TEMP_” で始まる画層のみ対象）
Const TARGET_PREFIX As String = “TEMP_”
‘ エラーハンドリング：削除不可の画層に当たった際の停止を防ぐ
On Error Resume Next
‘ 画層コレクションを走査
For Each layerObj In doc.Layers
‘ 1. 名前がプレフィックスに一致するか確認
If InStr(layerObj.Name, TARGET_PREFIX) > 0 Then
‘ 2. 使用状況を確認 (InUse = False なら削除可能)
If Not layerObj.InUse Then
‘ 3. カレント画層でないか確認 (カレントだと削除不可)
If doc.ActiveLayer.Name <> layerObj.Name Then
‘ 4. 削除を実行
layerObj.Delete
‘ 実行結果をログに
If Err.Number = 0 Then
Debug.Print “削除成功: ” & layerObj.Name
Else
Debug.Print “削除失敗: ” & layerObj.Name & ” (システムロックの可能性)”
Err.Clear
End If
End If
End If
End If
Next layerObj
On Error GoTo 0
MsgBox “画層のクリーンアップが完了しました。”
End Sub
—
4. コードの解説：なぜこの書き方なのか？
- `On Error Resume Next` の重要性：
AutoCADの内部処理では、予期せぬロックがかかっている画層を消そうとすると即座にVBAが停止します。実務では「消せたら消す、ダメなら次へ行く」という柔軟性が不可欠です。
- `layerObj.InUse` プロパティ：
これこそが本質です。このプロパティは「その画層に図形が存在するか」を瞬時に判定します。`Purge` コマンドを叩くよりも遥かに高速で、かつ安全です。
- `ActiveLayer` のチェック：
現在の画層を削除しようとすると、AutoCADは必ず例外を吐きます。コードの冒頭でガード節（`If`文）を設けることで、無駄なエラーを排除しています。
—
最後に：エンジニアとしての心構え
「マクロの記録」で生成された汚いコードは、動くかもしれませんが、あなたの資産にはなりません。
今回のように、`AcadDocument` から `Layers` コレクションを辿り、一つひとつのオブジェクトのプロパティを理解して操作する。 このプロセスこそが、あなたを単なる「ユーザー」から「自動化エンジニア」へと昇華させます。
最初は難しく感じるかもしれませんが、オブジェクトの中身を `ウォッチウィンドウ` で覗き込み、何がプロパティとして存在しているのかを探求してみてください。
ここをクリアしたあなたは、もう初心者ではありません。次回の記事では、この知識を応用して「ブロック定義の内部を解析する」ステップに進みましょう。
さあ、あなたのAutoCADを、もっと美しく、もっと速く。
