AutoCAD VBAの深淵：ActiveSpaceを制し、尺度管理のヒューマンエラーを絶滅させる
AutoCADのオートメーションにおいて、最も「安易に扱われ、最も現場を混乱させる」のが空間（Space）の判定と尺度管理だ。
モデル空間（ModelSpace）とペーパー空間（PaperSpace/Layout）を行き来する際、注釈尺度（Annotation Scale）の設定漏れは、出力時の致命的な手戻りを生む。これを「担当者の注意深さ」に依存するのは、エンジニアの敗北だ。
今回は、AutoCADのオブジェクトモデルを掌握し、メモリ消費を最小限に抑えつつ、空間移動時に尺度を強制同期させる「究極の自動検知アーキテクチャ」を伝授する。
—
1. なぜ「単純な判定」では生き残れないのか
多くの初学者は `ThisDrawing.ActiveSpace` をIF文で分岐させるだけのコードを書く。しかし、現場のシニアエンジニアなら知っているはずだ。AutoCADのオブジェクトモデルは、参照を保持し続けるとメモリリークの温床となり、特にCOMインターフェースを介した `AcadDocument` への不適切なアクセスは、予期せぬクラッシュを招く。
我々が目指すのは、「イベント駆動による低負荷な同期」である。
2. 実装：ActiveSpace検知と尺度自動最適化ロジック
`AcadDocument` のイベントを利用し、空間の切り替えをトリガーにする。ここで重要なのは、オブジェクトの生成と破棄のサイクルを厳格に管理することだ。
‘ Class Module: clsAutoSpaceScale
Option Explicit
‘ イベント監視のための参照
Private WithEvents doc As AcadDocument
Private Sub Class_Initialize()
Set doc = ThisDrawing
End Sub
‘ 空間移動時に発火するイベント
Private Sub doc_EndCommand(ByVal CommandName As String)
‘ 空間切り替えに関連するコマンドのみをフィルタリング
If CommandName = “LAYOUT” Or CommandName = “TILEMODE” Then
Call AutoAdjustAnnotationScale
End If
End Sub
Public Sub AutoAdjustAnnotationScale()
Dim space As AcActiveSpace
Dim objSpace As Object
‘ ActiveSpaceを取得
space = ThisDrawing.ActiveSpace
‘ 空間に応じて注釈尺度（CANNOSCALE）を制御
‘ モデル空間なら 1:100, ペーパー空間なら 1:1 を強制する例
If space = acModelSpace Then
ThisDrawing.SetVariable “CANNOSCALE”, “1:100”
Else
ThisDrawing.SetVariable “CANNOSCALE”, “1:1”
End If
‘ オブジェクトの明示的解放（メモリ最適化の鉄則）
Set objSpace = Nothing
End Sub
伝説的アーキテクトからの助言：メモリとパフォーマンス
- WithEventsの活用: ループで常に監視する（ポーリング）のは、CPUを浪費する悪手だ。`EndCommand` イベントをフックすることで、AutoCADが「必要とした瞬間」のみ処理を実行させる。
- SetVariableの罠: `CANNOSCALE` を変更する際、指定した尺度が図面内に存在しないとVBAはエラーを吐く。本番環境では、事前に `Dict` オブジェクト等で尺度リストを検証するガード節を必ず組み込むこと。
—
3. レガシー環境への適合：Windows APIによる制御の補完
複雑な図面環境では、VBAだけでは検知できない「ウィンドウフォーカスの切り替え」が必要になることがある。その場合、Windows APIの `GetForegroundWindow` を利用し、AutoCADのプロセスがアクティブになった瞬間に空間を再スキャンする実装が有効だ。
‘ 標準モジュール: API定義
If Win64 Then
Private Declare PtrSafe Function GetForegroundWindow Lib “user32” () As LongPtr
Else
Private Declare Function GetForegroundWindow Lib “user32” () As Long
End If
このように、VBAのオブジェクトモデルをベースにしつつ、OSレベルのイベントを重ねることで、堅牢性は格段に向上する。
—
4. 現場で生き残るための「保守の極意」
このツールを導入する際、以下の3点を管理者に徹底させてほしい。
1. 名前空間の分離: コードを `Normal.dvb` に置くのは避けよ。部署ごとのロード用プロジェクトを作成し、`acaddoc.lsp` から読み込ませるアーキテクチャにすること。
2. エラーハンドリングの徹底: 尺度設定に失敗した際、ユーザーに「何が起きたか」を明確に伝える `Err.Number` 別のログ出力機構を必ず含めること。
3. オブジェクトの解放: `Set obj = Nothing` を忘れるな。AutoCADのVBAは終了時に自動解放されるが、長時間起動し続けるCAD環境において、COM参照の残留は「原因不明の重さ」を招く最大の要因だ。
結びに：自動化とは「信頼」である
AutoCADのオブジェクトモデルを操ることは、単なるコード書きではない。設計者の思考プロセスをコードに落とし込み、ヒューマンエラーという名のノイズを消し去る儀式である。
君たちが書く一行のコードが、明日、誰かの図面を修正する手間を減らし、残業を1分削る。その積み重ねこそが、最高峰のエンジニアの証明だ。
さあ、コードを開け。ActiveSpaceの向こう側にある、完璧な自動化の世界へ突き進め。
