【アセンブリ依存関係】PartDoc.EnumExternalFileReferencesを用いたインプレイスパーツにおける外部参照パス切れの自動検知
大規模なアセンブリ設計において、インプレイス編集（コンテキストフィーチャ）の多用は、設計効率を劇的に向上させる諸刃の剣である。親アセンブリの形状変更に追従する子パーツ群は強力な反面、ファイル名の変更、フォルダ構造の移動、あるいは共有サーバーのパス変更によって、一瞬にして「外部参照のパス切れ（Broken References）」を引き起こす。
SolidWorksの標準UIでも「外部参照の検索」機能はあるが、何百点ものパーツを抱える巨大プラントや自動車のトランスミッション級のアセンブリにおいて、手動でのパス修復作業はエンジニアの精神を摩耗させる悪夢でしかない。
今回は、SolidWorks VBAの底力を限界まで引き出し、`PartDoc.EnumExternalFileReferences` を駆使してアセンブリ配下のパーツが抱える外部参照の生死を完全に暴き出し、自動修復への道筋を切り拓く極限の知見を公開する。
—
1. 外部参照APIのアーキテクチャと選定理由
SolidWorks APIにおいて、ドキュメント間の依存関係を調査するアプローチはいくつか存在する。
1. `IModelDocExtension::GetDependencies`
- ファイル全体が依存しているアセット（図面、パーツ、テクスチャ等）をツリー状に取得する。
- 広く浅く調査するには向いているが、「コンテキストフィーチャとしての外部参照の健全性」をピンポイントで評価するには情報が過剰であり、かつ低レイヤーでのパス書き換え制御には向かない。
2. `IPartDoc::EnumExternalFileReferences`
- 【本記事の主役】 インプレイスパーツが持っている外部参照（親アセンブリやスケッチの参照先）に特化した列挙メソッド。
- 参照されているドキュメントのパス、モデル内のコンポーネント名、そして何より「その参照が現在有効か（見つかっているか）」のステータスを直接引き出せる。
シニアアーキテクトとして断言するが、インプレイスパーツの整合性監査において、これ以上の選択肢はない。
—
2. 実装上の罠：COMメモリ管理とBSTR配列の呪縛
VBAからSolidWorks APIを叩く際、最も見落とされがちなのがCOMオブジェクトのライフサイクルとメモリリークである。特に `EnumExternalFileReferences` のような配列を返すメソッドを不適切に扱うと、VBAランタイムとSolidWorksプロセスの間でメモリリークが発生し、最悪の場合、SolidWorks本体がサイレントクラッシュ（落ちる）する。
以下の実装コードでは、以下の鉄則を遵守している。
- `SldWorks` アプリケーションインスタンスの厳密な参照管理
- 配列・Variant型の安全なアンラップ
- 例外発生時（Error Handler）における確実に確実なオブジェクト解放
—
3. 実用コード：外部参照パス切れ自動検知・診断エンジン
以下のVBAコードは、現在アクティブなパーツドキュメント（またはアセンブリ内の選択パーツ）を対象に、外部参照のリストを取得し、各ファイルの存在確認（FileSystemObjectによる物理パスの検証）と、API側の接続ステータスを突き合わせてログを出力するチーフアーキテクト級のスクリプトである。
Option Explicit
‘ =========================================================================
‘ 外部参照パス切れ自動検知・診断モジュール (For SolidWorks VBA)
‘ Architecture Version: 4.2-Enterprise
‘ =========================================================================
Sub AuditExternalReferences()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
‘ 1. SolidWorks アプリケーションの取得
Set swApp = Application.SldWorks
If swApp is Nothing Then
MsgBox “SolidWorksが起動していません。”, vbCritical
Exit Sub
End If
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbExclamation
Exit Sub
End If
‘ 2. ドキュメントタイプの検証 (パーツのみ外部参照を持つインプレイスの対象となる)
If swModel.GetType <> swDocPART Then
MsgBox “このマクロは「パーツ（Part）ドキュメント」を対象としています。”, vbExclamation
Exit Sub
End If
Set swPart = swModel
‘ 3. 外部参照情報の取得 (EnumExternalFileReferences)
‘ 戻り値の Variant 配列構造:
‘ 0: ModelName (参照元の名前)
‘ 1: ComponentName (コンポーネント名)
‘ 2: FileName (参照先のフルパス)
‘ 3: ReadOnly (読み取り専用フラグ)
Dim vModelNames As Variant
Dim vCompNames As Variant
Dim vFileNames As Variant
Dim vReadOnly As Variant
Dim refCount As Long
refCount = swPart.EnumExternalFileReferences(vModelNames, vCompNames, vFileNames, vReadOnly)
If refCount <= 0 Then MsgBox "このパーツには外部参照（インプレイス依存関係）は存在しません。", vbInformation Exit Sub End If ' 4. 診断結果の出力準備 (イミディエイトウィンドウおよびログファイル) Debug.Print "=========================================================" Debug.Print " [External Reference Audit Report] Target: " & swModel.GetPathName Debug.Print " Total References Found: " & refCount Debug.Print "=========================================================" Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim i As Long Dim targetPath As String Dim isFileExists As Boolean Dim brokenCount As Long brokenCount = 0 For i = 0 to refCount - 1 targetPath = CStr(vFileNames(i)) isFileExists = fso.FileExists(targetPath) Debug.Print "--- 参照 #" & (i + 1) & " ---" Debug.Print " ModelName : " & CStr(vModelNames(i)) Debug.Print " ComponentName : " & CStr(vCompNames(i)) Debug.Print " FullPath : " & targetPath If isFileExists Then Debug.Print " [STATUS] : 正常 (ファイル存在確認OK)" Else Debug.Print " [STATUS] : 【警告】パス切れ発生！ファイルが存在しません。" brokenCount = brokenCount + 1 ' 【高度な拡張ポイント】 ' ここで自動修復ロジック（例：共通フォルダからの同名ファイル検索・再リンク）を呼び出すことが可能 ' Call AttemptAutoRepair(swPart, CStr(vModelNames(i)), targetPath) End If Next i Debug.Print "=========================================================" Debug.Print " 診断完了. 異常検出数: " & brokenCount & " / " & refCount Debug.Print "=========================================================" MsgBox "外部参照の監査が完了しました。" & vbCrLf & _ "検出された外部参照数: " & refCount & vbCrLf & _ "パス切れ検出数: " & brokenCount & vbCrLf & _ "詳細はイミディエイトウィンドウを確認してください。", vbInformation, "SolidWorks API 監査システム" ' 5. 明示的なオブジェクト解放 (メモリ最適化) Set fso = Nothing Set swPart = Nothing Set swModel = Nothing Set swApp = Nothing End Sub ---
4. チーフアーキテクトが教える「自動修復（Re-link）」実装の勘所
単にパス切れを検知するだけでは、シニアエンジニアの仕事としては半分だ。真に価値のあるシステムは、「失われたパスを自動的に再構築（リダイレクト）」する機能を持つ。
SolidWorks APIでは、外部参照のパスを書き換えるために `IModelDocExtension::SaveAs` や明示的なコンテキスト置換を行うのではなく、アセンブリ環境下でのセッション管理を伴う高度なアプローチが必要となる。
特に、サプライヤーから支給されたパーツや、PDMシステム（SOLIDWORKS PDM Standard/Professionalなど）へ移行する過渡期において、ファイルサーバーのドライブレター変更（例: `Z:\Projects\` -> `\\server\projects\`）によるパス切れは日常茶飯事である。
パス一括置換のアルゴリズム的アプローチ
自動修復ロジックを組み込む際は、以下のステップをVBAに追加する。
1. `fso.FileExists(targetPath)` が `False` になった際、ファイル名（例: `bracket.sldprt`）のみを抽出する。
2. あらかじめ定義された「検索ルートディレクトリ（例: アーカイブフォルダ）」を再帰的に走査し、一致するファイル名の新パスを特定する。
3. SolidWorksのセッション内において、参照の置き換えを実行する。
(※注: 厳密な参照の強制上書きには `IPartDoc` のコンテキスト再バインディング、あるいはアセンブリ側からの `IAssemblyDoc::ResolveAllComponents` との組み合わせが要求される)
—
5. まとめ：レガシーの呪縛を超えて
VBAは「古い言語」と揶揄されることがある。しかし、SolidWorksのドキュメント構造とCOMのライフサイクルを完全に理解した上で記述されたVBAコードは、巨大な設計データを一瞬でねじ伏せる圧倒的な自動化兵器となり得る。
今回紹介した `PartDoc.EnumExternalFileReferences` を用いた監査手法を夜間バッチや設計完了時のフックとして組み込むことで、「アセンブリを開いたら参照エラーで真っ赤っかだった」という絶望的なシチュエーションを、あなたのエンジニアリング環境から永久に排除してほしい。
技術の真髄は、泥臭いエラーの背後にある構造を見抜き、コードによって美しく統制することにある。
