AutoCAD VBAの極意：図面オープンを「制御」し、自動化の暴走を止める
こんにちは。AutoCADの自動化の世界へようこそ。
多くの人が「マクロの記録」から入り、次に「インターネットの断片的なコード」を継ぎ接ぎして自動化を始めます。しかし、実務で本当に恐ろしいのは、「意図しない図面を開いてしまい、気づかぬうちに上書き保存してしまう」という事故です。
AutoCAD VBAにおいて、`Documents.Open` は強力な武器ですが、同時に諸刃の剣でもあります。今日は、この強力な機能を「安全に飼いならす」ための、プロフェッショナルな設計手法をお伝えします。
—
なぜ「確認」が必要なのか？
大規模な図面管理において、誤った図面を開くことは、直ちに「工数ロス」と「データ汚染」に繋がります。特に、バックグラウンドでの一括処理（バッチ処理）を組もうとしている時、最初に「本当にこのファイルでいいのか？」というゲートキーパー（門番）を配置することは、エンジニアとしての矜持です。
—
実装コード：安全なオープン処理のアーキテクチャ
まずは、今回作成する「安全なオープンプロンプト」のコードを見てください。これを標準モジュールにコピペすれば、明日からあなたのツールは「思慮深い」挙動をするようになります。
Option Explicit
‘ ———————————————————
‘ 図面を安全に開くためのラッパー関数
‘ ———————————————————
Public Sub OpenDrawingSafely(ByVal filePath As String)
Dim doc As AcadDocument
Dim userResponse As VbMsgBoxResult
‘ 1. ファイルが存在するか事前チェック（エラーハンドリングの基本）
If Dir(filePath) = “” Then
MsgBox “指定されたパスにファイルが見つかりません。” & vbCrLf & filePath, vbCritical
Exit Sub
End If
‘ 2. ユーザーへの確認プロンプト（ここでワンクッション置く）
userResponse = MsgBox(“以下の図面を開きますか？” & vbCrLf & vbCrLf & filePath, _
vbQuestion + vbYesNo + vbDefaultButton2, _
“図面オープン確認”)
If userResponse = vbNo Then
MsgBox “処理をキャンセルしました。”
Exit Sub
End If
‘ 3. エラーハンドリングを伴うオープン処理
On Error GoTo ErrorHandler
Set doc = Application.Documents.Open(filePath)
‘ 成功したらフォーカスを移す
doc.Activate
Exit Sub
ErrorHandler:
MsgBox “図面の読み込み中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical
End Sub
—
コードの心臓部を読み解く
このコードには、ただ動くだけではない「プロの視点」が3つ隠されています。
1. `Dir` 関数による事前検証
初心者は `Documents.Open` をいきなり実行し、失敗してエラーで止まります。しかし、プロは「実行する前に、相手（ファイル）がいるか」を `Dir` で確認します。これにより、予期せぬ実行時エラーによる強制終了を防ぎます。
2. `vbDefaultButton2` の活用
`MsgBox` のオプションに `vbDefaultButton2` を入れていることに注目してください。これは「いいえ」をデフォルト選択状態にする設定です。もしEnterキーを連打してしまっても、デフォルトで「キャンセル」が選ばれるように設計することで、誤操作のリスクを物理的に減らしています。
3. `On Error GoTo` による死なないプログラム
AutoCADの環境は不安定な要素も多く、読み取り専用で開かれているファイルや、バージョン不整合など、予測不能なエラーが起こり得ます。`On Error GoTo` を記述することで、異常終了をトラップし、ユーザーに状況を伝えてから安全に終了させることが可能になります。
—
陥りやすい「罠」：オブジェクトのライフサイクル
ここで一つ、中級者へのステップアップとして知っておいてほしいことがあります。
VBAで `Set doc = Documents.Open(…)` を行ったとき、その `doc` オブジェクトがどこまで生きているか意識したことはありますか？
AutoCAD VBAにおいて、ドキュメントオブジェクトは「AutoCADのインスタンスそのもの」と密接に紐付いています。 図面を閉じるときに `doc.Close` を忘れると、メモリ上に図面が残り続け、PCが重くなる（いわゆるメモリリークに近い挙動）原因となります。
自動化ツールを作る際は、「開く」だけでなく「どう閉じるか」までセットで設計するのが、真の自動化エンジニアの嗜みです。
—
最後に：ここをクリアすれば「脱・初心者」
今回学んだ「確認を挟む」「エラーをトラップする」「デフォルトの安全策を講じる」という考え方は、AutoCAD VBAだけでなく、すべてのプログラミングにおいて共通の基礎です。
まずはこのコードをベースに、自分の業務に合わせて「読み取り専用で開く設定（`Documents.Open` の引数）」をいじってみたり、特定のフォルダ以外は開かないような制限を加えてみてください。
技術は「動かして終わり」ではなく、「誰が使っても壊れないようにする」という思想を乗せた瞬間、ツールは「資産」に変わります。
あなたの自動化ライフが、より安全で、より創造的なものになることを応援しています。何か詰まったら、いつでも戻ってきてくださいね。
