【テクニカル・上級編】【初心者向け】UNCパスを用いたネットワーク共有上のDWGファイルを安全に開く方法 – AutoCAD VBA解析バイブル

AutoCAD VBAを掌握する極限の知見
第1回：ネットワークの荒野を生き抜け。UNCパスによるDWGファイル制御と例外安全の美学

—

序：ドライブレターという「幻想」からの脱却

企業内の設計環境において、図面データの共有サーバー運用は避けて通れない基盤である。しかし、多くのVBA初学者、あるいは旧態依然としたマクロ設計者は、いまだに `Z:\Projects\2024\DWG\` のような「ドライブレター（割り当て文字）」に依存したコードを書き散らしている。

これは設計の現場において致命的な爆弾を抱えていると同義だ。
あるクライアントPCでは `Z:` ドライブとしてマウントされていても、別の端末では `X:` であったり、そもそもネットワークドライブの割り当てが外れていれば、容外なエラー（Runtime Error 5: プロシージャの呼び出しまたは引数が不正です）を吐いてマクロは沈黙する。さらに、VPN接続やリモートデスクトップ環境下では、ドライブマウントのタイミングやセッションの差異によってパスの解決が不安定になる。

真のシニアエンジニア、そして堅牢なシステムを構築するアーキテクトが選ぶべき道はただ一つ。
「UNCパス（Universal Naming Convention）」による直接指定と、ネットワークの不確実性をねじ伏せる「エラーハンドリングの極限化」である。

今回は、ネットワーク共有上のDWGファイルを安全に、かつメモリリークを一切起こさずに開くための実践的アーキテクチャを解説する。

—

1. UNCパスの構造とVBAにおけるエスケープの罠

UNCパスとは、ネットワーク上のリソースを `\\サーバー名\共有フォルダ名\ファイルパス` の形式で一意に特定する仕組みである。

VBAコード内でこれを扱う際、最大の罠となるのが文字列リテラルにおけるバックスラッシュの扱いだ。VBA（および多くのC系言語）において、バックスラッシュはエスケープシーケンスやパス区切り文字として解釈される。

‘ 【悪手】環境依存のドライブレター
Dim targetPath As String
targetPath = “Z:\CAD_Data\2024\A-101.dwg”

‘ 【正解】UNCパスによる絶対指定
Dim uncPath As String
uncPath = “\\srv-design-01\cad_archive\2024\A-101.dwg”

UNCパスを用いることで、クライアント側のドライブマウント状態に一切依存しない、絶対的なリソース参照が担保される。

—

2. ネットワーク環境における「安全」とは何か？

ローカルPC上のファイルを開くのと異なり、ネットワーク越しにDWGファイルを開く場合、以下の「遅延と切断のリスク」が常に伴う。

1. ファイル不在 / パス間違い: そもそもファイルが存在しない。
2. 排他制御（NLock）: 他の設計者が既にその図面を「編集モード」で開いており、アクセス権が拒否される。
3. タイムアウト / ネットワーク切断: 巨大なDWGの読込中にパケットロスが発生し、AutoCADのプロセスがフリーズする。

これらを「何となく `On Error Resume Next` で無視する」ようなコードを書く者は、アーキテクトを名乗る資格はない。例外を正確にキャッチし、AutoCADのドキュメントコレクションの状態をクリーンに保つコードこそがプロの所作である。

—

3. 実装コード：UNCパスを用いた安全なDWGオープン機構

以下のコードは、ネットワーク上のDWGファイルを安全に開き、存在確認、排他制御、およびCOMオブジェクトの適切なライフサイクル管理（メモリ最適化）を網羅した実用的なプロシージャである。

Option Explicit

‘ ==============================================================================
Win32/AutoCAD VBA 連携モジュール: ネットワークDWG安全オープン機構
Architectural Notes:

• ドライブレターを排除しUNCパスを強制
• FileSystemObjectによる事前存在・排他チェック
• 適切なエラーハンドリングによるプロセス孤立の防止

==============================================================================

Public Sub OpenDrawingSafelyFromNetwork()
‘ 1. 定数・変数の定義
Const UNC_TARGET_PATH As String = “\\srv-design-01\cad_archive\2024\A-101.dwg”

Dim fso As Object
Dim acadDoc As AutoCAD.AcadDocument
Dim targetDocName As String

‘ FSOのインスタンス生成（レイトバインディングによるバージョン差異の吸収）
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ — 【防衛策1】ネットワークパスの存在事前確認 —
On Error GoTo ErrorHandler

If Not fso.FileExists(UNC_TARGET_PATH) Then
MsgBox “指定されたネットワーク上の図面が見つかりません。” & vbCrLf & _
“パスを確認してください: ” & vbCrLf & UNC_TARGET_PATH, _
vbCritical, “ネットワークエラー”
GoTo CleanUp
End If

‘ — 【防衛策2】すでにAutoCAD上で開かれていないかのチェック —
targetDocName = fso.GetFileName(UNC_TARGET_PATH)
If IsDocumentOpen(targetDocName) Then
MsgBox “対象の図面はすでにAutoCAD上で開かれています。”, vbExclamation, “排他制御警告”
‘ 既存のドキュメントをアクティブにする処理へ移行する場合のフック
GoTo CleanUp
End If

‘ — 【本処理】DWGのオープン —
‘ Documents.Open メソッドは読み取り専用モードでのオープンやパスワード指定も可能
‘ ネットワーク負荷を考慮し、Read-Only（True）で開く設計を推奨
Set acadDoc = ThisDrawing.Application.Documents.Open(UNC_TARGET_PATH, ReadOnly:=True)

‘ 成功ログまたは後続処理
Debug.Print “Successfully opened: ” & acadDoc.FullName

CleanUp:
‘ — 【極限のメモリ最適化】オブジェクトの明示的解放 —
‘ COMラッパーの参照カウンタを確実にデクリメントし、メモリリークを防ぐ
Set acadDoc = Nothing
Set fso = Nothing
Exit Sub

ErrorHandler:
‘ 予期せぬネットワーク切断や権限エラーの捕捉
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error Number: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “System Crash Prevented”
Resume CleanUp
End Sub

‘ ==============================================================================
‘ ヘルパー関数: 指定したドキュメント名がすでに開かれているか判定
‘ ==============================================================================
Private Function IsDocumentOpen(ByVal docFileName As String) As Boolean
Dim doc As AutoCAD.AcadDocument
IsDocumentOpen = False

On Error GoTo CheckError
For Each doc In ThisDrawing.Application.Documents
If StrComp(doc.Name, docFileName, vbTextCompare) = 0 Then
IsDocumentOpen = True
Exit For
End If
Next doc

CheckError:
‘ コレクション走査中のエラーは無視してデフォルト（False）を返す
End Function

—

4. チーフアーキテクトからの実践的提言

オブジェクトのライフサイクル管理（COMの闇）

VBAにおけるAutoCAD Automation (`AcadDocument`, `AcadApplication` 等) は、裏側でCOM（Component Object Model）コンポーネントとして動作している。
`Set acadDoc = Nothing` を怠ると、VBAの実行が終了してもAutoCADのプロセス内（あるいは背後で動くアタッチメント）に参照が残り続け、ゾンビプロセスがメモリを蝕む原因となる。ネットワーク経由の処理であればなおさら、スコープを抜ける際の参照解放は宗教的儀式として厳格にコード化せよ。

パフォーマンスとスレッドの非同期性

巨大なDWGファイルをネットワーク経由で開く際、AutoCADはファイル全体のロード完了までUIスレッドをブロック（フリーズ状態）させることがある。
もし社内システム等で大量の図面をバッチ処理する要件があるならば、単なるVBAのループ処理ではなく、VB.NETによるCOM相互運用（Interop）を用いた非同期処理や、タスクキューイングのアーキテクチャへの移行を強く推奨する。VBAはその前段の「軽量なオーケストレータ」として割り切るべきだ。

—

結

技術とは、美しい理論と、泥臭い現実の妥協点を見出す作業の連続である。
ドライブレターという脆弱な依存性を捨て、UNCパスと堅牢な例外安全を手に入れたその日から、あなたの書くAutoCADマクロは「おもちゃ」から「エンタープライズ・システム」へと昇華する。

荒野を行け。コードに魂を宿せ。