アセンブリ構築の「循環参照」を根絶せよ：VBAによるトポロジー解析の極意
SolidWorksのアセンブリ自動化において、最も忌むべきは「循環参照（Circular Reference）」のダイアログだ。大規模アセンブリを構築する際、合致関係の連鎖を考慮せずに機械的にモデルを投入すれば、数千コンポーネント規模でこの地獄に陥る。
多くのエンジニアは、エラーが出てから手作業で修正するという非効率なフローを繰り返している。しかし、我々のようなシステムアーキテクトにとって、それは「設計の敗北」を意味する。アセンブリを構築する前に、そのトポロジーを解析し、依存関係のループを検知すればいい。
今回は、グラフ理論を応用した循環参照の事前検知ロジックを、VBAの限界を押し広げつつ解説する。
—
1. 循環参照の本質：有向グラフとしてのモデル構造
アセンブリを構成する各部品を「ノード」、合致関係を「エッジ」と見なせば、アセンブリは有向グラフとして数学的に定義できる。
- 循環参照とは： グラフ内に「閉路（Cycle）」が存在すること。
- 戦略： 深さ優先探索（DFS）を用いて、モデルの親子関係と合致依存関係を走査し、探索中に「訪問済みかつ探索中」のノードに遭遇した時点で、それは循環参照であると判定する。
—
2. 実装：VBAによる依存関係解析アルゴリズム
VBA標準のコレクションオブジェクトは、メモリ管理が甘くなりがちだ。大規模な解析を行う際は、`Scripting.Dictionary` を駆使し、メモリリークを防ぐための明示的な参照解放を徹底する。
‘ 依存関係グラフを保持するクラス：DependencyGraph
‘ 循環参照検知のためのDFSアルゴリズム実装例
Private Sub DetectCycle(ByVal currentNode As String, ByRef visited As Object, ByRef stack As Object)
‘ visited: 完全に走査済みのノード
‘ stack: 現在の探索パス上にあるノード（ここに再突入すれば循環参照）
visited.Add currentNode, True
stack.Add currentNode, True
‘ ここで現在のコンポーネントの合致先(依存先)を取得
Dim dependencies As Variant
dependencies = GetDependencies(currentNode) ‘ 自作のSW APIラッパー
Dim i As Long
For i = LBound(dependencies) To UBound(dependencies)
Dim neighbor As String
neighbor = dependencies(i)
If Not visited.Exists(neighbor) Then
DetectCycle neighbor, visited, stack
ElseIf stack.Exists(neighbor) Then
Err.Raise vbObjectError + 1000, “GraphAnalyzer”, “循環参照を検知: ” & currentNode & ” -> ” & neighbor
End If
Next i
‘ 探索終了後にスタックから削除
stack.Remove currentNode
End Sub
—
3. シニアエンジニアが意識すべき「メモリの汚染」と「APIの重み」
VBAでSolidWorks APIを扱う際、最も重いのが `IAssemblyDoc::GetComponents` や `IMate` 系のオブジェクト呼び出しだ。これらをループ内で無計画に叩くと、COMラッパーの生成でメモリが膨張し、OS側のヒープ領域を食いつぶす。
- オブジェクトの明示的破棄： `Set obj = Nothing` は必須だが、さらに `CoFreeUnusedLibraries` を呼び出す必要があるケースも存在する。
- キャッシュ戦略： APIから取得したコンポーネントのIDと依存関係は、一度 `Dictionary` にキャッシュせよ。同じノードを二度API経由で叩かないこと。これがパフォーマンスの命運を分ける。
—
4. Windows APIを活用した堅牢化
大規模な解析中、SolidWorksが「応答なし」になるのを防ぐため、Windows APIの `PeekMessage` を使ってメッセージポンプを回すのがプロの流儀だ。
‘ ユーザー操作をブロックせずに解析を継続させるための簡易メッセージポンプ
Private Declare PtrSafe Function PeekMessage Lib “user32” Alias “PeekMessageA” _
(lpMsg As Any, ByVal hWnd As LongPtr, ByVal wMsgFilterMin As Long, _
ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Sub PumpMessages()
Dim msg As Long
‘ UIの凍結を防ぐため、メッセージを空読みする
DoEvents
End Sub
—
5. 結論：手戻りを排除するアーキテクチャへ
アセンブリを構築してからエラーを直すのは、もはや「開発」ではなく「修繕」だ。
今回解説したトポロジー解析ロジックを、アセンブリ構築プログラムの「ゲートキーパー（前処理）」として組み込め。
1. 解析段階： コンポーネントを配置する前に、JSON等から依存関係を読み込み、グラフ判定を行う。
2. 検証段階： 循環参照があれば、即座に例外をスローし、どのパスが循環しているかをログ出力してプログラムを停止させる。
3. 実行段階： 検証をクリアしたモデルのみを `IAssemblyDoc::AddComponent` に流し込む。
これが、SolidWorksを単なるCADとしてではなく、演算プラットフォームとして使いこなすための唯一の道である。技術は、常に「破壊」ではなく「予測」のためにあるべきだ。健闘を祈る。
