AutoCAD VBAを掌握する極限の知見
図面オープン直後の「モデル空間/ペーパー空間」自動切り替え：編集開始時の視点を固定するVBA
執筆：チーフアーキテクト / 業務自動化エンジニア
—
序論：なぜ図面を開くたびに「視点の迷子」になるのか
大規模なプラント図面、あるいは何百枚もの建築施工図をバッチ処理、あるいは日常的に目視確認するシニアエンジニアやCAD管理者にとって、AutoCADの「初期ビューの揺れ」ほど生産性を殺すものはない。
前任者がどのレイアウトタブで保存したか、最後にどのズーム倍率で閉じられたかによって、図面を開いた瞬間の画面は「得体の知れないハッチングの拡大図」であったり「ペーパー空間の謎の枠線」であったりする。この瞬間、人間の脳には無駄なコンテキストスイッチ（文脈の切り替え）が発生し、認知負荷が蓄積する。
プロフェッショナルな環境において、「図面を開いた瞬間の状態は、常に完全に制御されていなければならない」。
今回は、AutoCAD VBAのイベント機構とオブジェクトライフサイクルの深淵に踏み込み、図面オープン直後に強制的にモデル空間へ遷移し、限界までズーム（Zoom Extents）した状態で作業を開始させるための、極限まで最適化されたコードと知見を共有する。
—
アーキテクチャの核心：AutoCAD VBAにおける「ドキュメントライフサイクル」の罠
多くの初学者、あるいは中級プログラマですら犯す最大の過ちは、`ThisDrawing` オブジェクトの扱いと、ドキュメントが完全にロードされるタイミング（イベントの捕捉）の誤認である。
AutoCADのMDI（マルチドキュメントインターフェイス）環境において、図面を開く処理と、VBAの実行コンテキストが確立されるタイミングは、厳密には一致しない。単純に `Open` メソッドの直後に操作を行おうとすると、COMラッパーが未初期化であったり、クロススレッド例外や不安定な挙動を引き起こす。
これを解決するには、`AcadApplication` レベルのアプリケーションイベント、あるいは `AcadDocument` のドキュメントイベントを正しくフックする必要がある。今回は、すべての図面で共通して機能する、`DocumentOpen` イベントを利用したアプローチをとる。
—
実装コード：極限まで洗練されたイニシャライザ
以下のコードは、エラーハンドリング、メモリの安全な解放、そしてAutoCAD内部のビューポート制御エンジンへの正確な命令を内包したプロダクション品質のコードである。
1. イベント監視クラスモジュール (`CAppEvents.cls`)
アプリケーション全体の「図面オープン」を監視するため、クラスモジュールを使用する。
‘ =================================================================athor: Chief Architect
‘ Class Module: CAppEvents
‘ Description: AutoCADのアプリケーションイベントをキャッチし、図面オープン時の初期化を統括する
‘ =================================================================オプション明示
Option Explicit
‘ WithEventsを使用してAutoCADアプリケーションイベントをフック
Public WithEvents App As AcadApplication
‘ 図面が開かれた直後に発火するイベント
Private Sub App_DocumentOpen(ByVal Doc As Document)
On Error GoTo ErrorHandler
‘ デバッグ用トレース（本番環境ではコメントアウト可）
‘ Debug.Print “Document Opened: ” & Doc.Name
‘ 1. アクティブ空間を強制的に「モデル空間 (Model Space)」に設定
‘ 0 = model space, 1 = paper space
Doc.ActiveSpace = acModelSpace
‘ 2. モデル空間内でのビューポートを確実にするため、MSLTSCALE等の環境変数も必要に応じ調整可能
‘ Doc.SetVariable “TILEMODE”, 1 ‘ 古いバージョンの互換性が必要な場合は併用
‘ 3. 図面全体を表示する (Zoom Extents相当の処理をSendCommand経由ではなく安全に実行)
‘ ※Sendcommandは非同期でありタイミング問題を起こすため、極力VBAネイティブメソッドを使用すべきだが、
‘ Zoom Extentsに関してはApp.ZoomExtentsまたはSendcommandを使うのが確実。
‘ アプリケーションのアクティブドキュメントを対象にズームを実行
Dim targetDoc As AcadDocument
Set targetDoc = Doc
‘ AutoCADの画面描画を一度ロックしてパフォーマンスを最適化
targetDoc.Utility.AddSelectionSet “TempSS” ‘ メモリ整合性のためのダミーではなく、CADのコンテキストを安定させる
‘ ズームエクステンントの実行（安全なコマンド実行パターン）
‘ 注意: SendCommandはドキュメントが完全にアクティブ化された後に評価させる必要があるため、
‘ DoEventsを挟むか、Application.ZoomExtentsを使用する。
targetDoc.Activate
targetDoc.Application.ZoomExtents
‘ 4. 変更フラグを汚染しないための配慮（読み取り専用で開いた場合の保護）
If Not targetDoc.ReadOnly Then
‘ 必要に応じてここで自動保存フラグの制御などを行う
End If
CleanUp:
‘ オブジェクト変数の明示的解放（メモリリークの完全防止）
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
‘ ログ出力機構へ流すのが望ましいが、ここではイミディエイトへ出力
Debug.Print “Error in App_DocumentOpen: ” & Err.Description
Resume CleanUp
End Sub
2. 初期化用標準モジュール (`mMain.bas`)
このモジュールは、AutoCAD起動時（あるいは手動実行時）にイベントリスナーを常駐させるためのエントリーポイントである。
‘ =================================================================
‘ Module: mMain
‘ Description: イベント監視クラスのインスタンスを生成し、ライフサイクルを維持する
‘ =================================================================
Option Explicit
‘ アプリケーションイベントを保持するグローバル変数（VBAのスコープ切れによるイベント消失を防ぐ）
Public GlbAppEvents As CAppEvents
‘ AutoCAD起動時に自動実行させたい場合は AcadStartup 等のエントリを利用するか、
‘ ツールバー・リボンから手動で呼び出す。
Public Sub InitializeAutoCADMonitor()
If GlbAppEvents Is Nothing Then
Set GlbAppEvents = New CAppEvents
Set GlbAppEvents.App = ThisDrawing.Application
MsgBox “AutoCAD 視点自動固定システムが正常に稼働を開始しました。”, vbInformation, “System Ready”
Else
MsgBox “システムは既に稼働しています。”, vbExclamation, “Notice”
End If
End Sub
‘ 監視を停止する場合のクリーンアップ
Public Sub TerminateAutoCADMonitor()
If Not GlbAppEvents Is Nothing Then
Set GlbAppEvents.App = Nothing
Set GlbAppEvents = Nothing
MsgBox “システムを停止しました。”, vbInformation, “System Stopped”
End If
End Sub
—
シニアエンジニアが知るべき「メモリ最適化」と「罠」
1. COMオブジェクトの参照解放（Reference Counting）
VBAはガベージコレクションを持たない。`Doc` オブジェクトや `AcadApplication` を操作する際、ローカル変数に代入したCOMオブジェクトは、プロシージャの抜け際に確実に `Nothing` を代入して参照カウンタをデクリメントしなければならない。これを怠ると、何百枚もの図面を開閉するバッチ処理において、AutoCADのプロセスがメモリリークを起こし、突然のクラッシュ（Fatal Error）を引き起こす。
2. `SendCommand` の呪縛と非同期処理の回避
初学者はよく `Doc.SendCommand “_.ZOOM _E “` と書きがちだが、これは極めて危険である。`SendCommand` は非同期でコマンドバッファに文字列を送り込むため、図面のロード完了タイミングと競合し、コマンドが無視されたり予期せぬ動作を招く。公式の `Application.ZoomExtents` メソッドを使用するか、ドキュメントの活性化 (`Activate`) を明示的に挟むことで、実行の確実性を担保せよ。
3. レガシーバージョン（AutoCAD 2004〜最新版）における互換性
古いAutoCAD環境では、ドキュメントイベントの挙動が不安定な場合がある。特に複数図面をタブ切り替えするMDI環境において、`ActiveSpace` の変更はグラフィックの再描画（Regen）を伴うため、図面が大きい場合はわずかな硬直が発生し得る。これを最小限に抑えるため、不要なレイアウトの評価をバイパスする設計が不可欠である。
—
結論：自動化の真髄は「環境の標準化」にある
個人のオペレーションスキルに依存する時代は終わった。
「図面を開いたらまずモデル空間にして全体表示する」という、一見すると些細な数秒の操作であっても、年間数万回繰り返されれば膨大なロスであり、ヒューマンエラーの温床となる。
ここに示したVBAコードは、単なる便利スクリプトではない。あらゆる図面を「常に同一の既知の状態」からスタートさせるための、堅牢なアーキテクチャの一部である。
自身の開発環境、そしてチームの共有基盤にこの知見を組み込み、AutoCADを真の意味で「手足のように動くシステム」へと昇華させてほしい。
