AutoCAD VBAの深淵：カスタムファイルセレクタによるDWG制御の極意
AutoCADの標準的な `FileDialog` は、業務効率化の観点ではあまりに無防備だ。社内標準から逸脱した図面、あるいはバージョン不整合を引き起こす古いDWGを、無策で開かせてはならない。
真のシステムアーキテクトは、CADの「開く」という行為を厳格なゲートキーパーとして設計する。今回は、Windows APIを直接叩き込み、AutoCADのメモリ管理を支配下に置くための、カスタムファイルダイアログ実装の真髄を伝授する。
—
1. なぜ「標準」を捨てるべきなのか
AutoCAD VBAにおいて、`Application.FileDialog` は手軽だが、イベントフックや事前フィルタリングの精度に欠ける。我々が求めるのは、「選択された瞬間にファイル属性を解析し、拒絶または即時変換を判定する」というプロセスだ。
この設計には以下の3つの大罪を回避する狙いがある。
- バージョン不整合によるクラッシュの回避: `AcDbDatabase` を開く前にバージョンチェックを強制する。
- メモリリークの根絶: AutoCADのCOMオブジェクトは、明示的に解放しない限り、バックグラウンドのプロセス（`acaddoc.exe`）に亡霊を残し続ける。
- 非同期処理の制御: ネットワークパス上の巨大な図面を不用意に開く際、メインスレッドをブロックさせず、最適化されたバッファで読み込む。
—
2. 実装の核心：Windows API を用いたカスタムセレクタ
Windowsの `Common Item Dialog` を呼び出す。VBAの `UserForm` を使うよりも高速で、OSネイティブのパフォーマンスを享受できる。
以下は、`Shell32` と `ComDlg32` の知見を融合させた、現場で叩き上げられたコードの雛形である。
‘ Windows APIの宣言：明示的なメモリ制御のために必要
Private Declare PtrSafe Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME) As Long
‘ ファイルの属性フィルタリングと最適化されたオープン処理
Public Sub OpenDrawingSecurely()
Dim ofn As OPENFILENAME
‘ [注] 構造体の初期化は必須。ゴミデータがメモリ破壊を招く
ofn.lStructSize = Len(ofn)
ofn.lpstrFilter = “AutoCAD DWG” & vbNullChar & “.dwg” & vbNullChar
ofn.lpstrFile = String(256, 0)
ofn.nMaxFile = 256
If GetOpenFileName(ofn) Then
Dim targetPath As String
targetPath = Left(ofn.lpstrFile, InStr(ofn.lpstrFile, vbNullChar) – 1)
‘ バージョン判定とメモリ保護を伴うオープン処理
Call SecureDatabaseOpen(targetPath)
End If
End Sub
Private Sub SecureDatabaseOpen(filePath As String)
On Error GoTo Cleanup
‘ データベースオブジェクトを明示的に作成（CADのメモリ管理に介入）
Dim doc As AcadDocument
Set doc = Application.Documents.Open(filePath, False)
‘ ここでメタデータの検証や、標準レイヤ設定の強制適用を行う
‘ …
Cleanup:
‘ 重要な知見：オブジェクト参照を確実にNULLにする
‘ 参照を残したまま終了すると、AutoCADのバックグラウンドプロセスが肥大化する
Set doc = Nothing
End Sub
—
3. レガシー環境を生き抜くメモリ管理の鉄則
AutoCADのVBAで最も多い障害は、「図面を閉じたはずなのにメモリが解放されない」という事象だ。これはVBAのガベージコレクションが、AutoCADのCOMオブジェクトのライフサイクルを正しく認識できていないことに起因する。
シニアエンジニアが守るべき3つの掟
1. オブジェクトの明示的解放: `Set obj = Nothing` を、エラーハンドラ内の `Cleanup` セクションに記述するのは義務である。
2. `ThisDrawing` への依存を排除: `ThisDrawing` を多用すると、図面切り替え時に参照が迷子になる。常に `Application.ActiveDocument` を経由するか、ドキュメントオブジェクトを明示的に引数で渡す設計にせよ。
3. イベントの切断: ファイルオープン時に `Document.Activate` イベントなどを登録した場合、終了時に `WithEvents` 変数を確実に無効化しなければ、AutoCADは終了時にフリーズする。
—
4. システム間連携への展開
このカスタムダイアログは、単なるファイル選択器ではない。PLM（製品ライフサイクル管理）システムや、社内の図面管理データベースとの「ゲートウェイ」である。
選択されたDWGのヘッダー情報を読み込み、「過去の古いフォーマットであれば、開く前にバックグラウンドで最新バージョンへの変換（Convert）をトリガーする」といった自動化を組み込むことで、現場の設計者は「図面のバージョン管理」という概念から解放される。
—
最後に：職人の矜持
VBAはレガシー言語と言われるが、AutoCADの核心にこれほど直接的に触れられるインターフェースは他にない。APIを叩き、メモリを制御し、OSとCADの橋渡しをする。そのプロセスにおいて、コードは「書く」ものではなく、「設計する」ものだ。
君たちが書く一行のコードが、何万枚もの図面の整合性を守っているという自覚を持ってほしい。それが、この過酷な業界を生き抜く唯一の道だ。
次のステップでは、`ObjectARX` との連携による、より深いメモリ領域への干渉方法について触れることとしよう。それまでは、このカスタムセレクタを完璧に使いこなすことに専念したまえ。
