【アセンブリ一括置換の極意】IComponent2.ReplaceComponentsを使った型式違いモデルの高速一括差し替え
設計変更の嵐、そして幾度となく繰り返される「型式違いモデルへの差し替え」。数千点規模のアセンブリにおいて、これを手作業で行うのはエンジニアの寿命を削るに等しい。さらに、手動での置換は合致関係（Mates）の喪失、コンフィギュレーションの取り違え、そして最悪の場合はファイル参照パスの破損という致命的な手戻りを引き起こす。
我々はエンジニアであり、自動化の旗手だ。SolidWorks APIの深淵を覗き、オブジェクトのライフサイクルとメモリ管理を完全に掌握した者だけが到達できる「高速一括置換」の極意をここに伝授する。
—
1. SolidWorks APIアーキテクチャの核心：なぜ「ReplaceComponents」なのか
アセンブリ内のコンポーネントを差し替えるAPIとして、いくつかの候補が頭に浮かぶかもしれない。しかし、実務の現場で耐えうるのは `IComponent2::ReplaceComponents` のみである。
オブジェクトモデルの階層構造と罠
SolidWorksのドキュメント構造において、`ModelDoc2`（ドキュメント実体）と `IComponent2`（アセンブリ内のインスタンス）は完全に分離されている。
レガシーなコードや素人が書いたマクロでは、コンポーネントを削除して新しく挿入し直すという愚行を犯す。これを行うと、そのコンポーネントに紐づいていた数十個の合致関係（Mate）がすべて「エラー（赤マーク）」となり、気の遠くなるような再拘束作業が発生する。
`IComponent2::ReplaceComponents` は、インスタンスの「中身（参照ファイル）」だけを安全にスワップする。これにより、既存の合致関係のトポロジー（面やエッジの参照ID）を可能な限り維持したまま、モデルの形状とファイル参照を一瞬で書き換えることが可能となる。
—
2. 実装上の技術的ハードルと極限の最適化
実務レベルのコードを書く上で、避けて通れないのが「メモリリーク」「画面描画のオーバーヘッド」「ファイルパスの解決エラー」の3点だ。これらを完全に制御する。
画面描画の凍結（ScreenUpdatingの罠）
SolidWorks VBAにおいて、`SldWorks.Application.Visible` やドキュメントの再描画は最大のボトルネックだ。API実行中のモデル再構築（Rebuild）やグラフィック更新を完全に抑制し、CPUサイクルをAPIの処理に集中させる。
メモリの明示的解放
VBAのガベージコレクションはアテにしてはならない。特にCOMオブジェクトを大量に扱うアセンブリ走査では、ループ内で生成されたオブジェクト変数をこまめに `Nothing` に解放しなければ、あっという間にメモリを食いつぶし、SolidWorksごとクラッシュする。
—
3. 【実用コード】合致関係を維持する一括置換マクロ
以下のコードは、指定したアセンブリ内の特定パーツ（または全インスタンス）を、新しいファイルパスを持つモデルへ一括で、かつ安全に置き換える実用チートコードである。
‘ ==============================================================================
‘ 著作権表記 © 202X 伝説のチーフアーキテクト
‘ モジュール名:
‘ 概要: IComponent2.ReplaceComponents を用いたアセンブリコンポーネント高速一括置換
‘ ==============================================================================
Option Explicit
Sub Execute_HighSpeedComponentReplacement()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssDoc As SldWorks.AssemblyDoc
Dim swRootComp As SldWorks.Component2
‘ 実行時間の計測用
Dim startTime As Double
startTime = Timer
‘ 1. SolidWorks アプリケーションの取得
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
‘ ドキュメントの存在・アセンブリ判定
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
If swModel.GetType <> swDocASSEMBLY Then
MsgBox “このマクロはアセンブリドキュメントでのみ実行可能です。”, vbCritical, “型エラー”
Exit Sub
End If
Set swAssDoc = swModel
‘ ==========================================================================
‘ 設定エリア（要環境変更）
‘ ==========================================================================
Dim targetOldPath As String
Dim newModelPath As String
‘ 置き換え元ファイルの絶対パス（または部分一致させるためのファイル名）
targetOldPath = “C:\CAD_Data\Old_Bracket.sldprt”
‘ 置き換え先（新型式）の絶対パス
newModelPath = “C:\CAD_Data\New_Bracket_RevB.sldprt”
‘ ==========================================================================
‘ 2. パフォーマンス最適化：画面描画と自動再構築の停止
swApp.CommandInProgress = True
swModel.EditRebuild3 ‘ 事前クリーンアップ
‘ ルートコンポーネントの取得
Set swRootComp = swAssDoc.GetRootComponent3(True)
If swRootComp Is Nothing Then
MsgBox “ルートコンポーネントの取得に失敗しました。”, vbCritical
GoTo CleanUp
End If
‘ 3. 再帰的走査および置換実行
Dim replaceCount As Long
replaceCount = 0
‘ トランザクション処理の開始（パフォーマンス向上）
swModel.Extension.StartCommand swCommands_Assembly_Rebuild_Active
Call RecursiveReplace(swApp, swModel, swRootComp, targetOldPath, newModelPath, replaceCount)
‘ 4. 終了処理とパフォーマンス復元
swApp.CommandInProgress = False
swModel.ForceRebuild3 True ‘ 強制全体再構築
Dim endTime As Double
endTime = Timer
MsgBox “一括置換が完了しました。” & vbCrLf & _
“置換成功件数: ” & replaceCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(endTime – startTime, “0.00”) & ” 秒”, _
vbInformation, “完了”
CleanUp:
‘ 徹底的なメモリ解放
Set swRootComp = Nothing
Set swAssDoc = Nothing
Set swModel = Nothing
Set swApp = Nothing
End Sub
‘ ==============================================================================
‘ 内部関数: コンポーネントツリーを再帰的に走査し、条件エンティティを置換する
‘ ==============================================================================
Private Sub RecursiveReplace(ByRef swApp As SldWorks.SldWorks, _
ByRef swModel As SldWorks.ModelDoc2, _
ByRef swComp As SldWorks.Component2, _
ByVal oldPath As String, _
ByVal newPath As String, _
ByRef count As Long)
Dim vChildComps As Variant
Dim swChildComp As SldWorks.Component2
Dim i As Long
vChildComps = swComp.GetChildren
If IsEmpty(vChildComps) Then Exit Sub
For i = LBound(vChildComps) To UBound(vChildComps)
Set swChildComp = vChildComps(i)
‘ コンポーネントの参照ファイルパスを取得
Dim compModelPath As String
compModelPath = swChildComp.GetPathName
‘ パスが一致（またはファイル名が一致）する場合に置換を実行
If StrComp(compModelPath, oldPath, vbTextCompare) = 0 Then
Dim vCompArr(0) As Variant
Set vCompArr(0) = swChildComp
Dim compArrVariant As Variant
compArrVariant = vCompArr
‘ 【核心API】ReplaceComponents
‘ 引数:
‘ 1: 新しいファイルのパス
‘ 2: コンフィギュレーション名（空文字列の場合はデフォルト）
‘ 3: 置き換え対象のコンポーネント配列
‘ 4: 合致関係を維持するかどうか（swReplaceComponentOption_e）
Dim status As Boolean
status = swModel.ReplaceComponents( _
newPath, _
“”, _
1, _
compArrVariant, _
True) ‘ True = 合致関係の維持を試みる
If status Then
count = count + 1
End If
End If
‘ サブアセンブリである場合はさらに深く潜る（再帰呼び出し）
If Not swChildComp.IsSuppressed Then
Call RecursiveReplace(swApp, swModel, swChildComp, oldPath, newPath, count)
End If
‘ ループ内でのメモリ解放
Set swChildComp = swChildComp
Set swChildComp = Nothing
Next i
vChildComps = Empty
End Sub
—
4. シニアエンジニアが知るべき「現場の罠」と回避策
このコードをそのまま実務に投入するにあたり、現場で起きがちなトラブルシューティングの知見を共有しておく。
トラブル1: 巨大アセンブリでのメモリ不足（OutOfMemory）
何千点もある大規模アセンブリで再帰処理を行うと、VBAのスタック領域やCOMラッパーがメモリリークを起こすことがある。
- 対策: ループ内で生成されるオブジェクト（特に `Component2`）は、処理の直後に必ず明示的に `Set xxx = Nothing` を行い、定期的に `DoEvents` を挟むことで、Windowsメッセージキューを処理させつつメモリプレッシャーを逃がすこと。
トラブル2: 外部参照（External References）の競合
新しいモデルの寸法やサーフェスIDが旧モデルと全く異なる場合、`ReplaceComponents` の第5引数（合致関係の維持）を `True` にしていても、幾何学的な矛盾から合致エラーが爆発することがある。
- 対策: 型式違いとはいえ、ベースとなるスケッチの原点や主要基準面（Front/Top/Right）のID体系が維持されている設計ルール（トップダウン設計の基本）が前提となる。ここが破綻しているモデル間での一括置換は、APIを使う前に設計標準の見直しが必要だ。
—
5. 総括：自動化とは「リスクのコントロール」である
今回紹介した `IComponent2.ReplaceComponents` による一括置換は、単なる手作業の代替ではない。設計変更という避けられないカオスに対し、プログラムという冷徹な論理で構造的整合性を保ったまま突貫させるための「外科手術」である。
レガシーなCADオペレーションから脱却し、背後にあるAPIの仕様とオブジェクトのライフサイクルを完全に掌握せよ。それこそが、真の業務自動化エンジニアの姿である。
