AutoCAD VBAを掌握する極限の知見
【初心者向け】FILEDIAシステム変数の制御：VBA実行中にファイル選択ダイアログで処理が止まるのを防ぐ方法
開発プロジェクトのリーダーである私のもとに、よくこんな相談が持ち込まれる。
「VBAで一括処理マクロを作ったのですが、途中でファイル選択のダイアログボックスが出て画面がフリーズしたようになります。どうすれば完全に裏側（バックグラウンド）で処理させられますか？」
君たちが直面しているその現象、原因はAutoCADの極めて古典的かつ強力な仕様にある。そして、これを制圧できなければ、いかに美しいコードを書こうとも「完全自動化」の夢は潰える。
今回は、AutoCAD VBAにおける図面ファイルのオープン・セーブ制御の急所であり、実務の現場では避けて通れない「FILEDIAシステム変数」の制御について、プロのアーキテクチャ視点から徹底的に解説しよう。
—
なぜ、あなたのマクロはダイアログで止まるのか？
AutoCADは、人間が画面の前で操作することを前提に設計されたインタラクティブなCADソフトウェアだ。そのため、VBAから `Documents.Open` や `SaveAs` などのメソッドを実行した際、引数が不足していたり、同名ファイルが存在したりすると、親切心から――あるいは仕様として――画面上にファイル選択や上書き確認のダイアログを表示する。
人間が操作している分にはありがたいこのダイアログも、夜間に100枚の図面をバッチ処理する自動化マクロにとっては、処理を完全に停止させる「凶悪なストッパー」へと変貌する。ダイアログが出た瞬間、マクロは画面の向こうであなたが「OK」ボタンを押すのを永遠に待ち続けることになるのだ。
この「人間向けの対話インターフェース」を強制的に黙らせ、AutoCADを完全な無人エンジン（ヘッドレスモード）として稼働させるために不可欠なのが、`FILEDIA`（ファイルダイアログ）システム変数である。
—
FILEDIAシステム変数とは何か？
AutoCADのシステム変数 `FILEDIA` は、ファイル名プロンプトに対するダイアログボックスの使用を制御するフラグだ。
- `FILEDIA = 1` （デフォルト）
ファイルを開く、保存するなどの操作時に、Windows標準のファイル選択ダイアログを表示する。
- `FILEDIA = 0`
ダイアログを表示せず、コマンドライン（またはVBAの引数）からのテキストベースでの入力を受け付ける。
VBAのコード内からこの変数を `0` に書き換えることで、AutoCADはファイルダイアログの表示を一切行わなくなる。つまり、プログラム側から渡されたパスをそのまま黙々と処理するようになるのだ。
—
【アンチパターン】初心者がやりがちな「危うい実装」
まずは、現場でよく見かける「動くには動くが、実務では絶対にやってはいけない」アンチパターンを見てみよう。
‘ 【非推奨】エラーハンドリングと状態復帰を忘れた危険なコード
Sub BadOpenDrawing()
‘ ダイアログを強制的に消す
ThisDrawing.SetVariable “FILEDIA”, 0
‘ 図面を開く
Dim targetFile As String
targetFile = “C:\Works\Sample.dwg”
Application.Documents.Open targetFile
‘ うっかりここでエラーが起きたり、処理が終わったりすると…
‘ FILEDIAが 0 のまま放置される！
End Sub
このコードの何が問題か？
もし `Documents.Open` の実行前後に予期せぬエラーが発生した場合、あるいは開発者がコードの途中で `Exit Sub` した瞬間に、AutoCADの `FILEDIA` は `0` のまま固定されてしまう。
その結果、マクロ実行後にユーザーが普通にAutoCADを操作して「名前を付けて保存」しようとしても、ダイアログが二度と出なくなるという致命的なUI崩壊（バグ）を引き起こす。ユーザーからのクレームは免れないだろう。
プロのエンジニアであれば、システム変数は「必ず元の値に復元する」という鉄の掟を厳守しなければならない。
—
【プロダクションコード】堅牢性を極めた実務対応テンプレート
ここに示すのが、エラーハンドリング（`On Error`）を完備し、いかなる例外が発生しようとも確実にシステム変数を元の状態に戻す、実務レベルの堅牢なコードだ。
Option Explicit
‘==============================================================================
| プロジェクト名: AutoCAD Batch Automation Engine
| 模块名 : modFileController
| 概要 : FILEDIAを制御した安全な図面オープン・セーブ処理
==============================================================================
Public Sub Production_SafeOpenAndSave()
Dim targetFilePath As String
targetFilePath = “C:\Works\DesignData_2026.dwg”
‘ 1. 現在のFILEDIAの値を変数に退避（これ絶対の作法）
Dim originalFileDia As Integer
originalFileDia = ThisDrawing.GetVariable(“FILEDIA”)
‘ 2. エラーハンドラーの有効化
On Error GoTo ErrorHandler
‘ 3. バックグラウンド処理モードへ移行
‘ ダイアログによる停止を防ぐため 0 をセット
ThisDrawing.SetVariable “FILEDIA”, 0
‘ — 【コア処理】 —
‘ ファイルオープン（ダイアログを出さずに一発で開く）
Dim targetDoc As AcadDocument
Set targetDoc = Application.Documents.Open(targetFilePath)
‘ 必要に応じた処理をここに記述
‘ 例: targetDoc.Layers… etc.
‘ 上書き保存（ダイアログを出さずに実行）
targetDoc.Save
‘ 図面を閉じる
targetDoc.Close False ‘ 変更を破棄して閉じる場合は False
‘ — 【正常終了時の処理】 —
‘ システム変数を元の状態に復元
ThisDrawing.SetVariable “FILEDIA”, originalFileDia
MsgBox “バックグラウンド処理が正常に完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ — 【異常終了時のセーフティネット】 —
‘ 何らかのエラーで処理が中断されても、必ずここを通って環境をクリーンアップする
Dim errDesc As String
errDesc = Err.Description
‘ システム変数の強制復元（最重要）
On Error Resume Next
ThisDrawing.SetVariable “FILEDIA”, originalFileDia
On Error GoTo 0
‘ ユーザーにエラーを通知
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“詳細: ” & errDesc, vbCritical, “致命的エラー”
End Sub
—
開発リーダーからのアーキテクチャ解説
このコードがなぜ優れているのか、エンジニアリングの観点から3つのポイントを解説する。
1. 状態の完全なカプセル化と復元（State Management）
`GetVariable` で取得した元の値をローカル変数に保持し、正常終了時だけでなく `ErrorHandler` 内でも必ず `SetVariable` で書き戻している。これにより、マクロが途中でクラッシュしてもAutoCADの環境汚染を防げる。
2. オブジェクトライフサイクルの管理
`Open` メソッドの戻り値を `AcadDocument` 型の変数（`targetDoc`）に確実に受けている。これにより、アクティブな図面（`ThisDrawing`）に依存せず、多重オープンされたバックグラウンド図面を的確にターゲットにして操作・保存・クローズが可能になる。
3. エラーハンドリングの二重防御
万が一、クリーンアップ処理（`SetVariable`の復元）そのものの中でエラーが起きた場合を想定し、`On Error Resume Next` を挟むことで、エラーの連鎖（フリーズ）を確実に阻止している。
—
まとめ：自動化の信頼性は「後始末」で決まる
初心者と一流のエンジニアを分ける境界線は、「いかに華麗な処理を書くか」ではなく、「例外や異常系が起きたときに、いかに美しく環境を元の状態に戻せるか（後始末）」にある。
`FILEDIA` の制御は、その最も象徴的な事例だ。
今回伝授した設計パターンを身につければ、ファイル選択ダイアログの呪縛から解放され、何百枚もの図面を夜間に完璧に処理する真の業務自動化システムを構築できるはずだ。
現場の生産性を爆発的に高める堅牢なコードを、君の手で実装してほしい。健闘を祈る。
