AutoCAD VBAを掌握せよ：`ZoomWindow`で制御する「視点の自動化」という極意
現場で図面を自動処理しているとき、こんなストレスを感じたことはないか？
「プログラムが完了したはいいが、肝心の修正箇所がどこにあるか分からない」
「エラーログを吐き出すだけでは、ユーザーは図面のどこを確認すべきか迷子になる」
業務効率化ツールにおいて、「視点の制御」は単なるおまけ機能ではない。ユーザー体験（UX）そのものだ。 本稿では、AutoCAD VBAにおける`ZoomWindow`を用いた、堅牢で実務レベルの「視点自動化」について、プロのアーキテクチャ設計論を交えて解説する。
—
1. なぜ「ただのZoom」ではダメなのか？
初心者は`ZoomWindow`を呼ぶ際、単純に座標を放り込むだけのコードを書く。しかし、実務の現場では以下の問題に直面する。
- アクティブではないドキュメント: `ThisDrawing` を決め打ちすると、バックグラウンドで開いている図面に干渉してエラーになる。
- 座標系の罠: WCS（ワールド座標系）とOCS（オブジェクト座標系）の混同。
- 例外処理の欠如: ズーム対象が「点」であったり、ゼロ除算（範囲が0）になる場合にシステムがフリーズする。
これらを排除し、プロダクション（本番）環境で耐えうるコードを書くのが、我々エンジニアの責務だ。
—
2. 堅牢なズーム制御の実践コード
以下は、引数で指定された座標範囲に対して、安全にズームを行うための関数だ。これをモジュールに組み込んでおけば、あらゆるエラーを未然に防げる。
‘ @brief 指定範囲へ視点を移動させる堅牢なラッパー関数
‘ @param doc 対象のAcadDocument
‘ @param minPt 左下の座標 (Variant配列)
‘ @param maxPt 右上の座標 (Variant配列)
Public Sub SmartZoomWindow(ByRef doc As AcadDocument, minPt As Variant, maxPt As Variant)
On Error GoTo ErrHandler
‘ 1. 引数のバリデーション：空の図面や無効な範囲を弾く
If doc Is Nothing Then Exit Sub
‘ 2. アプリケーションの可視性を確認
‘ 非表示状態でのZoom操作は予期せぬ挙動を生むため、アクティブ化を推奨
If Not doc Is ThisDrawing Then
doc.Activate
End If
‘ 3. 実行：ZoomWindowはApplicationオブジェクトに対して呼ぶ
‘ 重要：座標は必ずWCSで渡すこと
doc.Application.ZoomWindow minPt, maxPt
Exit Sub
ErrHandler:
‘ ログ出力の設計：ここでエラーを握りつぶさず、呼び出し元へ伝えるか
‘ ユーザーフレンドリーな通知を行うこと
Debug.Print “Zoom Error: ” & Err.Description
End Sub
このコードが「プロ仕様」である理由
1. 疎結合設計: `ThisDrawing` に依存せず、対象の `doc` オブジェクトを明示的に受け取る設計。これにより、複数図面を開いた状態でのバッチ処理に対応できる。
2. 防御的プログラミング: `On Error` による例外捕捉。AutoCADのズーム処理は、描画エンジンがビジー状態だと稀に失敗する。失敗してもツール全体が落ちない設計が必須だ。
—
3. 実務での活用：座標取得の極意
`ZoomWindow`を使うには、対象となる「バウンディングボックス（境界ボックス）」を知る必要がある。最もスマートなのは、図形オブジェクトの `GetBoundingBox` メソッドを利用することだ。
Sub Example_ZoomToEntity(ent As AcadEntity)
Dim minP As Variant, maxP As Variant
‘ 図形から境界座標を取得
ent.GetBoundingBox minP, maxP
‘ 視認性を高めるため、少しだけ範囲を広げる（オフセット処理）
‘ これにより、オブジェクトが画面ギリギリにならず、余裕を持って確認できる
Dim offset As Double: offset = 50.0
minP(0) = minP(0) – offset: minP(1) = minP(1) – offset
maxP(0) = maxP(0) + offset: maxP(1) = maxP(1) + offset
‘ 自作のラッパー関数を呼び出し
SmartZoomWindow ThisDrawing, minP, maxP
End Sub
—
4. 最後に：アーキテクトからの助言
AutoCAD VBAはレガシーな技術だと思われがちだが、そのオブジェクトモデルは極めて洗練されている。
- データベース連携: 図面内の属性情報をデータベース（SQL Server等）から読み取り、該当する部材にこのズーム処理を飛ばすだけで、「検索結果をクリックすると図面が自動的にパンするシステム」が完成する。
- 保守性: ズーム処理を共通モジュール（クラス）に集約せよ。「ズームしたい」と思ったときに `ZoomWindow` を直接書くのではなく、`ViewManager.Focus(entity)` のような抽象化されたメソッドを通すのだ。
道具（VBA）に使われるな。道具を制御し、設計思想をコードに刻め。
君の書くコードが、明日の誰かの業務時間を劇的に短縮することを期待している。
