AutoCAD VBAの「視覚的フィードバック」でヒューマンエラーを根絶せよ：動的背景色制御の極意
AutoCADの画面をぼんやりと眺めていて、「今、自分が通常作業モードにいるのか、それともデータチェックモードにいるのか」を見失ったことはないだろうか？
大規模な設計プロジェクトにおいて、誤ったレイヤーで修正を加えたり、検証用データをそのまま図面に残して納品してしまったりするミスは、ヒューマンエラーの典型だ。これを防ぐ最も原始的かつ強力な手段は、「環境設定をUIの視覚的変化に直結させること」である。
今回は、AutoCADのオブジェクトモデルの深淵に触れ、`AcadApplication.Preferences`を操作して、作業状況に応じて背景色をダイナミックに変更する「守りの自動化」を実装する。
—
1. なぜ「環境設定」をコードで触るのか
多くの開発者は、`AcadDocument`の操作（図形生成やプロパティ変更）に終始する。しかし、真の自動化エンジニアは「AutoCADというアプリケーションの環境そのもの」を制御下に置く。
`AcadPreferences`オブジェクトは、オプションダイアログ内の設定を司る。これをプログラムから書き換えることは、「CADの設定を、業務プロセスの状態に合わせてブートストラップする」ことと同義だ。
陥りやすい罠と設計指針
- 状態の不整合を防ぐ: 背景色を変更した際、エラーでスクリプトが停止すると、ユーザーは「警告色」のまま作業を続けることになる。必ず例外処理を組み込み、プロセス終了時に元に戻す「クリーンアップ処理」を徹底せよ。
- パフォーマンスへの配慮: `Preferences`へのアクセスは、頻繁に行うとI/O負荷がかかる。フラグ管理を行い、必要な瞬間だけ書き換えるのが鉄則だ。
—
2. プロダクションコード：State-Aware Background Controller
以下のコードは、単なる背景色変更ではなく、「エラーハンドリング」と「状態復元」を組み込んだ、業務でそのまま使えるクラス設計の雛形だ。
Option Explicit
‘ ———————————————————
‘ クラス名: BackgroundManager
‘ 概要: 作業状況に応じた背景色の動的制御を行う
‘ ———————————————————
Private Const COLOR_NORMAL As Long = 0 ‘ 黒背景
Private Const COLOR_CHECK As Long = 16711680 ‘ 赤警告背景 (RGB 255,0,0)
‘ 現在のカラーを保存（復元用）
Private m_OriginalColor As Long
Public Sub SetCheckMode(ByVal isEnabled As Boolean)
Dim prefs As AcadPreferences
Set prefs = ThisDrawing.Application.Preferences
On Error GoTo ErrorHandler
If isEnabled Then
‘ 現在の色を退避
m_OriginalColor = prefs.Display.GraphicsWinModelBackgrndColor
‘ 警告色へ
prefs.Display.GraphicsWinModelBackgrndColor = COLOR_CHECK
Else
‘ 元の色へ戻す（設定されていない場合はデフォルトの黒へ）
If m_OriginalColor = 0 Then m_OriginalColor = COLOR_NORMAL
prefs.Display.GraphicsWinModelBackgrndColor = m_OriginalColor
End If
Exit Sub
ErrorHandler:
MsgBox “背景色の変更に失敗しました: ” & Err.Description, vbCritical
End Sub
このコードの優位性
1. 非破壊的設計: `m_OriginalColor`変数により、処理前の設定をメモリ内に保持する。これにより、複数のツールを併用しても設定が破壊されることはない。
2. 型安全: `Long`型で色を扱うことで、AutoCAD内部のカラーインデックスとの親和性を確保している。
—
3. 実践：業務フローへの組み込み
このクラスをどのように呼び出すかが、あなたの腕の見せ所だ。単にボタンを押して色を変えるだけでなく、以下のように「処理の前後」をラップする設計を推奨する。
Sub RunQualityCheck()
Dim bgMgr As New BackgroundManager
‘ 1. 警告開始
bgMgr.SetCheckMode True
On Error GoTo Finally
‘ 2. ここにメインのチェック処理を記述
‘ 例: 規定外レイヤーの検索、ブロックの整合性チェック等
Debug.Print “チェック実行中…”
Finally:
‘ 3. エラーが発生しても必ず元に戻す（重要）
bgMgr.SetCheckMode False
If Err.Number <> 0 Then MsgBox “チェック中にエラーが発生しました。”
End Sub
—
4. チーフアーキテクトからの助言
- データベース連携の注意: チェック処理で外部DBへアクセスする場合、DBの接続エラーでVBAが止まると、背景色が赤いままで残る可能性がある。`Finally`ブロック（終了処理）は、どんな状況でも必ず実行されるようにコードパスを設計せよ。
- 視覚的過負荷の防止: 背景色を変えるのは「警告」としては強力だが、あまりに頻繁にチカチカと切り替わるとユーザーの疲労を招く。あくまで「重大なモード変更時のみ」に限定すること。
結論
AutoCAD VBAは、単に図形を動かすための言語ではない。「ユーザーの作業環境を制御し、ミスが入り込む余地を物理的に排除する」ための、設計ツールそのものなのだ。
この「背景色の動的制御」という小さなテクニックを、あなたの開発するツール群の標準プロトコルとして組み込んでみてほしい。ユーザーは、意識せずとも「赤くなっているから慎重になろう」という心理的セーフティネットを手にすることになる。
それが、伝説のエンジニアが追求する「堅牢な自動化」の第一歩である。
