こんにちは！AutoCAD VBAの世界へようこそ。
現場で毎日何度も図面を開き、そのたびに「あ、このレイヤーは消しておかないと」「こっちの寸法線レイヤーを出さなきゃ」と手作業でポチポチ設定を変えていませんか？
「図面を開いた瞬間、自分の作業しやすい環境に一発で整ってくれたらいいのに……」
そんな実務上の切実な願いをスマートに解決するのが、今回のテーマ「図面オープン時のレイヤー状態の自動ロード・適用」です。
マクロの記録から一歩抜け出し、AutoCADのオブジェクトのライフサイクルを操る「真の自動化」へ踏み出しましょう。ここをクリアすれば、あなたのVBAスキルは確実に中級者の領域へ到達します。私と一緒に、優しく丁寧に紐解いていきましょう！
—
なぜ「レイヤー状態の自動化」が必要なのか？
実務において、図面（DWG）のレイヤー管理は命です。しかし、外部から送られてきた図面や、担当者によってバラバラに保存された図面を開くとき、次のような無駄なルーティンが発生していませんか？
1. 図面を開く
2. レイヤープロパティ管理を開く
3. 不要なハッチングや注記のレイヤーを非表示（OFF/フリーズ）にする
4. 必要な中心線や構造レイヤーを表示する
これ、1日や1週間単位で見ると膨大なロスタイムです。さらに、人間はうっかりミスをします。「あ、肝心のレイヤーを消し忘れてプロットしちゃった！」なんて失敗も防ぎたいですよね。
AutoCAD VBAを使えば、「図面が読み込まれた瞬間（DocumentOpenイベント等）、あらかじめ定義しておいたレイヤーの状態を一瞬で適用する」ことが可能です。
—
AutoCAD VBAの心臓部：イベントと図面ドキュメント
ここで少し、AutoCAD VBAの裏側の仕組み（アーキテクチャ）についてお話ししておきます。ここが分かると、エラーで悩まなくなる魔法のキイになります。
AutoCAD VBAには、大きく分けて2つの世界があります。
1. AcadApplication（アプリケーション全体）
2. AcadDocument（開かれている個別の図面）
今回やりたい「図面を開いたときに自動で動かす」という処理は、アプリケーション全体を見張る番人（Classモジュール）の力が必要になります。なぜなら、「図面が開かれる」というイベントは、図面が開いた後にその図面内のコードが動くのではなく、開くまさにその瞬間（あるいは直後）に外側から捕らえる必要があるからです。
—
実装手順：ステップ・バイ・ステップ
それでは、実際に動くコードを作っていきましょう。
今回の実装には、以下の2つを用意します。
1. 標準モジュール: イニシャライズ（監視の開始）用
2. クラスモジュール: 図面が開いたイベントをキャッチしてレイヤーを制御する用
ステップ1：イベントを監視するクラスモジュールを作る
VBAのVBE画面（`Alt + F11`）を開き、メニューの「挿入」＞「クラスモジュール」をクリックしてください。
プロパティウィンドウで、このクラスの名前を `CAppEvents` に変更します。
そして、以下のコードを貼り付けてください。
‘ =================================================================
‘ クラスモジュール名: CAppEvents
‘ 役割: AutoCADのアプリケーションイベントを監視し、図面オープンを検知する
‘ =================================================================
Public WithEvents App As AcadApplication
‘ 図面が新しく開かれた、またはドキュメントがアクティブになった瞬間に発火するイベント
Private Sub App_DocumentActivate(ByVal Doc As AcadDocument)
On Error GoTo ErrorHandler
‘ デバッグ用（イミディエイトウィンドウに開いた図面名を表示）
Debug.Print “開かれた図面: ” & Doc.Name
‘ ここでレイヤー状態を適用するプロシージャを呼び出す
Call ApplyStandardLayerState(Doc)
Exit Sub
ErrorHandler:
MsgBox “レイヤー状態の適用中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ =================================================================
‘ 指定された図面に対してレイヤーのON/OFF・フリーズを制御するサブルーチン
‘ =================================================================
Private Sub ApplyStandardLayerState(TargetDoc As AcadDocument)
Dim oLayer As AcadLayer
Dim targetStateName As String
‘ あらかじめ決められた「標準作業用レイヤー状態名」
‘ ※実際の運用に合わせて書き換えてください
targetStateName = “MyStandardView”
‘ 【重要】AutoCAD VBAでは、現在アクティブな図面（ActiveDocument）を
P
‘ 確実にターゲットに向ける、または引数で渡されたDocを操作します。
Dim oLayers As AcadLayers
Set oLayers = TargetDoc.Layers
‘ 例：特定のレイヤーを一括して制御するロジック
For Each oLayer In oLayers
Select Case oLayer.Name
Case “HATCH”, “DIM_TEMP”, “ANNOTATION”
‘ 作業の邪魔になるレイヤーは強制的に非表示＆フリーズ
oLayer.LayerOn = False
oLayer.Freeze = True
Case “CENTER_LINE”, “STRUCTURE_MAIN”
‘ 必要なレイヤーは強制的に表示＆解凍
oLayer.LayerOn = True
oLayer.Freeze = False
‘ 必要に応じて画層の色や線種もここでコントロール可能です
End Select
Next oLayer
‘ 画面を最新の状態に再描画
TargetDoc.Regen acAllViewports
‘ ユーザーに優しく通知（不要な場合はコメントアウトしてください）
‘ MsgBox “標準のレイヤー環境を適用しました。”, vbInformation, “AutoCAD VBA 自動化”
End Sub
ステップ2：イベント監視を起動する標準モジュールを作る
次に、メニューの「挿入」＞「標準モジュール」をクリックし、以下のコードを記述します。このモジュールは、AutoCADを起動した後に「監視をスタートさせるためのスイッチ」の役割をします。
‘ =================================================================
‘ 標準モジュール名: MdlAutoStart
‘ 役割: イベント監視クラスのインスタンスを生成し、監視を開始する
‘ =================================================================
Public XApp As CAppEvents
Public Sub StartLayerWatcher()
‘ すでにインスタンスが生成されている場合は二重起動を防ぐ
If XApp Is Nothing Then
Set XApp = New CAppEvents
‘ AutoCADアプリケーション本体をイベントの監視対象にセット
Set XApp.App = AcadApplication
MsgBox “図面オープン時のレイヤー自動適用システムが稼働しました。”, vbInformation, “セットアップ完了”
Else
MsgBox “すでに監視システムは稼働中です。”, vbExclamation
End If
End Sub
Public Sub StopLayerWatcher()
‘ 監視を終了する（メモリの解放）
Set XApp = Nothing
MsgBox “レイヤー自動適用システムを停止しました。”, vbInformation, “終了”
End Sub
—
ここで初心者がハマりやすい「罠」とエンジニアの知見
AutoCAD VBAでイベント（`WithEvents`）を扱うとき、初学者が必ずといっていいほどハマる大きな罠があります。それは、「コードを実行したのに、図面を開いても何も起きない現象」です。
原因：インスタンスのスコープ消滅
標準モジュールで宣言した `Public XApp As CAppEvents` は、VBAのエラーが発生したり、変数がリセットされたりすると、メモリから消えてしまいます（Nothingになる）。変数が消滅すると、AutoCADは「もう監視しなくていいんだな」と判断してイベントを拾わなくなります。
対策
実務で運用する際は、AutoCADのスタートアップ時（`acad.dvb` や `acaddoc.lsp` からの自動ロードなど）に `StartLayerWatcher` が自動で走るように組み込んでおくと完璧です。「ここをクリアすれば、AutoCAD VBAの基本はバッチリですよ！」
—
まとめ：あなたの作業環境は、もっと速く、美しくなる
今回は、図面を開いた際にレイヤー状態を自動で整える実用的なコードをご紹介しました。
- クラスモジュールを使ってアプリケーション全体の動きをフックすること。
- AcadLayers コレクションをループさせて、効率よくON/OFFやフリーズを制御すること。
この2つをマスターすれば、単なる「マクロの記録の貼り付け」から卒業し、プロのエンジニアとしての自動化設計ができるようになります。ぜひ、ご自身の職場のルールに合わせてレイヤー名や条件をカスタマイズし、快適なAutoCADライフを手に入てください。
それでは、次回の極限の知見でお会いしましょう！
