【上級プロ】IComponent2インターフェースの完全攻略：マトリクス演算によるアセンブリ位置・姿勢の自由自在な変更
開発プロジェクトの現場において、SolidWorksの「合致（Mate）」機能に依存した自動化コードで疲弊していないだろうか？
「部品点数が数千点を超えた途端にソルバーの収束計算が破綻する」「合致エラーのハンドリングに追われて夜が明ける」――もし心当たりがあるなら、あなたの設計アプローチは根本から間違っている。
プロフェッショナルな業務自動化エンジニアが目指すべき領域は、GUIの模倣ではない。数学的真理、すなわち「変形マトリクス（Transform）」によるダイレクトな空間制御だ。
今回は、`IComponent2` インターフェースを完全攻略し、合致を一切使わずに、マトリクス演算のみでアセンブリ内の部品の位置と姿勢をミリ秒単位で支配する極限のテクニックを伝授する。
—
1. なぜ「合致（Mate）」による自動化は実務で破綻するのか？
多くの初学者は、VBAから `IAssemblyDoc::AddMate5` などのメソッドを叩き、アセンブリを組み上げようとする。しかし、これは大規模アセンブリにおいて「自殺行為」に近い。
- ソルバーの重負荷: 合致を追加するたびにSolidWorksのトポロジー・ソルバーが再計算走り、処理速度が幾何級数的に低下する。
- エラーハンドリングの悪夢: 面の参照切れ（Reference Loss）や、過剰拘束（Over-defined）によるエラーは、API側から制御しきれないケースが多い。
- 非決定論的な挙動: どのサーフェイスと面を基準にするかで結果が変わり、デバッグが極めて困難になる。
救世主：Transform（座標変換行列）による直接配置
対して、`IComponent2::Transform2`（または `SetTransformByUse2`）を用いたアプローチは、数学的な3次元アフィン変換（平行移動・回転・スケーリング）を直接コンポーネントに流し込む手法だ。
ソルバーの計算をバイパスするため、圧倒的な高速性と、100%確実な位置決め（予測可能性）を両立できる。
—
2. IComponent2 と 4×4 変換行列の構造
SolidWorks APIにおけるマトリクスは、16個の要素を持つ配列（Double型）で表現される。実態は 4×4 の同次座標変換行列（Homogeneous Transformation Matrix）である。
[ R00 R01 R02 X ]
[ R10 R11 R12 Y ]
[ R20 R21 R22 Z ]
[ 0 0 0 1 ]
- R00〜R22: 回転成分（Rotation Matrix / 3×3）
- X, Y, Z: 平行移動成分（Translation Vector / 単位はメートル［m］）
> ⚠️ 致命的な注意点（APIの罠）
> SolidWorks内部の単位系は常に「メートル（m）」である。VBA側で「mm」のつもりで数値を放り込むと、部品が宇宙の彼方へ吹き飛ぶか、微小すぎて見えなくなる。位置ベクトルは必ず `1000.0` で除算してメートルに換算せよ。
—
3. 【プロダクションコード】マトリクス演算による部品の自由配置
以下のコードは、指定したコンポーネントを「任意の座標（X, Y, Z）」に移動させ、かつ「任意軸まわりに指定角度だけ回転」させた姿勢を、合致を一切使わずに一撃で適用する実用モジュールだ。
実務のデータベース（ExcelやCSV、外部DB）から読み込んだ座標・姿勢データを適用するシーンを想定し、極めて堅牢に設計している。
Option Explicit
‘ =========================================================================
‘ 模範コード: マトリクス演算によるコンポーネントの高速・高精度配置
‘ =========================================================================
Public Sub ExecuteTransformPlacement()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssm As SldWorks.AssemblyDoc
Dim swComp As SldWorks.Component2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
‘ 1. アプリケーション状態のガード
If swModel Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical
Exit Sub
End If
If swModel.GetDocType() <> swDocASSEMBLY Then
MsgBox “アクティブなドキュメントはアセンブリではありません。”, vbCritical
Exit Sub
End If
Set swAssm = swModel
‘ 2. 対象コンポーネントの取得（インスタンス名またはファイル名で特定）
‘ ※実務では外部DBやコレクションからコンポーネント名を取得する
Dim targetCompName As String
targetCompName = “Bracket-1-1” ‘ アセンブリツリー上のコンポーネント名
Set swComp = swAssm.GetComponentByName(targetCompName)
If swComp Is Nothing Then
MsgBox “指定されたコンポーネントが見つかりません: ” & targetCompName, vbCritical
Exit Sub
End If
‘ 3. 変換パラメータの定義（例：X=100mm, Y=50mm, Z=-200mm へ移動、Z軸まわりに45度回転）
Dim posX As Double: posX = 100.0
Dim posY As Double: posY = 50.0
Dim posZ As Double: posZ = -200.0
Dim rotAngleDeg As Double: rotAngleDeg = 45.0
‘ 4. マトリクス生成エンジンの呼び出し
Dim swMathUtils As SldWorks.MathUtility
Dim swTransform As SldWorks.MathTransform
Set swMathUtils = swApp.GetMathUtility
Set swTransform = CreateTransformationMatrix(swMathUtils, posX, posY, posZ, “Z”, rotAngleDeg)
If swTransform Is Nothing Then
MsgBox “変換行列の生成に失敗しました。”, vbCritical
Exit Sub
End If
‘ 5. コンポーネントへマトリクスを適用（親アセンブリ座標系基準）
Dim boolstatus As Boolean
‘ Trueを指定することで、コンポーネントの位置を強制上書きする
boolstatus = swComp.SetTransformByUse2(swTransform)
If boolstatus Then
swModel.GraphicsRedraw2
MsgBox “コンポーネントの位置・姿勢をマトリクス制御で正常に変更しました。”, vbInformation
Else
MsgBox “コンポーネントの変換適用に失敗しました。”, vbExclamation
End If
End Sub
‘ =========================================================================
‘ 内部関数: 任意の位置と軸回転を合成した MathTransform を生成
‘ =========================================================================
Private Function CreateTransformationMatrix(ByVal mathUtil As SldWorks.MathUtility, _
ByVal x_mm As Double, _
ByVal y_mm As Double, _
ByVal z_mm As Double, _
ByVal rotAxis As String, _
ByVal angleDeg As Double) As SldWorks.MathTransform
On Error GoTo ErrorHandler
Dim data(15) As Double
Dim rad As Double
rad = angleDeg (3.14159265358979 / 180.0) ‘ ラジアン変換
‘ 単位行列で初期化
data(0) = 1: data(1) = 0: data(2) = 0
data(3) = 0: data(4) = 1: data(5) = 0
data(6) = 0: data(7) = 0: data(8) = 1
‘ 簡易回転行列の適用（単一軸まわりの回転）
Select Case UCase(rotAxis)
Case “X”
data(4) = Cos(rad): data(5) = -Sin(rad)
data(7) = Sin(rad): data(8) = Cos(rad)
Case “Y”
data(0) = Cos(rad): data(2) = Sin(rad)
data(6) = -Sin(rad): data(8) = Cos(rad)
Case “Z”
data(0) = Cos(rad): data(1) = -Sin(rad)
data(3) = Sin(rad): data(4) = Cos(rad)
End Select
‘ 平行移動成分の設定（SolidWorksの内部単位「メートル」に変換するため 1000 で割る）
data(9) = x_mm / 1000#
data(10) = y_mm / 1000#
data(11) = z_mm / 1000#
‘ スケーリング成分（通常は1.0）
data(12) = 1#
data(13) = 0#: data(14) = 0#: data(15) = 0#
Dim swTransform As SldWorks.MathTransform
Set swTransform = mathUtil.CreateTransform(data)
Set CreateTransformationMatrix = swTransform
Exit Function
ErrorHandler:
Set CreateTransformationMatrix = Nothing
End Function
—
4. プロジェクトを破綻させないための設計思想と注意点
実務の現場でこのコードを展開する際、エンジニアが陥りがちな罠と、それを回避するための知見を共有する。
① 外部データベース（Excel/CSV/JSON）との連携設計
配置座標をハードコーディングしてはならない。CSVやSQLデータベースから「部品名」「X」「Y」「Z」「RX」「RY」「RZ」のレコードを非同期または順次読み込み、マトリクスに流し込むアーキテクチャにせよ。
特に、部品のインスタンス名（ComponentName）は、アセンブリ内で一意である保証がない場合がある（パターン複製された部品など）。その場合は `IComponent2::GetChildren` やコンポーネントの `ID` を用いて厳密にトラッキングすること。
② 固定部品（Fixed Component）との関係
アセンブリの原点に対して最初に配置される「固定されたコンポーネント」に対してマトリクスを適用しようとすると、挙動がおかしくなる、あるいは無視されることがある。
マトリクス操作を行う対象は、原則として「浮動（Float）状態のコンポーネント」でなければならない。コード実行前にコンポーネントが固定されていないかチェックするロジックを入れるのが、プロの防御的プログラミングだ。
③ パフォーマンスチューニング（画面描画の抑制）
数千点の部品を一括配置する場合、ループのたびに画面が再描画されては処理が数十分単位で終わらなくなる。
コードの実行前後に以下のAPIを挟み、SolidWorksのUI描画を完全にロックせよ。
‘ 描画・再計算の凍結
swModel.EditRebuildAll
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swViewDisplayRealView, False
‘ … 大量のトランスフォーム処理 …
‘ 解除
swModel.GraphicsRedraw2
—
総括
合致（Mate）という「人間向けのGUI機能」を自動化の現場で無理やり使おうとすることは、車輪の再発明どころか、わざわざ重い荷物を背負って山を登るようなものだ。
今回解説した `IComponent2` と変換行列（Transform）の組み合わせをマスターすれば、CADの挙動に振り回されることは二度となくなる。数学的アプローチでアセンブリ空間を支配し、真の「超高速・高信頼性エンジニアリング自動化」をあなたの現場に実装してほしい。
