【AutoCAD VBA】ActiveSpaceの絶対制御：モデル・ペーパー空間の配置ミスをコードレベルで根絶する極意
開発プロジェクトの現場において、図面自動化マクロのバグ報告で最も多く、かつ最も「くだらない」と切り捨てられがちなエラーが何か知っているか？
それは、「モデル空間に配置すべき図面枠や寸法線が、なぜかレイアウト（ペーパー空間）に生成されて消えた（あるいはその逆）」という、空間の取り違えによる配置ミスだ。
AutoCAD VBAにおいて、`ModelSpace` と `PaperSpace` は、単なる描画先の切り替えではない。それぞれのオブジェクトモデルのライフサイクルとコンテキストを完全に理解していなければ、マクロは「動くが、実務で使えない欠陥品」のままで終わる。
今回は、`AcadDocument.ActiveSpace` を完全に掌握し、意図しない空間への図形配置をコードレベルで物理的に防ぐ、堅牢な空間制御のアーキテクチャを伝授する。
—
1. なぜ「空間の把握漏れ」は現場の地雷になるのか？
初心者がやりがちな最悪のアンチパターンを見てみよう。
‘ 【絶対に行ってはならないアンチパターン】
Sub BadExample_DrawLine()
Dim acadLine As AcadLine
Dim startPoint(0 to 2) As Double
Dim endPoint(0 to 2) As Double
‘ 座標設定…
startPoint(0) = 0#: startPoint(1) = 0#: startPoint(2) = 0#
endPoint(0) = 100#: endPoint(1) = 100#: endPoint(2) = 0#
‘ どこの空間を指定しているか意識せずに追加！
Set acadLine = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
End Sub
このコードの何が問題か？
もしユーザーが図面のレイアウトタブ（ペーパー空間）を表示している状態でこのマクロを実行した場合、`ThisDrawing.ModelSpace` 自体には図形が追加される。しかし、ユーザーの目の前には何も描画されていないように見える。ユーザーは「バグだ！マクロがフリーズした！」と錯覚し、ヘルプデスクに駆け込むことになる。
プロのエンジニアであれば、「現在ユーザーがどの空間を見ているか（ActiveSpace）」と、「プログラムがどこに図形を描こうとしているか（TargetSpace）」を厳密に同期、あるいは意図的に分離して制御しなければならない。
—
2. ActiveSpaceの仕様と、レイアウト（PaperSpace）の罠
AutoCADの空間を制御する上で、絶対に知っておくべきプロパティが2つある。
1. `ThisDrawing.ActiveSpace`
- 現在、ユーザーが画面上で操作している空間を示す。
- 取るべき値：`acModelSpace` （モデル空間） または `acPaperSpace` （ペーパー空間）
2. `ThisDrawing.ModelSpace` / `ThisDrawing.PaperSpace` / `ThisDrawing.Layouts`
- コードから直接図形を追加・操作するためのコンテナ。
ここで厄介なのは、「ActiveSpaceがペーパー空間である時、`ThisDrawing.PaperSpace` は現在アクティブなレイアウトを指すが、モデル空間（`acModelSpace`）にあるメソッドをアクティブペーパー空間から直接呼ぶと実行時エラーになる場合がある」という点だ。
さらに、ペーパー空間は複数存在しうる（Layout1, Layout2…）。単に `PaperSpace` と書いた場合、現在アクティブなレイアウトのペーパー空間を指すが、バックグラウンド処理を行う場合には、目的のレイアウトオブジェクトを正確にターゲットにしなければならない。
—
3. 【プロダクションコード】空間ミスの自動防止ラッパー関数
実務でそのまま使える、堅牢な空間制御モジュールを公開しよう。
このコードでは、「処理の実行前に強制的にモデル空間へ切り替える（または目的の空間を保証する）」アプローチと、「現在の空間を判定して安全に図形を追加する」アプローチの2つを実装している。
Option Explicit
‘ ==============================================================================
‘ モジュール名: ModSpaceController
‘ 概要: AutoCADの空間（モデル/ペーパー）を安全に制御し、配置ミスを防止する
‘ ==============================================================================
Public Enum TargetSpaceEnum
tsModelSpace = 1
tsPaperSpace = 2
End Enum
/
- 指定した空間に安全に図形を描画するためのラッパー関数
- @param targetSpace 描画を保証したい空間 (tsModelSpace または tsPaperSpace)
/
Sub Example_SafeDrawingExecution()
Dim target As TargetSpaceEnum
‘ 今回は絶対にモデル空間に描画したい業務ロジックだと仮定
target = tsModelSpace
If Not EnsureActiveSpace(target) Then
MsgBox “空間の切り替えに失敗しました。処理を中断します。”, vbCritical
Exit Sub
End If
‘ — ここから安全な描画処理 —
Dim acadLine As AcadLine
Dim p1(0 to 2) As Double, p2(0 to 2) As Double
p1(0) = 0: p1(1) = 0: p1(2) = 0
p2(0) = 500: p2(1) = 500: p2(2) = 0
‘ 現在のActiveSpaceが保証されているため、ModelSpaceオブジェクトを直接叩いて安全
Set acadLine = ThisDrawing.ModelSpace.AddLine(p1, p2)
MsgBox “モデル空間への線分描画が正常に完了しました。”, vbInformation
End Sub
/
- AcadDocument.ActiveSpaceを監視し、必要に応じて切り替え、
- さらにUIのビューポート表示（MSpace/PSpaceコマンドの挙動）を同期させる関数
- @param desiredSpace 移行先空間
- @return Boolean 成功時はTrue
/
Private Function EnsureActiveSpace(ByVal desiredSpace As TargetSpaceEnum) As Boolean
On Error GoTo ErrorHandler
Dim currentSpace As AcActiveSpace
currentSpace = ThisDrawing.ActiveSpace
If desiredSpace = tsModelSpace Then
If currentSpace <> acModelSpace Then
‘ モデル空間へ切り替え
ThisDrawing.ActiveSpace = acModelSpace
‘ 【重要】AutoCAD内部のビューポート切り替え同期
‘ ペーパー空間からモデル空間へ移る際、Mspaceコマンド相当の処理が必要な場合がある
ThisDrawing.SetVariable “TILEMODE”, 1
End If
ElseIf desiredSpace = tsPaperSpace Then
If currentSpace <> acPaperSpace Then
‘ ペーパー空間へ切り替え
ThisDrawing.ActiveSpace = acPaperSpace
ThisDrawing.SetVariable “TILEMODE”, 0
End If
End If
‘ 最終確認
If ThisDrawing.ActiveSpace = (desiredSpace = tsPaperSpace) Then ‘ 簡易判定の整合性
‘ 期待通りの空間になった
End If
EnsureActiveSpace = True
Exit Function
ErrorHandler:
‘ ログ出力やエラーハンドリングをここに記述
Debug.Print “EnsureActiveSpace Error: ” & Err.Description
EnsureActiveSpace = False
End Function
—
4. チーフアーキテクトからの実践的アドバイス：設計の極意
現場でこのコードを組み込むにあたり、以下の3点を心に刻んでおいてほしい。
1. 自動復元（トランザクション的思考）の実装
マクロが終了した際、ユーザーが作業していた元の空間（ActiveSpace）に戻してあげるのが、UI/UXにおける「優しさ」でありプロの仕事だ。マクロ開始時の空間を変数に保持（退避）し、`Exit Sub` や `Error` 時も含めて最後に元に戻す仕組みを組み込むこと。
2. `TILEMODE` システム変数との連動
古くからのAutoCADの仕様として、`ActiveSpace` の変更はシステム変数 `TILEMODE` と密接に関係している。レイアウトタブとモデルタブの行ったり来たりをプログラムで行う場合、`TILEMODE` の制御を怠ると、レイアウト上のビューポート内で迷子になる現象が発生する。
3. データベース連携（外部図面の一括処理）時の注意点
もし `Documents.Open` などを用いて、画面を表示せずにバックグラウンド（非表示）で図面をバッチ処理する場合、そもそも `ActiveSpace` は機能しない（画面が表示されていないため）。バックグラウンド処理ではUIに依存する `ActiveSpace` ではなく、直接 `TargetDocument.ModelSpace` または `TargetDocument.PaperSpace` を指定してゴリゴリ図形を生成しなければならない。この文脈の切り分けこそが、エラーを出さない最強のVBA設計の肝である。
空間制御のミスは、デバッグの時間を無駄に奪う最悪のノイズだ。今日紹介したラッパーの概念をあなたのプロジェクトに導入し、配置ミスを完全に過去のものにしてほしい。
