背景色を「コード」にする：AutoCAD VBAによるUI動的制御の深淵
AutoCADの画面背景色。多くの設計者は「黒」や「白」を固定して作業するが、大規模プロジェクトや複雑な設計プロセスにおいて、それは単なる色ではない。「現在の状態」を示すステータスインジケータであるべきだ。
例えば、特定の自動チェックルーチンを実行する際、あるいは重要度の高い図面を編集中である際、背景色が「警告色」に変わることで、ヒューマンエラーは劇的に減少する。本稿では、`AcadApplication.Preferences` を操作するだけでなく、VBAのメモリ管理とOSのイベントループを考慮した、極めて実用的な実装論を伝授する。
—
1. オブジェクトモデルの「正しい」ハンドリング
AutoCADのVBAにおいて、`Preferences` オブジェクトへのアクセスは非常に強力だが、同時にリソース消費の懸念がつきまとう。特に `AcadApplication` を経由して階層を深く掘る場合、不適切な参照はメモリリークを招き、長時間の設計作業におけるAutoCADの不安定化を誘発する。
重要なのは、「必要な時に必要なスコープで生成し、即座に解放する」ことだ。以下に、安全かつ高速に背景色を切り替えるための設計パターンを示す。
—
2. 実装コード：State-Aware Background Controller
このクラスモジュールは、指定されたモードに応じて背景色を即座に変更し、元の色をスタックに退避・復元する仕組みを持つ。
‘ クラス名: clsUIManager
Option Explicit
‘ 色情報の保持用（Long型でRGB値を保持）
Private m_OriginalColor As Long
”’
”’
Public Sub SetVisualWarning(ByVal isWarningMode As Boolean)
Dim pref As AcadPreferences
Dim disp As AcadPreferencesDisplay
Dim targetColor As Long
‘ 警告時は赤系、通常時は黒系（AutoCAD標準）
If isWarningMode Then
targetColor = RGB(60, 0, 0) ‘ 深い赤
Else
targetColor = RGB(33, 40, 48) ‘ 規定のダークグレー
End If
‘ プロパティ参照の最適化
Set pref = Application.Preferences
Set disp = pref.Display
‘ 現在の状態を保存（必要であれば）
If Not isWarningMode Then
‘ 通常モード時は現在の設定を適宜ロード
End If
‘ 設定の適用
disp.GraphicsWinModelBackgrndColor = targetColor
‘ 明示的なオブジェクト解放（重要：VBAのGCは期待してはいけない）
Set disp = Nothing
Set pref = Nothing
End Sub
—
3. チーフアーキテクトの視点：なぜこれが必要なのか
① Windows APIとの連携（更なる警告）
単に背景色を変えるだけでなく、`User32.dll` の `FlashWindow` を併用することで、タスクバーのアイコンを点滅させ、二重のガードを敷くことが可能だ。
‘ API宣言
Private Declare PtrSafe Function FlashWindow Lib “user32” (ByVal hwnd As LongPtr, ByVal bInvert As Long) As Long
Public Sub TriggerHardWarning()
‘ AutoCADのウィンドウハンドルを取得して点滅させる
FlashWindow Application.HWND, 1
End Sub
② レガシー環境における保守性
AutoCADのバージョンが混在する環境下では、`Preferences` オブジェクトの構造が変わるリスクがある。そのため、上記のクラスモジュールでは必ず `On Error Resume Next` を活用し、プロパティが存在しない場合のフォールバック（無視する処理）を実装しておくのが、現場で生き残るための「守り」の技術だ。
—
4. パフォーマンスへの影響と最適化の鉄則
- オブジェクトのスタック: `Set disp = Nothing` を徹底すること。AutoCADのVBA環境は、COMオブジェクトのデストラクトが遅い。ループ内でこの処理を呼ぶと、即座にメモリ消費量が跳ね上がる。必ず単発的なイベント駆動で実行させること。
- 描画更新のコスト: `GraphicsWinModelBackgrndColor` の変更は、AutoCADの再描画命令を内部でトリガーする。複雑な3Dモデルを開いている最中に頻繁に呼び出すと動作が重くなるため、フラグ管理を行い「状態が変わった時だけ」書き換えるようにすべきだ。
—
結び：エンジニアリングの品格
「背景色を変える」という些細な機能一つをとっても、メモリアロケーションの意識、APIの活用、そして何より「オペレータのミスをシステムが防ぐ」という思想があれば、それはただのスクリプトではなく、堅牢なシステムの一部となる。
諸君、AutoCADを単なる製図ツールとして使うのはもうやめよう。コードでAutoCADの振る舞いを支配し、設計者の直感を拡張するのだ。それが、我々オートメーションエンジニアが担うべき責務である。
