【上級プロ向け】DrawingDoc.FindReferencesを用いた「図面と参照モデルのリンク切れ」完全予防と自動修復トランザクション
多くの開発者が、SolidWorksの自動化において「図面（Drawing）の生成」をゴールだと勘違いしている。しかし、真のプロフェッショナルが直面する戦場は、生成した後にある。
ファイルのリネーム、フォルダ構成の変更、あるいはPDM（Product Data Management）からのデータエクスポートに伴うパスの不整合。これらが引き起こす「参照の喪失（Broken Links）」は、図面データの信頼性を根底から破壊する。
「図面を開いたときに警告が出るから、手動で直せばいい」――そんな考えは、数千枚の図面を管理するエンタープライズ環境では通用しない。我々に求められるのは、参照の整合性をAPIレベルで検知し、壊れる前に予兆を捉え、壊れた瞬間に外科手術のように正確に修復する「堅牢なトランザクション設計」である。
本稿では、`DrawingDoc.FindReferences` を核とした、参照管理の極限の知見を伝授する。
1. なぜ「Viewのループ」では不十分なのか
初心者は、図面内のビュー（View）を一つずつ走査し、そのビューが参照しているモデルを取得しようとする。
' --- アンチパターン：非効率で脆弱な設計 ---
For Each swView In swDrawing.GetViews
Set swModel = swView.ReferencedDocument
If swModel Is Nothing Then
' ここでリンク切れを検知しようとするが、
' 既に参照が壊れている場合、取得のプロセス自体が不安定になることがある
End If
Nextこのアプローチには2つの致命的な欠陥がある。
1. パフォーマンスの欠如: ビューが数百ある大規模アセンブリ図面において、全ビューを走査するのは極めて重い。
2. 網羅性の欠如: 図面には「ビュー」として現れない参照も存在する。モデルの構成要素や、特定のフィーチャーに紐付いた参照が、ビューの走査だけでは漏れるリスクがある。
プロフェッショナルは、ビューという「表示結果」を見るのではない。`DrawingDoc.FindReferences` を使い、図面が保持している「参照オブジェクトのリスト」を直接叩く。これが最短かつ最も確実なルートだ。
2. アーキテクチャ設計：参照修復の「3フェーズ・トランザクション」
単にパスを書き換えるだけでは、不完全なデータを生むリスクがある。プログラムは、以下の3つのフェーズを経て、一つの「トランザクション」として完結させるべきだ。
Phase 1: Detection（検知）
`FindReferences` を実行し、現在の参照リストを取得する。各参照の `GetModelPath` を検証し、実ファイルが存在するかをチェックする。
Phase 2: Mapping（マッピング）
「古いパス」と「新しいパス」の対応表（マッピングテーブル）を作成する。この際、ファイル名のみをキーにするか、フルパスをキーにするかは、プロジェクトの命名規則に依存する。
Phase 3: Execution & Validation（実行と検証）
`ReplaceReference` を用いて一括置換を行う。置換後は必ず `EditRebuild3` を呼び出し、図面の再構築が成功したかを検証する。
3. プロダクションコード例：堅牢な参照修復エンジン
以下に、実務レベルでそのまま組み込める、エラーハンドリングとロジックを分離した設計のコードを示す。
' ==============================================================================
' Module: ReferenceManager
' Description: 図面の参照整合性を維持するための高度な修復ロジック
' ==============================================================================
Option Explicit
' 参照情報を格納するための構造体（概念的なもの）
Private Type ReferenceMap
OldPath As String
NewPath As String
End Type
''' <summary>
''' 図面の参照切れを検知し、指定されたマッピングに基づいて修復を行う
''' </summary>
''' <param name="swDraw">対象のDrawingDocオブジェクト</param>
''' <param name="mappingDict">[Key: 旧パス, Value: 新パス] のDictionaryオブジェクト</param>
Public Sub RepairDrawingReferences(swDraw As SldWorks.DrawingDoc, mappingDict As Object)
Dim swModel As SldWorks.ModelDoc2
Set swModel = swDraw.GetModelDoc2
If swModel Is Nothing Then Exit Sub
Dim vRefs As Variant
Dim swRef As SldWorks.Reference
Dim i As Long
Dim oldPath As String
Dim newPath As String
Dim repairCount As Long: repairCount = 0
' --- Phase 1 & 2: Detection & Mapping ---
' FindReferencesは図面が保持するすべての参照を配列で返す
vRefs = swDraw.FindReferences
If IsEmpty(vRefs) Then
Debug.Print "参照が見つかりませんでした。"
Exit Sub
End If
On Error GoTo ErrorHandler
' トランザクション開始のログ
Debug.Print "--- 参照修復トランザクション開始 ---"
For i = 0 To UBound(vRefs)
Set swRef = vRefs(i)
oldPath = swRef.GetModelPath
' 参照先が既に存在するか確認、またはマッピングリストにあるか確認
If Not FileExists(oldPath) Or mappingDict.Exists(oldPath) Then
' マッピングから新しいパスを取得
' ここでは「ファイルが存在しない場合」かつ「マッピングにある場合」を想定
If mappingDict.Exists(oldPath) Then
newPath = mappingDict(oldPath)
' --- Phase 3: Execution ---
' 参照の差し替えを実行
' ReplaceReferenceは、その参照に関連するすべてのビューを更新する
swRef.ReplaceReference newPath
Debug.Print "修復成功: " & oldPath & " -> " & newPath
repairCount = repairCount + 1
End If
End If
Next i
' --- Phase 3: Validation ---
' 全ての置換が終わった後に、一度だけリビルドを実行（パフォーマンス最適化）
If repairCount > 0 Then
swModel.EditRebuild3
' 保存前の最終整合性チェック（簡易版）
If swDraw.FindReferences = IsEmpty Then
Debug.Print "全参照の修復が完了しました。総修復数: " & repairCount
Else
Err.Raise vbObjectError + 513, "RepairManager", "一部の参照が修復できませんでした。"
End If
Else
Debug.Print "修復が必要な参照はありませんでした。"
End If
Debug.Print "--- トランザクション正常終了 ---"
Exit Sub
ErrorHandler:
' 失敗した場合は、ユーザーに通知し、ロールバック（手動介入）を促す
' ※VBAでは完全な自動ロールバックは困難なため、異常状態を明示することが重要
MsgBox "致命的なエラーが発生しました。図面が不安定な状態です。" & vbCrLf & _
"Error: " & Err.Description, vbCritical, "修復トランザクション失敗"
Debug.Print "!!! トランザクション異常終了 !!! Error: " & Err.Description
End Sub
''' <summary>
''' ファイルの存在確認用ヘルパー
''' </summary>
Private Function FileExists(path As String) As Boolean
If path = "" Then
FileExists = False
Else
FileExists = (Dir(path) <> "")
End If
End Function4. 実務における「設計の急所」
このコードをプロダクション環境に投入する際、以下の3点に留意せよ。
① マッピングエンジンの分離
上記のコードでは `mappingDict` を引数としている。これは、パスの解決ロジック（SQLデータベースから取得するのか、Excelのリストを参照するのか、あるいは正規表現によるファイル名マッチングか）を、修復ロジックから完全に切り離すべきであることを意味する。ロジックの疎結合こそが、保守性を担保する。
② パフォーマンスの重み（Rebuildの制御）
`ReplaceReference` を実行するたびに `swModel.EditRebuild3` を呼び出してはならない。それは、一軒ずつ家を建て直しながら、一軒ごとに全住民に挨拶回りをするような愚行だ。
「全ての参照を差し替えてから、最後に一度だけリビルドする」。これが、大規模図面を扱うエンジニアの鉄則である。
③ 参照の「一貫性」への責任
`ReplaceReference` は強力だが、万能ではない。例えば、アセンブリ内の部品がリネームされた際、図面内の「部品番号注記」などが古い名称のまま残るケースがある。
真に堅牢なツールを目指すなら、参照の修復後に、「図面内のテキスト（注記）が新しいモデルのプロパティと一致しているか」までをバリデーションのスコープに含めることを検討せよ。
結論
`DrawingDoc.FindReferences` は、単なる検索メソッドではない。それは、図面という「情報の構造」を掌握するための鍵である。
オブジェクトのライフサイクルを理解し、エラーを例外としてではなく「設計の一部」として捉えること。この思考プロセスこそが、単なる「マクロ作成者」と「業務自動化アーキテクト」を分かつ境界線である。
