【実務・中級編】【実務中級者向け】図面オープン時に「特定の画層（Layer）が非表示」なら警告を出す：検図作業を補助するオープンマクロ – AutoCAD VBA解析バイブル

【極限の知見】検図ミスをゼロにする「レイヤー・ガードレール」の設計思想

設計現場において、致命的なミスは「計算間違い」よりも、むしろ「見えていなかったこと」から発生する。
重要な設備レイヤーや構造レイヤーが、何らかの拍子に「オフ」や「フリーズ」の状態で図面が開かれたとき、検図者はその欠落に気づかず、誤った判断を下す。これが、数億円規模のプロジェクトを揺るがす設計ミスへの入り口だ。

多くの初級開発者は、このような事態を防ぐために「開いた瞬間にレイヤーをチェックする」という単純なマクロを書こうとする。しかし、現場で通用する「プロダクション・レベル」のツールは、単なる条件分岐ではない。オブジェクトのライフサイクル、エラーハンドリング、そしてユーザーの作業動線を考慮した「ガードレール」の設計である。

本記事では、実務中級者が踏み込むべき、堅牢で保守性の高い「レイヤー・チェック・マクロ」の設計思想を伝授する。

1. なぜ「単純なコード」は現場で拒絶されるのか

初心者が書くコードは、往々にして以下のような構造になる。

' --- 初心者が書きがちな、脆弱なコード例 ---
Sub CheckLayer()
    If ThisDrawing.Layers("CRITICAL_LAYER").LayerOn = False Then
        MsgBox "警告：レイヤーがオフです！"
    End If
End Sub

このコードには、プロのエンジニアの視点から見ると3つの致命的な欠陥がある。

1. 存在しないオブジェクトへの脆弱性: もし図面に `”CRITICAL_LAYER”` が存在しなかった場合、このコードは即座にランタイムエラーを吐いて停止する。マクロがエラーで止まることは、ツールとしての信頼性を完全に喪失することを意味する。
2. 状態定義の不足: レイヤーの状態には「Off（表示/非表示）」だけでなく「Freeze（フリーズ）」がある。これらを区別せずにチェックするのは、検図補助としては不完全だ。
3. ユーザー体験（UX）の欠如: 図面を開くたびに、もし設定が正しくても毎回ダイアログが出るような設計にすれば、ユーザーはすぐにマクロを無効化する。

我々が目指すべきは、「対象レイヤーが存在することを確認し、状態を厳密に判定し、かつエラーを一切許容しない」設計である。

2. プロダクション・グレードの実装：堅牢な設計パターン

実務で活用できるコードを書くには、「ロジック（判定）」と「設定（対象レイヤー）」と「UI（警告）」を分離するのが鉄則だ。

以下に、私が設計する際のテンプレートを示す。このコードは、単に動くだけでなく、将来的な拡張（レイヤーリストの外部ファイル化など）を容易に考慮している。

Option Explicit

' ==============================================================================
' Module: LayerGuardRail
' Description: 図面オープン時に指定レイヤーの状態を監視し、検図ミスを防止する
' ==============================================================================

