プロローグ：なぜあなたの自動化は「レイアウト空間」で止まるのか
AutoCAD VBAを操るエンジニア諸君、ようこそ。
図面自動生成の真の壁は、モデル空間での作図ではない。その後の「レイアウト（ペーパー空間）での仕上げ」にある。
多くの初級者が、レイアウト空間に配置された複数のビューポート（PViewport）を制御できず、結局最後は手動でダブルクリックして画角を調整している。これは自動化エンジニアとして敗北を意味する。
今回のテーマは、`AcadDocument.ActivePViewport`の完全掌握だ。
特定のビューポートをプログラムから「アクティブ（モデル空間編集モード）」に切り替える。この単純に見える操作には、AutoCADのオブジェクトモデルが持つ「儀式」と「作法」が凝縮されている。
これをマスターすれば、100枚のレイアウトの特定のビューポートだけを順次アクティブにし、ズームし、画層フリーズを制御する……といった「神の業」が現実のものとなる。
—
1. 概念の整理：ActivePViewportへの最短ルート
AutoCADのペーパー空間には、特有の「状態」が存在する。これを無視してコードを書くと、実行時エラーの山を築くことになる。
「ビューポートをアクティブにする」ための3つの絶対条件
1. ActiveSpaceが「acPaperSpace」であること：モデル空間にいては、ペーパー空間のビューポートは触れない。
2. MSpaceプロパティが「True」であること：これは「ペーパー空間の中にいながら、モデル空間を覗き込んでいる状態（ダブルクリックした状態）」を指す。
3. ビューポートIDの特定：ペーパー空間自体も「1番目のビューポート」としてカウントされる。我々が操作したい「枠」は、通常IDが2以降になる。
—
2. 実践：堅牢なビューポート・アクティベーター
単にインデックスで指定するような脆弱なコードは捨てろ。実務では「特定の名前」や「特定の座標」にあるビューポートを正確に射抜く必要がある。
以下のコードは、指定した「ビューポートID」を探し出し、安全にアクティブ化するためのプロトタイプだ。
プロダクション・コード例
Option Explicit
”’
”’
”’ アクティブにしたいビューポートのID
Public Sub ActivateSpecificViewport(targetId As Long)
Dim doc As AcadDocument
Set doc = ThisDrawing
On Error GoTo ErrorHandler
‘ 1. レイアウト空間（ペーパー空間）に強制移動
If doc.ActiveSpace = acModelSpace Then
doc.ActiveSpace = acPaperSpace
End If
‘ 2. 目的のビューポートオブジェクトを取得
‘ ※実務ではIDだけでなく、拡張データ(XData)などで識別するのが定石
Dim vp As AcadPViewport
Dim found As Boolean: found = False
Dim obj As AcadObject
For Each obj In doc.PaperSpace
If TypeOf obj Is AcadPViewport Then
Set vp = obj
‘ IDが一致するか確認
If vp.ID = targetId Then
found = True
Exit For
End If
End If
Next obj
If Not found Then
MsgBox “指定されたID ” & targetId & ” のビューポートが見つかりません。”, vbCritical
Exit Sub
End If
‘ 3. 【重要】MSpaceをTrueにする前に、そのビューポートをActivePViewportにセットする
‘ この順番が、AutoCAD VBAにおける「儀式」だ。
doc.MSpace = True
doc.ActivePViewport = vp
‘ 更新を反映
doc.Regen acAllViewports
Debug.Print “Viewport ID: ” & targetId & ” をアクティブにしました。”
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
End Sub
”’
”’
Sub Test_SwitchViewports()
Dim obj As AcadObject
‘ ペーパー空間をスキャンしてIDを確認
For Each obj In ThisDrawing.PaperSpace
If TypeOf obj Is AcadPViewport Then
Dim vp As AcadPViewport: Set vp = obj
‘ ID 1はペーパー空間自体（全体ビュー）なので除外
If vp.ID > 1 Then
ActivateSpecificViewport vp.ID
‘ ここでZoomCenterなどの操作を行う
MsgBox “Viewport ID: ” & vp.ID & ” を編集中。次へ進みますか？”
End If
End If
Next obj
End Sub
—
3. チーフアーキテクトの視点：なぜこの設計なのか
なぜ `vp.ID = 1` を避けるのか？
AutoCADの仕様上、レイアウトを作成した瞬間に生成される「全体ビュー」のIDは常に1だ。これに対して `MSpace = True` を行うことはできない（あるいは意味をなさない）。実務で配置したビューポートは必ず 2 以上のIDを持つ。この境界線を意識することが、バグを防ぐ第一歩だ。
データベース連携への拡張性
実務では、Excelや外部データベースから「どのビューポートに、どの図面範囲を表示させるか」という指示を読み込むことが多い。
その際、`ID` はファイルを開き直すと変わる可能性がある不安定な値だ。より堅牢なシステムを構築するなら、`Handle`（ハンドル名）を利用せよ。ハンドルは図面内で不変のユニークIDであり、外部DBとの紐付けにはこれしかない。
パフォーマンスの重み
`doc.Regen` をループの中で多用していないか？
ビューポートの切り替えのたびに再描画（Regen）をかけるのは、大規模図面では致命的な遅延を招く。すべての設定が終わった後に一括で `acAllViewports` を叩く。この「描画タイミングの制御」こそがプロの仕事だ。
—
4. 陥りやすい罠：ビューポートがロックされている場合
自動化ツールが失敗する原因の多くは、「ビューポートの表示ロック（DisplayLocked）」だ。
アクティブにした後、表示範囲（Zoom）を変更しようとしても、ロックがかかっていればコードは沈黙するかエラーを吐く。
‘ 編集前にロックを解除し、終わったら戻す
Dim originalLock As Boolean
originalLock = vp.DisplayLocked
vp.DisplayLocked = False
‘ — ここでZoom処理などを行う —
vp.DisplayLocked = originalLock
この一行を加えられるかどうかが、現場で「使えるツール」になるか「使えないゴミ」になるかの分かれ道だ。
—
エピローグ：制御の先にある世界
`ActivePViewport` を自在に操れるようになれば、もはや図面100枚の検図や修正に怯える必要はない。
各レイアウトを巡回し、特定のビューポートに飛び込み、中のモデルを修正し、また次のレイアウトへ……。この一連の動作をミリ秒単位で完遂するツールは、あなたのチームの生産性を異次元へと引き上げるだろう。
次は、このアクティブにしたビューポート内で「画層のフリーズ状態（LayerPropertyOverrides）」を個別に制御する手法について語ろう。
AutoCAD VBAの深淵はまだ先にある。研鑽を怠るな。
