AutoCAD VBAを掌握する極限の知見
こんにちは。開発プロジェクトの現場において、数々のAutoCADマクロや自動化ツールを統括してきたチーフアーキテクトの私だ。
AutoCAD VBAの開発において、最も頻発し、かつ開発者を絶望の淵に追い込むバグの一つをご存知だろうか。
それは、「図形が意図した空間に生成されない」という問題だ。
「プログラムを実行したのに、図面が真っ暗で何も見えない」
「レイアウトタブ（ペーパー空間）に図形を描いたつもりが、モデル空間の奥底に生成されていた」
こうしたトラブルの原因のほとんどは、`AcadDocument.ActiveSpace` の判定を怠り、ユーザーが今どこを見ているかを無視して図形を射出していることにある。
今回は、この空間の取り違えによる配置エラーを完全になくし、実務の現場でビクともしない堅牢なガード句の実装方法を、プロのアーキテクトの視点から授けよう。
—
1. なぜ「空間の取り違え」は起きるのか？（オブジェクトモデルの闇）
AutoCAD VBAを触る初学者が最初にハマる罠が、モデル空間（ModelSpace）とペーパー空間（PaperSpace）の概念の混同だ。
AutoCADの内部データベースにおいて、図形を格納するコンテナは明確に分かれている。
- `ThisDrawing.ModelSpace` （モデル空間のコンテナ）
- `ThisDrawing.PaperSpace` （アクティブなレイアウトのペーパー空間のコンテナ）
- `ThisDrawing.Layouts` （レイアウト自体の管理）
ここで重要なのは、「ユーザーが今画面で見ている空間（アクティブな空間）」と「コードがデフォルトでアクセスする空間」は必ずしも一致しないという点だ。
何も考えずに `ThisDrawing.ModelSpace.AddLine(…)` と書けば、それは画面がペーパー空間を表示していようが強制的にモデル空間に線を描きに行く。逆に、レイアウト図面枠を描くつもりでペーパー空間を触るつもりが、モデル空間を汚染してしまうこともある。
プロのエンジニアであれば、コードの実行開始時に「今、ユーザーはどこにいるのか」を厳密に検知し、適切なコンテナへルーティングするガード句を絶対に実装する。
—
2. `ActiveSpace` が持つ真の仕様と判定ロジック
現在アクティブな空間を判定するために用意されているのが `AcadDocument.ActiveSpace` プロパティだ。
このプロパティは、以下のいずれかの定数を返す。
- `acModelSpace` （モデル空間）
- `acPaperSpace` （ペーパー空間）
しかし、単にこれを分岐に使うだけでは不十分だ。実務のツールにおいては、「モデル空間でしか動かしてはいけない処理」「ペーパー空間でなければならない処理」が明確に存在する。
例えば、詳細図の自動生成や寸法線のバッチ処理などは、モデル空間で行われるべきだ。逆に、図枠への属性値流し込みはペーパー空間で行われるべきである。
ここに不整合があった場合、処理を続行するのではなく、即座に処理を中断し、ユーザーにエラーを通知する（あるいは自動で空間を切り替える）ガード句を挟むのが、堅牢な設計というものだ。
—
3. 【プロダクションコード】空間判定ガード句を搭載した安全な図形生成マクロ
それでは、実務の現場でそのままコピー＆ペーストして活用できる、極めて堅牢なコードを公開しよう。
このコードは、ユーザーが現在モデル空間にいることを強制し、もしペーパー空間にいた場合はエラーメッセージを出して安全に処理を抜ける（ガードする）サンプルだ。
Option Explicit
” =================================================================
” 業務自動化モジュール: モデル空間専用図形生成プロシージャ
” アーキテクト推奨: 空間の取り違えを防ぐガード句パターンの実装例
” =================================================================
Public Sub CreateSmartLineInModelSpace()
Dim acadDoc As AcadDocument
Set acadDoc = ThisDrawing
‘ ————————————————————-
‘ 【ガード句 1】図面が開かれているか、アクティブかチェック
‘ ————————————————————-
If acadDoc Is Nothing Then
MsgBox “有効な図面が開かれていません。”, vbCritical, “致命的なエラー”
Exit Sub
End If
‘ ————————————————————-
‘ 【ガード句 2】ActiveSpace による空間の厳密な判定
‘ ————————————————————-
‘ ユーザーが現在ペーパー空間（レイアウトタブ）を見ているかを検知する
If acadDoc.ActiveSpace = acPaperSpace Then
MsgBox “【配置エラー防止ガード】” & vbCrLf & _
“現在、ペーパー空間（レイアウト）がアクティブです。” & vbCrLf & _
“このツールはモデル空間専用です。モデルタブに切り替えてから再実行してください。”, _
vbExclamation, “空間ミスマッチ”
Exit Sub ‘ 処理を安全に中断
End If
‘ ————————————————————-
‘ メイン処理（安全が担保されたモデル空間への図形追加）
‘ ————————————————————-
On Error GoTo ErrorHandler
‘ トランザクション的な一括処理の前にレイヤーの存在確認などを挟むとさらに堅牢になる
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
‘ 座標の設定 (X, Y, Z)
startPoint(0) = 0#: startPoint(1) = 0#: startPoint(2) = 0#
endPoint(0) = 100#: endPoint(1) = 100#: endPoint(2) = 0#
キャンバスのクリア
‘ 明示的にモデル空間コンテナを指定して線分を生成
Set lineObj = acadDoc.ModelSpace.AddLine(startPoint, endPoint)
‘ 画面を更新
acadDoc.Regen acAllViewports
MsgBox “モデル空間への図形生成が正常に完了しました。”, vbInformation, “成功”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
‘ 必要に応じてエラーログ出力やロールバック処理をここに記述
End Sub
コードの設計ポイント
1. 暗黙的な `ThisDrawing` への依存を排除: `acadDoc` 変数に一度収めることで、複数図面を扱うマルチドキュメント環境（MDI）への拡張性を担保している。
2. 早期リターン（ガード句）の徹底: 異常系を先頭で弾くことで、メインロジックのインデントが深くならず、コードの可読性と保守性が劇的に向上する。
3. エラーハンドリングの完備: 万が一のCADエンジン側の例外やメモリ不足にも `On Error GoTo` で対応。
—
4. チーフアーキテクトからの実践的アドバイス
「エラーで止めるのではなく、コード側で自動的にモデル空間へ切り替えて図形を描かせたい」という要望を持つ現場リーダーもいるだろう。
確かに `acadDoc.ActiveSpace = acModelSpace` とコードから書き換えることは技術的には可能だ。しかし、私は自動切り替えは極力避けるべきだと進言する。
なぜなら、ユーザーが意図せずレイアウトタブを開いている状態で勝手に視点がモデル空間に飛ばされたり、予期せぬビューポートの切り替えが発生すると、ユーザー体験（UX）が著しく損なわれ、「ツールが勝手に図面をバグらせた」という誤解を生む原因になるからだ。
「異常を検知したら、手動で正しく直してもらうよう優しく、かつ厳格にガードする」
これが、実務における堅牢な業務自動化ツールの鉄則である。
空間の取り違えという初歩的なバグを根絶し、あなたのチームの開発するVBAツールの信頼性を次のステージへと引き上げてほしい。
