【AutoCAD VBA極意】ActiveSpaceとMSpaceの深淵：ビューポート越しの作図を掌握せよ
AutoCADの自動化において、多くのエンジニアが「レイアウト空間上の特定ビューポート（PViewport）の中に、モデル空間の座標系を維持したまま注釈を入れたい」という壁に突き当たる。
ネット上の初級チュートリアルを漁っても、「`ActiveSpace = acPaperSpace` にすればいい」といった薄い情報しか出てこないだろう。だが、実務でそれをやれば、ビューポートを切り替えた瞬間に座標が狂い、あるいは図面を開くたびにオブジェクトが消滅する不具合に悩まされることになる。
本稿では、AutoCADの空間制御の真髄を説き、堅牢なプロダクションコードを提示する。
—
なぜ「単純な切り替え」でバグるのか？
AutoCADの空間制御において、初心者が陥る罠は以下の2点だ。
1. `ActiveSpace` と `MSpace` の混同:
`ActiveSpace` は現在のタブ（モデルかレイアウトか）を制御する。一方、`MSpace` はレイアウト空間において「ビューポート内（浮動モデル空間）」に編集フォーカスがあるかを制御するスイッチだ。これらを正しく同期させないと、AutoCAD内部の変換行列が未定義の状態になり、座標計算が暴走する。
2. ビューポートの活性化不足:
単にアクティブにするだけでは不十分だ。`PViewport` オブジェクトに対して `Display(True)` を実行し、さらに `AcadDocument.MSpace = True` を叩かなければ、ビューポート内の座標系にはアクセスできない。
—
堅牢な空間制御のアーキテクチャ
ビューポート内へ確実にアクセスするための鉄則は、「状態の保存と復帰」である。現在の空間状態をスタックに退避させ、処理が終われば必ず元の状態に戻す。これを怠ると、ユーザーが操作ミスを誘発する「ゾンビ状態」の図面が出来上がる。
実務用：ビューポート内作図のための制御ロジック
以下は、指定したビューポート内に注釈を書き込むための、実戦的なモジュールである。
” 指定したPViewportへモデル空間の座標で書き込むためのクラス設計の骨子
Public Sub DrawInViewport(targetVP As AcadPViewport, drawLogic As Object)
Dim doc As AcadDocument
Set doc = ThisDrawing
‘ 1. 現在の状態を保存
Dim oldSpace As Integer
Dim oldMSpace As Boolean
oldSpace = doc.ActiveSpace
oldMSpace = doc.MSpace
‘ 2. レイアウト空間へ移動
doc.ActiveSpace = acPaperSpace
‘ 3. ビューポートを活性化
‘ これによりPViewport内のモデル座標系へのアクセスが可能になる
targetVP.Display True
doc.MSpace = True
‘ 4. ここで座標系変換を伴う作図を行う
‘ 重要: ここでの座標は、PViewportのViewCenterやTwistを考慮した変換が必要
‘ 簡易的には、ビューポートをアクティブにした状態でそのままAddLine等を打つ
‘ ※複雑な座標変換が必要な場合は、ビューポートの変換行列(OCS)を使用すること
‘ — 作図処理例 —
Dim lineObj As AcadLine
Set lineObj = doc.PaperSpace.AddLine(StartPoint, EndPoint)
‘ ——————
‘ 5. 後処理：状態を完全に復帰させる（最重要）
doc.MSpace = oldMSpace
doc.ActiveSpace = oldSpace
‘ ビューポートの再描画を強制し整合性を保つ
targetVP.Update
End Sub
—
現場で勝つための3つのテクニック
1. 「ActiveLayout」の固定観念を捨てる
`ActiveLayout` プロパティは、あくまでアクティブなタブを指す。コード中で操作する際は、`ActiveLayout` に頼らず、必ずターゲットとなる `Layout` オブジェクトを直接指定すること。これにより、ユーザーが別のタブを開いていても処理が完遂できる。
2. データベース（Excel/SQL）との連携は「オフライン」で
ビューポートの制御は重い処理だ。ループ内で何度も `MSpace` を切り替えるようなコードは、AutoCADのパフォーマンスを著しく低下させる。
「データベースからデータを全件取得 → 一時配列に格納 → 空間を切り替える → 一気に描画 → 空間を戻す」
この「一括処理」のフローを徹底せよ。
3. OCS（オブジェクト座標系）への畏敬
ビューポート内への作図で最大の難関は、モデル空間座標(WCS)とビューポート上の表示座標のギャップだ。ビューポートが回転している場合、単純な座標変換では破綻する。
もし回転したビューポートを扱う必要があるなら、`Utility.TranslateCoordinates` を使い、`acWorld` から `acDisplayDCS` へ変換するロジックを必ず組み込むこと。ここを避けて通ると、数年後に必ず手戻りが発生する。
—
結論：プロフェッショナルであるために
AutoCAD VBAはレガシーと言われることもあるが、APIを深く理解したエンジニアが書くコードは、他言語のプラグインよりも遥かに軽く、堅牢に動作する。
`ActiveSpace` や `MSpace` の制御は、いわば「外科手術」だ。切り開いた場所は必ず元通りに縫合する。この意識を持つだけで、あなたの書くツールは「すぐバグるスクリプト」から「現場の業務を支える堅牢なエンジン」へと昇華する。
次は、この制御に `Transaction` を組み込み、いかにしてメモリリークを防ぐかについて深掘りしよう。諸君の健闘を祈る。
