【実務・中級編】【実務中級者向け】保存時の「自動ズーム」を特定の注釈エリアに限定する：検図者が最初に見るべき場所を固定してセーブ – AutoCAD VBA解析バイブル

「保存」を「伝達」へ昇華させる：検図者の視線を制御するコンテキスト・セーブ術

図面を保存するという行為を、単なる「データの書き出し」だと思っているなら、君の設計思想はまだ未熟だ。

実務における図面保存の本質は、「次にそのファイルを開く人間（検図者、クライアント、あるいは次工程の担当者）に対して、何を、どこに、どのような文脈で伝えたいか」という情報のパッケージングにある。

多くの開発者が陥る罠がある。それは、図面内の変更箇所を「レイヤー」や「ブロック」として定義することに満足し、その後の「視覚的誘導」を放棄することだ。検図者がファイルを開いたとき、広大な図面の中をマウスホイールで彷徨い、変更箇所を探し回る……そんな非効率な時間は、エンジニアリングの現場では「コスト」であり、「エラーの温床」である。

本記事では、特定の「変更箇所マーク」を自動検出し、その範囲を画面いっぱいに表示（ズーム）した状態で保存する、コンテキスト・アウェア（文脈依存型）セーブ・テクニックを伝授する。

1. 設計思想：なぜ「単純なZoom Extents」では足りないのか

初心者は、変更箇所を見せようとして `Zoom Extents`（図面全体を表示）を使いがちだ。しかし、これは大規模なプロジェクトでは致命的なミスとなる。図面全体を表示すれば、変更箇所は画面上の数ピクセルに縮小され、結局、検図者は再びズーム操作を強いられるからだ。

我々が目指すべきは、「変更箇所の包含矩形（Bounding Box）を算出し、その範囲をターゲットとしたZoom Window」である。

アーキテクチャの3要素

1. 識別（Identification）: 何をもって「変更箇所」とするか？（特定のレイヤー名、あるいは特定のブロック名）
2. 集約（Aggregation）: 複数の変更箇所がある場合、それらすべてを収める最小の矩形をどう計算するか？
3. 提示（Presentation）: 計算した矩形に対して、いかに正確にビューポートを制御するか？

2. 実装の核心：計算量と堅牢性を両立させるアルゴリズム

単に全てのオブジェクトをループして `BoundingBox` を取得するのは、図面が重い場合にパフォーマンスを著しく低下させる。対象を「特定のレイヤー」に絞り込み、そのオブジェクトの `BoundingBox` プロパティを利用して、最小値（Min）と最大値（Max）を更新していく手法が最も効率的だ。

プロダクションレベルのコード例

以下のコードは、`REV_MARK` というレイヤーに存在するすべてのオブジェクトを検出し、それらを全て包含する範囲にズームした上で保存を行う。

Option Explicit

