1. プロローグ：図面オープン時の「状態復元」が孕む、AutoCADオブジェクトモデルの罠
諸君、AutoCAD VBAを単なる「簡易マクロ」と侮っていないだろうか。
実務における図面制御、特に「図面を開いた瞬間に特定のレイアウトを表示し、指定のビューポートをアクティブ化してモデル空間編集状態にする」という要件は、一見簡単に見えて、その実、COMオブジェクトのライフサイクルとAutoCADのグラフィックスパイプラインが衝突する、最もバグを誘発しやすい領域である。
単に `Layout.Active = True` を発行し、力任せに `MSpace = True` を流し込むだけのコードは、実戦（大容量図面や外部参照が錯綜する環境）においては容易に沈黙する。描画エンジン（Regen）との同期ズレ、イベントの再帰的ループ、COMの参照カウント未解放によるメモリリーク、そして最悪の場合は「致命的なエラー（Fatal Error）」による強制終了を引き起こす。
本稿では、レガシーとなったVBA環境でありながら、現代の64bitマルチコア環境下で動作するAutoCAD（2021〜2026以降）において、極めて堅牢かつ高速に「レイアウト・ビューポート状態」を自動復元するためのプロフェッショナルな設計思想と、それを実現する極限のコードを示す。
—
2. アーキテクチャの真髄：ビューポートとレイアウトの制御シーケンス
AutoCADの内部において、レイアウト（`AcadLayout`）とビューポート（`AcadViewport` / `AcadPViewport`）の関係性は、二重の構造を持っている。
1. ペーパー空間自体がひとつのレイアウトであること
2. ペーパー空間内に配置された「浮動ビューポート（PViewport）」は、図面データベース上はエンティティ（Object）として扱われること
この二面性を理解せずにコードを書くと、オブジェクトの取得順序やプロパティの設定順序で必ずエラー（`Automation Error`）が発生する。
特に、「ペーパー空間の特定の浮動ビューポートをアクティブにし、その内部のモデル空間（MSpace）を編集可能状態にする」という処理は、以下の厳密なシーケンスを遵守しなければならない。
[図面オープン完了]
│
▼
[画面更新のロック (Win32 API)]
│
▼
[ActiveSpace = acPaperSpace (ペーパー空間へ強制移行)]
│
▼
[ActiveLayout = 目的のレイアウト (レイアウトの切り替え)]
│
▼
[PViewportの走査と特定 (ObjectIdによる厳密な比較)]
│
▼
[ActivePViewport = ターゲットPViewport (ビューポートのアクティブ化)]
│
▼
[MSpace = True (浮動ビューポート内モデル空間の有効化)]
│
▼
[画面更新の解除 & 強制再描画 (Regen)]
このシーケンスのどこか一つでもタイミングが狂う（例：`ActiveLayout` を切り替える前に `MSpace = True` を呼ぶ、あるいは非表示のビューポートをアクティブにしようとする）と、AutoCADの内部状態は不整合を起こし、VBA実行エンジンは即座にハングアップする。
—
3. 極限のVBA実装：自動復元イベントハンドラーと制御エンジン
以下に、実務で使用するための完全なコードを示す。
このコードは、以下の高度な技術的アプローチを採用している。
1. Win32 API (`LockWindowUpdate`) による描画のロック:
レイアウト切り替え時の不快な画面のチラつき（フラッシング）を完全に排除し、描画オーバーヘッドをゼロにする。
2. VBA7 / 64bit環境への完全対応:
`PtrSafe` および `LongPtr` を適切に配したAPI宣言。
3. エラーハンドリングとリソースの確実な解放:
例外発生時にも必ず画面ロックを解除し、COMオブジェクトを `Nothing` で明示的に解放する。
3.1. クラスモジュール: `AppEventHandler`
図面のオープンイベントを監視するためのアプリケーションレベルのイベントハンドラー。
‘ CLASS MODULE: AppEventHandler
‘ AutoCADのアプリケーションイベントを捕捉し、図面オープン時に状態復元エンジンを起動する。
Option Explicit
Private WithEvents m_App As AcadApplication
Private Sub Class_Initialize()
Set m_App = ThisDrawing.Application
End Sub
Private Sub Class_Terminate()
Set m_App = Nothing
End Sub
‘ 図面が開かれた（またはアクティブになった）瞬間にトリガー
Private Sub m_App_DocumentActivate(ByVal Doc As IAcadDocument)
On Error Resume Next
‘ バックグラウンドでのバッチ処理時などはスキップするための安全弁
If Doc.ReadOnly Then Exit Sub
‘ 状態復元メインロジックの呼び出し
‘ 実務では、図面ごとに復元すべきターゲット（レイアウト名やVPのID）を
‘ XDataや辞書オブジェクト（LispDictionary）から取得するのがスマートである。
‘ ここでは例として「”A3_LAYOUT”」内の「ビューポートID: 2」をターゲットとする。
Dim targetLayout As String
Dim targetVPId As Long
targetLayout = “A3_LAYOUT”
targetVPId = 2 ‘ 1はペーパー空間全体（メタビューポート）を指すため、通常は2以上
Dim restorer As New StateRestoreEngine
Call restorer.RestoreViewportState(Doc, targetLayout, targetVPId)
Set restorer = Nothing
End Sub
3.2. 標準モジュール: `StateRestoreEngine`
実際の状態復元を司るコプロセッサ。Win32 APIによる制御と、厳密なオブジェクトライフサイクル管理を行う。
‘ STANDARD/CLASS MODULE: StateRestoreEngine
‘ レイアウトおよびビューポートの物理的な状態遷移を制御するコアエンジン。
Option Explicit
‘ Win32 API 宣言 (64bit/32bit 互換)
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Private Declare PtrSafe Function GetParent Lib “user32” (ByVal hWnd As LongPtr) As LongPtr
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
Private Declare Function GetParent Lib “user32″ (ByVal hWnd As Long) As Long
End If
”’
”’
Public Sub RestoreViewportState(ByRef Doc As AcadDocument, ByVal LayoutName As String, ByVal ViewportId As Long)
On Error GoTo ErrorHandler
Dim acadApp As AcadApplication
Set acadApp = Doc.Application
‘ 1. AutoCADメインウィンドウの描画をロック（描画パフォーマンス向上とチラつき防止）
#If VBA7 Then
Dim hWnd As LongPtr
#Else
Dim hWnd As Long
#End If
hWnd = acadApp.HWND
Call LockWindowUpdate(hWnd)
‘ 2. 目的のレイアウトが存在するか確認
Dim targetLayout As AcadLayout
On Error Resume Next
Set targetLayout = Doc.Layouts.Item(LayoutName)
On Error GoTo ErrorHandler
If targetLayout Is Nothing Then
‘ ターゲットレイアウトが存在しない場合はデフォルトの挙動（モデル空間など）にして安全に抜ける
GoTo CleanExit
End If
‘ 3. ペーパー空間へコンテキストを移行
If Doc.ActiveSpace <> acPaperSpace Then
Doc.ActiveSpace = acPaperSpace
End If
‘ 4. レイアウトをアクティブ化
If Doc.ActiveLayout.Name <> LayoutName Then
Doc.ActiveLayout = targetLayout
End If
‘ 5. ペーパー空間内の浮動ビューポートを走査
Dim pViewport As AcadPViewport
Dim targetVP As AcadPViewport
Dim i As Long
‘ PaperSpaceコレクションを走査し、指定されたID（または特定のインデックス）のビューポートを探索
For i = 0 To Doc.PaperSpace.Count – 1
Dim entity As AcadEntity
Set entity = Doc.PaperSpace.Item(i)
If TypeOf entity Is AcadPViewport Then
Set pViewport = entity
‘ IDによる厳密な判定
If pViewport.ID = ViewportId Then
Set targetVP = pViewport
Exit For
End If
End If
Next i
‘ 6. ビューポートのアクティブ化とMSpaceの確立
If Not targetVP Is Nothing Then
‘ ビューポートが非表示、またはロックされている場合のハンドリング
‘ アクティブ化するためには、ビューポートがON（ViewportOn = True）である必要がある
If Not targetVP.ViewportOn Then
targetVP.ViewportOn = True
End If
‘ ビューポートをアクティブに設定
Doc.ActivePViewport = targetVP
‘ モデル空間編集（MSpace）を有効化
Doc.MSpace = True
‘ 変更を確定させるための再描画
Doc.Regen acActiveViewport
End If
CleanExit:
‘ 7. 描画ロックの解除（確実に実行すること）
Call LockWindowUpdate(0)
‘ メモリの明示的解放
Set targetLayout = Nothing
Set pViewport = Nothing
Set targetVP = Nothing
Set acadApp = Nothing
Exit Sub
ErrorHandler:
‘ エラー発生時も必ずロックを解除しなければ、AutoCAD全体の描画がフリーズする
Call LockWindowUpdate(0)
‘ 実務においては、ここにログ書き出しロジックを実装する
Debug.Print “Error in RestoreViewportState: ” & Err.Number & ” – ” & Err.Description
Resume CleanExit
End Sub
—
4. レガシー・互換性への配慮とメモリマネジメント
VBAが動作するスレッドモデルは、シングルスレッド（STA）である。
対して、AutoCADの内部は高度にマルチスレッド化されており、特に図面オープン直後は、バックグラウンドでのフォントの置換、外部参照（Xref）のロード、アソシエティブな寸法線の再計算など、無数の「非同期タスク」が走っている。
この状況下で、VBAからCOM経由で図面データベースを急激に操作すると、「RPCサーバーはビジー状態です (RPC_E_SERVERCALL_RETRYLATER)」 という悪名高きエラーに遭遇することになる。
回避策とメモリ解放の哲学
これを回避するためには、以下の3つの鉄則を守らなければならない。
1. ループ内でのローカルオブジェクト変数の使い回しを避ける:
`For Each` や `For i = 0 To …` でオブジェクトを取得する際、各ステップの最後で必ず `Set entity = Nothing` を実行すること。VBAのガベージコレクションは参照カウント方式である。参照カウンタが0にならない限り、AutoCADのC++側メモリ（Arxオブジェクト）は解放されず、図面を閉じた後もメモリにゾンビプロセスとして残り続ける。
2. `DoEvents` の戦略的挿入:
図面オープン直後のイベントハンドラー内では、本格的な処理を行う前に `DoEvents` を1、2回挟むことで、OSのメッセージキューを処理させ、AutoCAD自身のロードシーケンスを完了させる「間（ま）」を作る。
3. `ActivePViewport` の「メタビューポート」トラップ:
ペーパー空間のレイアウト自体も、内部的には「ビューポートID = 1」のビューポートとして管理されている。これをアクティブにしようとするとエラーになる。アクティブにすべき「浮動ビューポート」は、必ず `ID > 1` であることをコード上で保証すること。
—
5. エピローグ：真の最適化とは何か
多くの開発者は、動きさえすれば良いというコードを書き散らし、システムが不安定になると「VBAが古いからだ」と言い訳をする。しかしそれは誤りだ。
VBA、ひいてはCOMインターフェースは、AutoCADのC++コアにダイレクトにアクセスできる、極めて強力で低レイテンシなインフラである。問題は言語の古さではなく、オブジェクトのライフサイクルに対する、エンジニアの敬意の欠如にある。
今回示したコードのように、Win32 APIによる描画パイプラインの制御、厳密なオブジェクト変数の破棄、そしてAutoCADの内部データベース構造に即したシーケンス制御を徹底すれば、数万枚の図面を自動処理するバッチシステムであっても、VBAは極めて高速かつ、1日中回しても1MBもリークしない強靭なシステムとして機能する。
レガシーを「枯れた技術」として完全に支配し、限界までそのポテンシャルを引き出すこと。それこそが、我々チーフアーキテクトに求められる真のプロフェッショナリズムである。
