AutoCAD VBAを掌握する極限の知見：空間の迷宮を制す `ActiveSpace` の完全制御
AutoCAD VBAの自動化において、最も初歩的でありながら、最も多くのエンジニアを奈落の底へ突き落としてきた悪夢がある。
それが「モデル空間とレイアウト空間（ペーパー空間）の取り違え」だ。
「プログラムを実行したら、図形がどこにも見当たらない。しかし、レイアウトタブを切り替えてみると、そこにはペーパー空間の縮小ビューポートの中に申し訳なさそうに鎮座する図形があった……」
シニアエンジニアや社内システム管理者であれば、この絶望的な光景を一度や二度は目撃しているはずだ。
なぜこのような現象が起きるのか。そして、なぜあなたの書いたコードは空間の判定を見誤るのか。
今回は、AutoCADのオブジェクトモデルの根幹を成す `AcadDocument.ActiveSpace` の真の挙動を暴き、レガシーなCAD環境をも沈黙させる「鉄壁のガード句」の実装方法を、チーフアーキテクトの視点から授ける。
—
1. 空間の非対称性：なぜペーパー空間への誤描画が起きるのか
AutoCADの図面データベース（`AcadDatabase`）の構造を理解していない者は、画面に見えているものがそのままコードのターゲットになると錯覚する。
AutoCADには、大きく分けて以下の2つの描画コンテキストが存在する。
1. モデル空間（Model Space）：実寸の世界。すべての幾何学データがここに集約されるべき領域。
2. レイアウト空間（Paper Space）：プロット（印刷）の世界。ビューポートを介してモデル空間を覗き見る窓。
VBAで `ThisDrawing.ModelSpace.AddLine` のようなメソッドを叩いたとき、AutoCADは「現在のドキュメントの活性空間」に対してジオメトリを流し込む。
しかし、ユーザーが意図せずレイアウトタブ（ペーパー空間）を開いたままマクロを実行した場合、`ActiveSpace` の状態をコード側で検知・制御していなければ、容赦なくペーパー空間の直接座標系（あるいはアクティブなビューポート内）に図形が生成される。
これは、CADデータとしての整合性を完全に破壊する致命的なバグの温床となる。
—
2. `AcadDocument.ActiveSpace` の仕様の罠
AutoCAD VBAにおいて、現在の空間を判定するために用意されているのが `AcadDocument.ActiveSpace` プロパティだ。
このプロパティは、以下の定数（`AcActiveSpace` 列挙体）を返す。
- `acModelSpace` (0) : モデル空間がアクティブ
- `acPaperSpace` (1) : ペーパー空間がアクティブ
一見すると、「`ActiveSpace == acModelSpace` で条件分岐すればいいだけの話だ」と思うだろう。
しかし、ここに実務の現場を生き抜いてきた者なら誰もが知る重大な落とし穴がある。
罠：`ActiveSpace` は「見えている空間」であって「レイアウトタブの名前」ではない
ユーザーがレイアウトタブを選択している状態であっても、そのタブ内の「モデル空間（ビューポート内）」をダブルクリックして編集モードに入っている場合、`ActiveSpace` は `acModelSpace` を返すことがある。
さらに、COMインターフェースの遅延バインディングや、AutoCADのバージョン（AutoCAD 2010代から最新の2024以降まで）によるCOMサーバーの応答ラグが絡むと、このフラグ判定だけでは誤動作を引き起こすケースが散見される。
ゆえに、堅牢なシステムを構築するためには、単なるプロパティの参照ではなく、「例外を発生させない厳格なガード句（Guard Clause）」をマクロの最上流に配置しなければならない。
—
3. 実装：空間の取り違えを防ぐ「鉄壁のガード句」
以下に提供するコードは、単なる判定処理ではない。
「現在の空間がモデル空間でなければ、強制的に切り替えるか、処理を安全に中断する」という、大規模プラント設計や自動製図システムで標準採用されている防衛的プログラミングのイディオムだ。
Option Explicit
” ====================================================================
” @title SafeModelSpaceExecutor
” @brief アクティブ空間を強制判定し、モデル空間での安全な図形生成を保証する
” @author Chief Architect
” ====================================================================
Public Sub SafeModelSpaceExecutor()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
On Error GoTo ErrorHandler
‘ 1. セッションの安全な取得（オブジェクトのライフサイクル管理）
‘ 複数セッションが起動している極限環境を考慮し、GetObjectではなくOn_Error制御を伴うインスタンス取得を行う
Set acadApp = ThisDrawing.Application
Set acadDoc = acadApp.ActiveDocument
‘ 2. 空間の整合性チェック（ガード句）
If Not EnsureModelSpace(acadDoc) Then
MsgBox “エラー: この処理はモデル空間でのみ実行可能です。” & vbCrLf & _
“現在の空間をモデル空間に変更するか、レイアウトタブのビューポート内から抜けてください。”, _
vbCritical, “空間判定エラー”
GoTo CleanUp
End If
‘ —————————————————————-
‘ 3. メイン処理（モデル空間への安全なジオメトリ追加）
‘ —————————————————————-
ExecuteBusinessLogic acadDoc
Exit Sub
ErrorHandler:
MsgBox “予期せぬシステムエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
CleanUp:
‘ 4. メモリ最適化とCOMオブジェクトの明示的解放
‘ VBAのガベージコレクションに依存せず、参照カウンタを即座にデクリメントする
Set acadDoc = Nothing
Set acadApp = Nothing
End Sub
” ====================================================================
” @brief アクティブ空間がモデル空間か検証し、必要に応じて遷移を試みる
” @param doc 対象のAcadDocument
” @return Boolean (True: モデル空間保証 / False: 失敗)
” ====================================================================
Private Function EnsureModelSpace(ByVal doc As AcadDocument) As Boolean
On Error GoTo CheckError
‘ 活性空間の検証
If doc.ActiveSpace <> acModelSpace Then
‘ レガシー環境への配慮：必要であればここで強制的にモデル空間へスイッチする
‘ ※CADのUIスレッドをブロックするため、業務システムではユーザー確認を推奨
doc.ActiveSpace = acModelSpace
End If
‘ 再度検証
If doc.ActiveSpace = acModelSpace Then
EnsureModelSpace = True
Else
EnsureModelSpace = False
End If
Exit Function
CheckError:
‘ ペーパー空間の特殊な保護状態などでActiveSpaceの変更が拒絶された場合
EnsureModelSpace = False
End Function
” ====================================================================
” @brief 業務ロジック本体（モデル空間内での処理）
” ====================================================================
Private Sub ExecuteBusinessLogic(ByVal doc As AcadDocument)
Dim spc As AcadModelSpace
Set spc = doc.ModelSpace
‘ 例：原点に基準円を描画
Dim centerPoint(0 to 2) As Double
Dim radius As Double
radius = 100.0
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
Dim circObj As AcadCircle
Set circObj = spc.AddCircle(centerPoint, radius)
‘ オブジェクト変数の即時解放
Set circObj = Nothing
Set spc = Nothing
acadDoc.Regen acAllViewports
MsgBox “モデル空間への図形配置が正常に完了しました。”, vbInformation, “完了”
End Sub
—
4. チーフアーキテクトからの極意：メモリとオブジェクトのライフサイクル
上記のコードを見て、「なぜわざわざ最後に `Set acadDoc = Nothing` や `Set spc = Nothing` を書いているのか？」と疑問に思った若手エンジニアもいるだろう。
VBAのランタイムは、プロシージャを抜ける時に自動的にローカル変数の参照を解放する仕様になっている。しかし、AutoCADのCOMコンポーネント（特に `AcadModelSpace` や `AcadDocument`）は別プロセスのCOMサーバーとして動作しており、その背後には膨大なC++製のメモリ（ARXデータベース）が紐付いている。
これをVBAの気まぐれなガベージコレクションに委ねていると、メモリリークや、最悪の場合、AutoCAD自体のクラッシュ（致命的な例外エラー：Fatal Error）を引き起こす。
特に、数千・数万回のループ処理を行うバッチ処理型のマクロにおいて、COMオブジェクトの明示的な解放（`Set x = Nothing`）を怠ることは、自ら爆弾を抱えてシステムを運用するようなものだ。
プログラミングとは芸術であり、同時に科学である。
空間の判定というミクロな問題であっても、その背後にあるメモリ管理やオブジェクトモデルの挙動を完全に掌握した者だけが、真に安定したAutoCAD自動化システムを構築できる。
明日からのコードには、必ずこの「空間のガード句」を組み込み、迷宮のようなCADデータ構造から身を守ってほしい。
