AutoCAD VBAを掌握する：ReadOnly図面の「沈黙の破壊」を防ぐ防壁の実装
AutoCADのオートメーションにおいて、最も避けるべき事態は何か。それは「作業者が読み取り専用図面であることを失念し、数時間の作業の末に『保存できない』という絶望的なエラーに直面すること」だ。
これは単なるヒューマンエラーではない。システム設計において「状態の検証を信頼の前提に置く」という甘えが生んだアーキテクチャの欠陥である。
今回は、`AcadDocument.ReadOnly`プロパティを起点とし、Windows APIによるOSレベルの警告、そしてメモリのライフサイクル管理に至るまで、現場の最前線で通用する「硬質なガードロジック」を構築する。
—
1. なぜ「ReadOnlyチェック」は標準機能だけでは不十分なのか
AutoCAD APIの `ThisDrawing.ReadOnly` は、確かに図面のステータスを返す。しかし、多くのエンジニアが犯すミスは、これを個別の編集コマンドの直前でチェックすることだ。
真に堅牢なシステムは、「図面を開いた瞬間（イベント）」に状態を確定させ、アプリケーションの挙動そのものを制御下に置く。ユーザーに「気づかせる」のではなく、「操作させない」環境を強制する。これがプロの流儀だ。
—
2. 究極のガード実装：Class Moduleによるライフサイクル管理
標準モジュールにコードを散乱させるのは素人のやり方だ。`Class Module`（例: `clsAutoCADGuard`）を定義し、AutoCADの `AcadDocument` オブジェクトのライフサイクルをラップする。
実装コード
‘ Class: clsAutoCADGuard
‘ 用途: 図面オープン時のReadOnly検知と強制警告
Option Explicit
‘ Windows API: メッセージボックスにアイコンを付与し、ユーザーの注意を喚起する
Private Declare PtrSafe Function MessageBox Lib “user32” Alias “MessageBoxA” ( _
ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Const MB_ICONSTOP As Long = &H10&
Public Sub InitializeGuard(ByVal doc As AcadDocument)
‘ 読み取り専用の場合のみ介入
If doc.ReadOnly Then
Call ForceWarning(doc.Name)
‘ ここで必要に応じてツールバーの非表示やコマンド制御を呼び出す
End If
End Sub
Private Sub ForceWarning(ByVal docName As String)
Dim msg As String
msg = “警告: 現在の図面は【読み取り専用】です。” & vbCrLf & _
“保存不可のため、編集作業は破棄されます。”
‘ API経由でクリティカルなアラートを表示（標準MsgBoxより割り込み性能が高い）
MessageBox 0, msg, “システム制御警告: ” & docName, MB_ICONSTOP
End Sub
—
3. メモリとオブジェクトの最適化：エンジニアの心得
VBAはガベージコレクションを自動で行うが、AutoCADのオブジェクトモデルはCOMベースである。特に大規模な図面や複雑なシステム連携を行う際、`Nothing` を明示しないことは「メモリリークという時限爆弾」を抱えることと同義だ。
- オブジェクトのスコープ: `AcadDocument` をグローバル変数に保持し続けるのは避け、必要な時に取得し、スコープを抜ける際に確実に `Nothing` を代入せよ。
- Late Binding vs Early Binding: 開発時はEarly Bindingで型チェックを行い、配布時はLate Binding（`CreateObject`等）でバージョン差異を吸収する。これがレガシー環境を生き抜くエンジニアの鉄則である。
—
4. 現場運用のための応用：コマンド・インターセプター
単に警告を出すだけでなく、特定のコマンド（`SAVE`, `QSAVE` 等）を無効化したい場合は、`AcadDocument_BeginCommand` イベントを監視する。
‘ ThisDrawingモジュール内
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If ThisDrawing.ReadOnly Then
‘ 保存系コマンドを捕捉してキャンセルする
If UCase(CommandName) = “SAVE” Or UCase(CommandName) = “QSAVE” Then
MsgBox “保存操作はブロックされました。”, vbCritical
‘ コマンドの中断処理は AutoCAD コアAPIの深度に依存するため、
‘ 最強の防御は「作業させないUI設計」である。
End If
End If
End Sub
—
結論：技術は「信頼」を担保するためにある
「読み取り専用図面を編集しようとするユーザーが悪い」という考え方は、システム設計者の怠慢である。「誤操作ができない設計」こそが、業務自動化エンジニアに求められる真の価値だ。
今回紹介した実装は、単なるコードの断片ではない。AutoCADという巨大なプラットフォームに対し、どのように自律的なガードレールを敷くかというアーキテクチャの縮図である。
君たちが管理するシステムが、明日もトラブルなく、かつ静かに稼働し続けることを願う。技術とは、ユーザーがその存在すら意識せずに恩恵を受けられるものだ。これこそが、極限の自動化である。
