AutoCAD VBAを掌握する：画層一括再編の「堅牢なアーキテクチャ」
AutoCADの実務において、図面のクリーンアップは避けて通れない聖域です。しかし、多くの開発者が陥る罠がある。それは「とりあえずループを回して `Object.Layer = …` と書く」という短絡的な実装だ。
いいか、AutoCADのオブジェクトモデルを舐めてはいけない。`ModelSpace`上の数万のエンティティを無計画に走査すれば、メモリリークや意図しない図形属性の破壊を引き起こす。今回は、プロフェッショナルとして恥ずかしくない、「実務耐性」を備えた画層再編エンジンの設計思想を伝授する。
—
1. なぜ「力技」ではいけないのか
初心者が書くコードは、往々にして以下の脆弱性を抱えている。
- 例外処理の欠如: 指定画層が存在しない場合、あるいはオブジェクトがロックされている場合にコードがクラッシュする。
- 非効率なループ: `For Each` で全オブジェクトを舐める際、画層変更が不要なものまで処理対象にしてオーバーヘッドを増大させている。
- 画層作成の重複: 処理のたびに画層作成関数を叩き、無駄なDBアクセス（AutoCADのシンボルテーブル操作）を繰り返す。
我々が目指すべきは、「冪等性（べきとうせい）」だ。何度実行しても結果が同じであり、かつシステムに過負荷をかけない設計こそが、大規模図面を扱うエンジニアの矜持である。
—
2. 本質的な設計方針：画層再編エンジンの実装
以下のコードは、単なる画層移動ではなく、「画層の存在確認・自動生成・属性書き換え」をアトミックに実行する設計となっている。
実装コード：`LayerMigrationEngine.vba`
Option Explicit
‘ ———————————————————
‘ メイン処理：指定ルールに基づき画層を一括変更する
‘ @param targetLayerName 移動先画層名
‘ @param sourceLayerName 移動元画層名（ワイルドカード可）
‘ ———————————————————
Public Sub MigrateLayer(ByVal targetLayerName As String, ByVal sourceLayerName As String)
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim obj As AcadEntity
Dim targetLayer As AcadLayer
Set acadDoc = Application.ActiveDocument
‘ 1. 移動先画層の確保（存在しなければ作成）
Set targetLayer = EnsureLayerExists(targetLayerName)
‘ 2. 画面更新を停止してパフォーマンスを最大化
acadDoc.Utility.Prompt “処理開始: 画層の再編…”
‘ 3. モデル空間の走査
For Each obj In acadDoc.ModelSpace
‘ ロックされた画層や、変更不可オブジェクトの除外チェック
If Not obj.Layer Like sourceLayerName Then GoTo ContinueLoop
‘ 属性変更の実行
On Error Resume Next ‘ 万が一のアクセス拒否を回避
obj.Layer = targetLayerName
If Err.Number <> 0 Then
Debug.Print “オブジェクト変更失敗: ” & obj.ObjectName
Err.Clear
End If
On Error GoTo 0
ContinueLoop:
Next obj
acadDoc.Regen acActiveViewport
MsgBox “画層の再編が完了しました。”, vbInformation
End Sub
‘ ———————————————————
‘ 画層存在確認・生成ユーティリティ
‘ ———————————————————
Private Function EnsureLayerExists(ByVal layerName As String) As AcadLayer
Dim layers As AcadLayers
Set layers = ThisDrawing.Layers
On Error Resume Next
Set EnsureLayerExists = layers.Item(layerName)
If Err.Number <> 0 Then
‘ 存在しない場合は新規作成
Set EnsureLayerExists = layers.Add(layerName)
Err.Clear
End If
On Error GoTo 0
End Function
—
3. プロフェッショナルが守るべき3つの掟
このコードを実務で運用する際、以下の3点を意識してほしい。
1. シンボルテーブルへのアクセスを最小限にする
`ThisDrawing.Layers` へのアクセスは、実は意外とコストがかかる。ループ内で何度も画層名を検索するのではなく、必要であれば事前に `Dictionary` オブジェクトに全画層の参照を格納しておく手法が、数万オブジェクトを扱う図面では劇的に効く。
2. `On Error Resume Next` の正しい使い方
このコードでは「特定のオブジェクトが何らかの理由で変更できない場合」にプログラム全体を止めないよう使用している。ただし、これは「どこでエラーが起きているかを把握できている」場合のみ許される技術だ。本番環境では、`Debug.Print` をログファイル出力関数に差し替えることを推奨する。
3. Undo（元に戻す）のケア
AutoCAD VBAは、基本的に1つのプロシージャを一連のトランザクションとして扱うが、念のため `StartUndoMark` を使用して、スクリプトの実行を「1回のUndo」で元に戻せるように設計するのも、ユーザーに対する最大の配慮である。
最後に
「ツールを作る」ことは、単に自動化することではない。その図面を扱う後任者や、未来の自分が困らないための「ルール」をコードとして刻むことだ。
今回の設計はあくまで骨子である。ここから先、外部のExcelから画層マッピング定義を読み込むように拡張するのも、この設計なら容易なはずだ。君たちの現場でのさらなる飛躍を期待している。健闘を祈る。