''' <summary>
''' 特定のレイヤー上のオブジェクトを検出し、その範囲にズームして保存する
''' </summary>
Public Sub ContextAwareSave()
    Dim acadDoc As AcadDocument
    Set acadDoc = ThisDrawing
    
    ' --- 設定領域 ---
    Const TARGET_LAYER As String = "REV_MARK" ' 変更箇所を示すレイヤー名
    Const SAVE_PATH As String = "C:\Temp\Output_Review.dwg" ' 保存先（実務では変数化）
    ' ----------------
    
    Dim targetObj As AcadEntity
    Dim minPt As Variant, maxPt As Variant
    Dim globalMinX As Double, globalMinY As Double, globalMinZ As Double
    Dim globalMaxX As Double, globalMaxY As Double, globalMaxZ As Double
    Dim isFirstFound As Boolean
    Dim foundCount As Long
    
    isFirstFound = True
    foundCount = 0
    
    ' 無限大・極小値で初期化
    globalMinX = 1E+30: globalMinY = 1E+30: globalMinZ = 1E+30
    globalMaxX = -1E+30: globalMaxY = -1E+30: globalMaxZ = -1E+30

    On Error GoTo ErrorHandler

    ' 1. モデル空間内のオブジェクトを走査
    ' ※パフォーマンスを考慮し、全オブジェクトではなく、選択セットやフィルタリングを検討すべきだが
    ' ここではロジックの明快さを優先し、全走査のパターンを示す
    For Each targetObj In acadDoc.ModelSpace
        ' レイヤーによるフィルタリング
        If UCase(targetObj.Layer) = UCase(TARGET_LAYER) Then
            
            ' オブジェクトの境界矩形を取得
            targetObj.GetBoundingBox minPt, maxPt
            
            ' 境界矩形の計算（包含矩形の更新）
            If isFirstFound Then
                globalMinX = minPt(0): globalMinY = minPt(1): globalMinZ = minPt(2)
                globalMaxX = maxPt(0): globalMaxY = maxPt(1): globalMaxZ = maxPt(2)
                isFirstFound = False
            Else
                If minPt(0) < globalMinX Then globalMinX = minPt(0)
                If minPt(1) < globalMinY Then globalMinY = minPt(1)
                If minPt(2) < globalMinZ Then globalMinZ = minPt(2)
                If maxPt(0) > globalMaxX Then globalMaxX = maxPt(0)
                If maxPt(1) > globalMaxY Then globalMaxY = maxPt(1)
                If maxPt(2) > globalMaxZ Then globalMaxZ = maxPt(2)
            End If
            
            foundCount = foundCount + 1
        End If
    Next targetObj

    ' 2. 描画・ズーム処理
    If foundCount > 0 Then
        ' 余裕を持たせるために境界を5%広げる（プロの配慮）
        Dim margin As Double
        margin = (globalMaxX - globalMinX) * 0.05
        If margin = 0 Then margin = 1.0 ' ゼロ除算・点対策
        
        Dim zoomMin(0 To 2) As Double
        Dim zoomMax(0 To 2) As Double
        
        zoomMin(0) = globalMinX - margin: zoomMin(1) = globalMinY - margin: zoomMin(2) = globalMinZ - margin
        zoomMax(0) = globalMaxX + margin: zoomMax(1) = globalMaxY + margin: zoomMax(2) = globalMaxZ + margin
        
        ' ズーム実行
        acadDoc.ZoomWindow zoomMin, zoomMax
        Debug.Print "Found " & foundCount & " marks. Zoomed to target area."
    Else
        ' 変更箇所が見つからない場合は、通常のZoom Extentsで妥協する
        acadDoc.ZoomExtents
        Debug.Print "No marks found. Performed standard Zoom Extents."
    End If

    ' 3. 再描画と保存
    acadDoc.Regen acAllViewports
    acadDoc.SaveAs SAVE_PATH
    
    MsgBox "コンテキスト保存が完了しました。" & vbCrLf & "検知数: " & foundCount, vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

3. 実務における「堅牢性」へのアドバイス

このコードをプロダクション環境に投入する際、以下の3点を考慮しなければ、君のツールは使い物にならない。

① ゼロ・マージンの罠

変更箇所が「点（Point）」や「重なった線」である場合、`globalMaxX – globalMinX` が `0` になる。このとき、ズームの計算でエラーが発生したり、画面が真っ白になったりする。上記のコードでは `margin` の計算に安全策を入れているが、これは極めて重要な設計判断だ。

② 浮動小数点精度の考慮

AutoCADの座標系はダブル精度浮動小数点数だ。比較演算を行う際は、極端に小さな値の差を無視する、あるいは計算結果に必ず「余白（Margin）」を持たせる設計にせよ。境界線ギリギリのズームは、検図者の視覚的ストレスを生む。

③ データベース（外部連携）への拡張性

実務では、この「変更箇所」を単にズームするだけでなく、「いつ、誰が、どのレイヤーにマークを置いたか」をCSVやSQL Serverにログとして書き出すべきだ。
`foundCount` をログに記録し、`SaveAs` のタイミングで外部ファイルに追記する処理を加えるだけで、このツールは「単なる便利機能」から「業務管理システム」へと昇華する。

結論：エンジニアの価値は「配慮」に宿る

優れた自動化エンジニアは、コードの短さではなく、「そのコードが、次に動く人間の動作をどれだけ減らせるか」を基準に設計する。

「保存ボタンを押して終わり」という思考を捨てろ。
「保存した瞬間に、検図者の画面に最適な情報が映し出されているか？」を問え。

この視点を持てたとき、君の書くVBAは、単なるスクリプトから、プロフェッショナルのための「武器」へと変わる。