【上級】図面オープン時のカスタムダイアログ制御：AutoCAD VBAで実現する堅牢な業務自動化アーキテクチャ
開発プロジェクトの現場において、AutoCAD VBAによる自動化の壁となるのが「図面が開かれる前の制御（ライフサイクル初期の介入）」だ。
標準の `Documents.Open` や `Open` コマンドが実行された瞬間、無条件で図面が読み込まれ、意図しないバージョンでの上書き保存や、参照パスの不整合によるフリーズ、不要な重たい外部参照（Xref）の読み込みといったトラブルが後を絶たない。
真に堅牢な業務自動化システムを構築するためには、「ファイルが物理的にメモリへ展開される前に、独自の条件分岐とバリデーションを挟み込む仕組み」が不可欠である。
今回は、実務の現場で即座に採用できる、ユーザー定義のカスタムダイアログを起点とした図面オープン制御の極意を伝授しよう。
—
1. なぜ標準のファイルオープン処理では実務に耐えられないのか？
多くの開発者が犯す設計ミスは、単に `ThisDrawing.Application.Documents.Open` をボタンクリック等のイベントドリブンで実行することだ。これでは以下の致命的な課題がクリアできない。
1. バージョンのサイレント不整合:
旧バージョンの図面を最新のAutoCADエンジンで開いた際、意図しない「保存時のバージョンアップ」やオブジェクトの劣化が起きる。
2. メタデータ欠損による手戻り:
図面固有の属性（プロジェクトコードや担当者情報）を事前に検証せず開くため、間違った図面への作図作業が後を絶たない。
3. パフォーマンスの無駄遣い:
不要なレイヤや膨大なブロック定義を含んだ巨大なDWGを無防備に開き、VBA側で破棄処理を行うのはCPUとメモリの猛烈な無駄である。
これらを解決するため、「ファイル名とヘッダー情報を先行して検証し、ユーザーの入力とデータベース（DB/CSV）の照合を経てから `Documents.Open` を呼び出す」というラッパー構造を設計する。
—
2. 全体アーキテクチャの設計
今回のソリューションは以下の3層で構成する。
- UI層（UserForm）: ユーザーから業務コードや処理モード（編集/参照）を入力させるカスタムダイアログ。
- 制御層（Standard Module）: ファイルの存在確認、バージョンチェック、および条件分岐のルーティング。
- 実行層（Document/Application）: 条件クリア後に安全に図面を開き、イベントハンドラをアタッチする処理。
—
3. プロダクションコード実装
以下のコードは、エラーハンドリング、COMオブジェクトの適切な解放、および実務で必須となるロバスト性を完全に網羅したプロダクションコードである。
① UI層：カスタムダイアログ（UserForm: `frmOpenController`）の準備
フォーム上に以下のコントロールを配置する事。
- テキストボックス: `txtProjectCode` （業務プロジェクトコード入力用）
- コンボボックス: `cmbOpenMode` （「1: 編集モード」「2: 参照読取専用」の選択）
- コマンドボタン: `btnExecute` （実行ボタン）、`btnCancel` （キャンセル）
② 制御層：標準モジュール（`modOpenController.bas`）
Option Explicit
‘ Windows API: 指定ファイルの存在を高速かつ安全に確認するため
If VBA7 Then
Private Declare PtrSafe Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
Else
Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
End If
/
- —————————————————————–
- エントリーポイント：外部メニューやリボンから呼び出されるプロシージャ
- —————————————————————–
/
Public Sub InitializeDrawingWorkflow()
On Error GoTo ErrorHandler
‘ 1. カスタムダイアログのインスタンス化と表示
Dim frm As frmOpenController
Set frm = New frmOpenController
frm.Show vbModal
‘ 2. ユーザーがキャンセルした場合は処理を安全に中断
If frm.CancelFlag Then
Unload frm
Exit Sub
End If
‘ 3. フォームから入力値と言語/モードを回収
Dim targetFile As String
Dim projectCode As String
Dim isReadOnly As Boolean
projectCode = frm.ProjectCodeValue
isReadOnly = frm.ReadOnlyModeValue
targetFile = frm.SelectedFilePath
Unload frm
Set frm = Nothing
‘ 4. プレチェック（ファイル存在・排他制御・メタデータ検証）
If Not PreCheckDrawing(targetFile, projectCode) Then
Exit Sub
End If
‘ 5. 条件分岐に基づく安全な図面オープン処理の実行
ExecuteControlledOpen targetFile, isReadOnly
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “AutoCAD VBA Architecture”
If Not frm Is Nothing Then Unload frm
End Sub
/
- —————————————————————–
- プレチェック処理：図面を開く前の厳格なバリデーション
- —————————————————————–
/
Private Function PreCheckDrawing(ByVal filePath As String, ByVal pCode As String) As Boolean
PreCheckDrawing = False
‘ ファイルシステムの存在確認
If PathFileExists(filePath) = 0 Then
MsgBox “指定された図面ファイルが存在しません。” & vbCrLf & filePath, vbExclamation, “ファイル不整合”
Exit Function
End If
‘ 業務データベース（またはマスタCSV）との連携バリデーション（サンプルロジック）
If Not ValidateWithDatabase(pCode, filePath) Then
MsgBox “プロジェクトコード [” & pCode & “] と図面のメタデータが一致しません。”, vbCritical, “セキュリティポリシー違反”
Exit Function
End If
‘ すでにAutoCADで開かれている図面かどうかの二重オープンチェック
Dim doc As Document
Dim targetDocName As String
targetDocName = Mid(filePath, InStrRev(filePath, “\”) + 1)
For Each doc In ThisDrawing.Application.Documents
If StrComp(doc.Name, targetDocName, vbTextCompare) = 0 Then
MsgBox “対象の図面はすでにこのセッションで開かれています。”, vbInformation, “インフォメーション”
doc.Activate
Exit Function
End If
Next doc
PreCheckDrawing = True
End Function
/
- —————————————————————–
- データベース・マスタ連携バリデーションのモック
- —————————————————————–
/
Private Function ValidateWithDatabase(ByVal pCode As String, ByVal filePath As String) As Boolean
‘ 実務ではここで ADO (ADODB.Connection) を使用して外部DBやExcelマスタと突合する
‘ 今回は簡易的にコードの長さと特定の命名規則を検証
If Len(pCode) < 4 Then
ValidateWithDatabase = False
Exit Function
End If
' 検証成功とみなす
ValidateWithDatabase = True
End Function
/
- —————————————————————–
- 実行層：条件をクリアした図面の安全なオープン処理
- —————————————————————–
/
Private Sub ExecuteControlledOpen(ByVal filePath As String, ByVal isReadOnly As Boolean)
On Error GoTo OpenError
Dim targetDoc As Document
‘ AutoCADのドキュメントコレクションに対して、明示的にRead-Only制御を渡してオープン
Set targetDoc = ThisDrawing.Application.Documents.Open(filePath, isReadOnly)
‘ 開いた直後のイベント設定やカスタムプロパティの付与をここに記述
‘ 例: targetDoc.SummaryInfo.TheAuthor = “AutoAutomation Engine”
Exit Sub
OpenError:
MsgBox “図面のオープンに失敗しました。” & vbCrLf & “理由: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
③ フォーム側の最小限のプロパティ実装（`frmOpenController` Code）
Option Explicit
Public CancelFlag As Boolean
Public SelectedFilePath As String
Public ProjectCodeValue As String
Public ReadOnlyModeValue As Boolean
Private Sub UserForm_Initialize()
CancelFlag = True
‘ コンボボックスの初期化
Me.cmbOpenMode.AddItem “編集モード (通常オープン)”
Me.cmbOpenMode.AddItem “参照モード (読取専用)”
Me.cmbOpenMode.ListIndex = 0
‘ デフォルトのテストパス（実務ではファイル選択ダイアログ等で動的に取得）
Me.txtFilePath.Text = “C:\Projects\SampleDrawing.dwg”
End Sub
Private Sub btnExecute_Click()
‘ 入力値検証
If Trim(Me.txtProjectCode.Text) = “” Then
MsgBox “プロジェクトコードを入力してください。”, vbExclamation, “入力必須”
Me.txtProjectCode.SetFocus
Exit Sub
End If
‘ 値のパブリック変数への格納
CancelFlag = False
SelectedFilePath = Me.txtFilePath.Text
ProjectCodeValue = Trim(Me.txtProjectCode.Text)
ReadOnlyModeValue = (Me.cmbOpenMode.ListIndex = 1)
Me.Hide
End Sub
Private Sub btnCancel_Click()
CancelFlag = True
Me.Hide
End Sub
—
4. チーフアーキテクトが教える「現場でハマる罠」と回避策
1. COMの参照リーク（Memory Leak）に気をつけろ:
`Documents.Open` の戻り値として取得した `Document` オブジェクトや、アプリケーションのインスタンスをグローバル変数に保持し続けると、AutoCAD終了後もプロセスがゾンビとして残り続ける（Acad.exeがタスクマネージャーに残る現象）。処理が完結したらローカル変数のスコープ内で完結させるか、明示的に `Set targetDoc = Nothing` を叩くこと。
2. パス区切り文字の罠:
Windows環境におけるパスのバックスラッシュ（`\`）の扱いは `InStrRev` 等で確実にハンドリングすること。サードパーティ製のパース関数を自前で持つよりも、Windows API（`PathFileExists` 等）を適切にブリッジさせる方が、ネットワークドライブ経由でのレイテンシトラブルを防げる。
—
総括
図面オープン時のカスタムダイアログによる条件分岐制御は、単なる「UIの化粧直し」ではない。「組織の設計ルール、データ整合性、そしてハードウェアリソースの保護」をコードレベルで強制するための強力な防衛策である。
泥臭いマニュアル運用や属人的なチェック体制から脱却し、ロジカルで堅牢なアーキテクチャをあなたの開発環境にインストールしてほしい。現場のエンジニアから感謝される日はそう遠くないはずだ。