''' <summary>
''' 図面が開かれた際に呼び出されるメインエントリーポイント
''' </summary>
Public Sub OnDocumentOpenCheck()
    Dim targetLayers As Variant
    Dim layerName As Variant
    Dim doc As AcadDocument
    
    ' 1. コンテキストの取得
    Set doc = ThisDrawing
    
    ' 2. 監視対象レイヤーの定義 (本来は外部ファイルやDBから読み込むべき)
    ' メンテナンス性を高めるため、ハードコードは最小限に留める
    targetLayers = Array("E_POWER_LINE", "S_STRUCTURE_BASE", "M_MECHANICAL_CORE")
    
    ' 3. チェック実行
    On Error GoTo ErrorHandler
    
    For Each layerName In targetLayers
        Call ValidateLayerState(doc, CStr(layerName))
    Next layerName
    
    Exit Sub

ErrorHandler:
    ' 致命的なエラーが発生した場合でも、AutoCADの動作を妨げないよう静かに終了する
    Debug.Print "LayerGuardRail Error: " & Err.Description
End Sub

''' <summary>
''' 個別のレイヤー状態を厳密に検証する
''' </summary>
''' <param name="doc">対象のAutoCADドキュメント</param>
''' <param name="lName">チェック対象のレイヤー名</param>
Private Sub ValidateLayerState(ByRef doc As AcadDocument, ByVal lName As String)
    Dim targetLayer As AcadLayer
    Dim issueMsg As String
    issueMsg = ""

    ' --- ステップ1: レイヤーの存在確認 ---
    ' 存在しないレイヤーへのアクセスはエラーになるため、エラーハンドリングを局所化する
    On Error Resume Next
    Set targetLayer = doc.Layers.Item(lName)
    On Error GoTo 0
    
    If targetLayer Is Nothing Then
        ' レイヤーが存在しない場合は、警告レベルを上げるか、ログに記録する
        ' ここでは「存在しないこと自体がリスク」として扱う設計にする
        Debug.Print "Warning: Layer [" & lName & "] not found in current drawing."
        Exit Sub
    End If

    ' --- ステップ2: 状態の厳密な判定 ---
    ' LayerOn (表示/非表示) と Freeze (フリーズ) の両方をチェック
    If targetLayer.LayerOn = False Then
        issueMsg = issueMsg & " ・ " & lName & " が [非表示] になっています。" & vbCrLf
    End If
    
    If targetLayer.Freeze = True Then
        issueMsg = issueMsg & " ・ " & lName & " が [フリーズ] されています。" & vbCrLf
    End If

    ' --- ステップ3: ユーザーへの通知 ---
    If issueMsg <> "" Then
        MsgBox "【検図警告】重要なレイヤーの設定に不備があります！" & vbCrLf & vbCrLf & _
               "以下のレイヤーを確認してください：" & vbCrLf & _
               issueMsg, vbExclamation, "Layer GuardRail System"
    End If
    
    ' オブジェクトの解放
    Set targetLayer = Nothing
End Sub

このコードの「設計の急所」

1. `On Error Resume Next` の局所化:
レイヤーの存在確認という「失敗する可能性がある操作」の直後で、即座に `On Error GoTo 0` でエラーハンドリングを戻している。これにより、予期せぬバグが隠蔽されるリスクを最小限に抑えている。
2. 引数による依存性の注入 (Dependency Injection):
`ValidateLayerState` は `doc` オブジェクトを引数として受け取る。これにより、`ThisDrawing` というグローバル変数に依存せず、特定のドキュメントに対してテストや再利用が可能な設計になっている。
3. 情報の集約:
レイヤーごとにダイアログを出すのではなく、`issueMsg` 変数に情報を蓄積し、最後に一度だけ表示している。これはユーザーの作業を妨げないための、プロフェッショナルな配慮だ。

3. さらなる高みへ：データベース・外部ファイル連携

実務において、監視すべきレイヤーはプロジェクトごとに異なる。コード内に `Array(“LAYER_A”, “LAYER_B”)` と書き込むのは、エンジニアとして三流だ。

中級者が目指すべきは、「設定の外部化」である。

推奨される構成案

• Configファイル（CSVまたはJSON）:

`ProjectID, LayerName, Severity(Warning/Critical)` という形式のテキストファイルを、共有サーバー上に配置する。

• 実行フロー:

1. マクロ起動時、現在の図面名またはプロジェクトコードから、対応するCSVを特定。
2. CSVを読み込み、動的に `targetLayers` リストを構築。
3. 判定ロジックを実行。

これにより、「プログラムを一切書き換えることなく、新しいプロジェクトのルールを適用する」ことが可能になる。これこそが、スケーラブルな自動化ツールの本質である。

4. 結論：自動化の本質は「信頼」にある

自動化エンジニアの仕事は、単に「楽をさせること」ではない。「人間がミスをしても、システムがそれを許さない構造を作ること」だ。

今回紹介したレイヤー・ガードレールの実装は、一見すると小さな機能に見えるかもしれない。しかし、エラーを恐れず、オブジェクトのライフサイクルを制御し、ユーザーの動線を意識した設計を積み重ねることで、初めて「現場の道具」としての価値が生まれる。

「動けばいい」という思考を捨て、「壊れない、迷わせない、拡張できる」設計へ。その一歩が、君を伝説的なアーキテクトへと導く。