こんにちは！SolidWorks VBAの世界へようこそ。
マクロの記録ボタンを押して、生成されたコードの海に溺れかけたことはありませんか？「記録されたコードをそのまま動かしたのに、別のモデルだとエラーになる…」そんな壁にぶつかったあなたこそ、真のAPIエンジニアへの第一歩を踏み出しています。
今回は、設計現場で最も需要が高いテーマの一つ「アセンブリ構成部品の置換（`IComponent2.ReplaceComponents`）」を徹底解説します。
設計変更で「標準部品の型式が変わった」「新しいリビジョンのモデルに一括で差し替えたい」という時、手作業で合致（メイト）付け直していたら日が暮れてしまいますよね。これを一瞬で、しかも合致関係を保持したまま安全に自動化する極意を、優しく、そしてディープにお伝えします。ここをクリアすれば、あなたのSolidWorks VBAのスキルは間違いなく一段上のステージに到達しますよ！
—
1. そもそもなぜ「置換」は難しいのか？（APIの裏側を知る）
SolidWorksの画面上で「構成部品の置き換え」を行うとき、ソフトウエア裏では何が起きているでしょうか？
単にファイルを差し替えるだけなら簡単ですが、アセンブリには「他の部品との位置関係（合致）」が複雑に絡み合っています。
APIでこれを制御する場合、「どのコンポーネントを」「どの新しいファイルに」「どのように合致を引き継いで」置換するのかを的確にSldWorksオブジェクトに伝える必要があります。ここで登場するのが、今回主役となる `IComponent2.ReplaceComponents` メソッドです。
陥りやすい罠：ファイルパスの指定ミス
初心者が一番最初に踏む地雷が「相対パスと絶対パスの混同」です。SolidWorks APIに新しいファイルの場所を教えるときは、常に完全修飾ファイル名（フルパス）で渡すのが鉄則です。ここを怠ると、APIは迷子になりエラーを吐き出します。
—
2. 実戦投入可能な「一括置換マクロ」の全容
それでは、実際に動かせる実用コードを公開します。
このコードは、現在アクティブなアセンブリの中から「指定した古い型式の部品」を検索し、合致関係を維持したまま「新しい型式の部品」に一括で置き換えるプロシージャです。
Option Explicit
Sub Main()
‘ ==========================================
‘ 【定数定義】 ここを用途に合わせて書き換えてください
‘ ==========================================
Const NEW_PART_PATH As String = “C:\MyFolder\New_Standard_Part.sldprt” ‘ 新しい部品のフルパス
Const TARGET_PART_NAME As String = “Old_Standard_Part-1” ‘ 置換対象のコンポーネント名（FeatureManagerツリー上の名前）
‘ ==========================================
‘ オブジェクトの宣言
‘ ==========================================
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssDoc As SldWorks.AssemblyDoc
Dim swRootComp As SldWorks.Component2
Dim targetComp As SldWorks.Component2
Dim vCompArr As Variant
Dim boolstatus As Boolean
Dim lErrors As Long
Dim lWarnings As Long
‘ ==========================================
‘ 1. アプリケーションとドキュメントの取得
‘ ==========================================
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
‘ ==========================================
‘ 2. ルートコンポーネント（アセンブリ自身）の取得
‘ ==========================================
Set swRootComp = swAssDoc.GetRootComponent3(True)
If swRootComp Is Nothing Then
MsgBox “アセンブリのルート構造を取得できませんでした。”, vbCritical, “エラー”
Exit Sub
End If
‘ ==========================================
‘ 3. 対象コンポーネントの特定と配列化
‘ ==========================================
‘ ReplaceComponentsメソッドは「コンポーネントの配列」を要求するため、対象を特定して配列に格納します
Set targetComp = FindComponent(swRootComp, TARGET_PART_NAME)
If targetComp Is Nothing Then
MsgBox “指定された置換対象の部品が見つかりません: ” & TARGET_PART_NAME, vbExclamation, “警告”
Exit Sub
End If
‘ Variant型の配列にターゲットを格納
Dim comps(0) As Object
Set comps(0) = targetComp
vCompArr = comps
‘ ==========================================
‘ 4. 運命の置換処理を実行 (ReplaceComponents)
‘ ==========================================
‘ 引数: (部品配列, )?. 外部参照オプション, 新ファイルのパス, 合致関係を維持するか(True/False)
boolstatus = swAssDoc.ReplaceComponents( _
vCompArr, _
NEW_PART_PATH, _
True, _ ‘ 全てのインスタンスを置き換えるか（今回は単一だがTrue推奨）
True ‘ 合致関係（メイト）を維持する
)
‘ ==========================================
‘ 5. 結果の判定と画面更新
‘ ==========================================
If boolstatus Then
swModel.WindowRedraw ‘ 画面を最新の状態に再描画
MsgBox “部品の置換が正常に完了しました！”, vbInformation, “成功”
Else
MsgBox “置換処理に失敗しました。ファイルパスや合致の状態を確認してください。”, vbCritical, “エラー”
End If
End Sub
‘ ==============================================================================
‘ 【補助関数】 再帰的にアセンブリツリーを走査して指定名のコンポーネントを探す関数
‘ ==============================================================================
Private Function FindComponent(ByVal parentComp As SldWorks.Component2, ByVal searchName As String) As SldWorks.Component2
Dim vChildren As Variant
Dim i As Long
Dim childComp As SldWorks.Component2
Dim foundComp As SldWorks.Component2
vChildren = parentComp.GetChildren
If IsEmpty(vChildren) Then Exit Function
For i = LBound(vChildren) To UBound(vChildren)
Set childComp = vChildren(i)
‘ Component2.Name2 は “Part1-1<1>” のようなインスタンス名を返す
If UCase(childComp.Name2) = UCase(searchName) Then
Set FindComponent = childComp
Exit Function
End If
‘ サブアセンブリがある場合はさらに深く潜る（再帰呼び出し）
Set foundComp = FindComponent(childComp, searchName)
If Not foundComp Is Nothing Then
Set FindComponent = foundComp
Exit Function
End If
Next i
Set FindComponent = Nothing
End Function
—
3. コードのキモをエンジニア目線で解説！
ここがこのコードの「美味しい部分」です。初学者が躓きやすいポイントを噛み砕いて解説します。
① `GetRootComponent3` と再帰探索の組み合わせ
アセンブリの中には、サブアセンブリ（子アセンブリ）が何階層も入っていることが珍しくありません。
メインのアセンブリ直下にある部品なら簡単に見つかりますが、深い階層にある部品を狙い撃ちするためには、補助関数 `FindComponent` のような「ツリーの深くまで自動で潜っていく再帰処理（Recursive）」が不可欠です。このパターンを覚えておくと、部品の数え上げや属性変更など、あらゆるアセンブリマクロに応用できます。
② `ReplaceComponents` の引数の魔力
今回の主役であるメソッドのシグネチャをよく見てみましょう。
boolstatus = swAssDoc.ReplaceComponents(vCompArr, NEW_PART_PATH, True, True)
- 第1引数 (`vCompArr`): 置換したいコンポーネントの「配列」を要求します。単体であっても配列に包んで渡すのがSolidWorks APIのルールです。
- 第3引数 (`True`): 同じ構成部品のインスタンス全てを置き換えるかどうかのフラグです。
- 第4引数 (`True`): ここが最重要！ 合致関係（メイト）を保持するかどうかを指定します。ここを `True` にすることで、面や軸の面ファスナーがそのまま新しいモデルに付け替わります。
—
4. 現場でよくあるエラーと回避のチェックリスト
マクロを実行して「あれ、動かない？」と思ったときは、以下のチェックリストを順に確認してください。
1. ファイルパスの文字化け・存在確認
- `NEW_PART_PATH` に指定したパスに、本当にそのファイルは存在しますか？ ネットワークドライブの場合、パスの記述ミス（円マークの抜けなど）に注意してください。
2. コンポーネント名の指定ミス
- `TARGET_PART_NAME` には、FeatureManagerデザインツリーに表示されているインスタンス名（例: `Bolt-1<1>` など）を指定する必要があります。ファイル名（例: `Bolt.sldprt`）ではない点に注意してください。
3. 合致（メイト）の破綻
- 新しいモデルの形状が古いのと全く異なりすぎる場合（例えば、合致に使っていた面や穴が消えているなど）、APIが合致を維持できずに置換が失敗することがあります。置換前後のモデルのトポロジー（形状のつながり）はある程度一致させておくのが、CADエンジニアの知恵です。
—
まとめ
今回は、`IComponent2.ReplaceComponents` を使ったアセンブリ構成部品の一括置換について解説しました。
「マクロの記録」では絶対に作れない、現場の構造を理解したスマートなコードです。これをベースに、エクセルから型式リストを読み込んで一括置換をループ処理させるように発展させれば、あなたの設計業務の効率は10倍、いや100倍に跳ね上がります。
「ここをもっとこうしたい」「こんなエラーが出るんだけどどうすればいい？」といった疑問があれば、いつでもエンジニア仲間として頼ってくださいね。
SolidWorks VBAをマスターして、面倒な定型作業はすべてプログラムに片付けさせましょう！それでは、次の極限の知見でお会いしましょう。
