【上級プロ】IComponent2インターフェースの完全攻略：マトリクス演算によるアセンブリ位置・姿勢の自由自在な変更
SolidWorks VBAの自動化において、アセンブリ内の部品配置は長年のボトルネックであった。
多くの開発者は、標準の「合致（Mate）」機能のAPI群（`IAssemblyDoc::AddMate5` など）をVBAから駆動させようとして悪戦苦闘する。しかし、考えてみてほしい。大量の部品を動かすたびに幾何拘束のソルバーを走らせるアプローチは、計算コストの観点から見てあまりにも非効率であり、何より「合致エラー」という予期せぬ例外に足元をすくわれる。
真のシニアエンジニア、あるいは極限のパフォーマンスを追求するアーキテクトが選択すべき手法は一つしかない。「数学的保証のある変形マトリクス（Transform）を直接操作し、ソルバーを介さずに一撃で空間座標を書き換える」ことだ。
今回は、`IComponent2` インターフェースと `MathTransform` オブジェクトを完全掌握し、アセンブリの配置・姿勢制御を完全に支配するための極限の知見を授ける。
—
1. なぜ「合致（Mate）」ではなく「マトリクス演算」なのか？
アセンブリ自動化における最大の敵は、「ソルバーの再計算オーバヘッド」と「トポロジー変更に伴う不安定性」である。
- 合致ベースのアプローチ:
面や軸の参照関係を維持するため、部品が追加・移動されるたびにSolidWorksの重い幾何学ソルバーが走る。大規模アセンブリではこれが致命的な処理遅延（数分〜数十分のフリーズ）を引き起こす。
- マトリクスベースのアプローチ（今回解説）:
部品のワールド座標系（あるいは親コンポーネントに対する相対座標系）を、4×3（内部的には16要素）の同次変換行列で直接定義する。ソルバーを通さないため、数千点の部品であってもミリ秒単位で一括配置が可能となる。
しかし、この手法には代償がある。「数学的ミスがそのまま致命的な形状崩壊につながる」ことだ。回転マトリクスの直交性や単位行列のスケール維持など、空間幾何学の基礎が頭に入っていなければ、部品が歪んだり宇宙の彼方に吹っ飛んだりする。これから示すコードは、そのリスクを完全に排除し、実務で即座に使える堅牢性を備えている。
—
2. SolidWorksにおけるTransformの内部構造とメモリの罠
SolidWorks APIにおいて、部品の位置と姿勢を保持しているのは `IComponent2::Transform2`（取得）および `IComponent2::SetTransform2`（設定）である。
ここで注意すべきは、返される `MathTransform` オブジェクトは COMオブジェクトのラッパー であり、VBAのガベージコレクションやCOM参照カウントの管理を誤ると、確実にメモリリークやSolidWorks本体の不安定化（クラッシュ）を引き起こすという点だ。
厳格なメモリ管理の鉄則
1. 取得した `MathTransform` や `MathUtility` は、使い終わったら必ず `Set` キーワードで `Nothing` を代入し、参照カウントを即座に解放する。
2. ループ内で `MathTransform` を生成・操作する場合、スコープのライフサイクルを意識し、メモリが肥大化しない構造にする。
—
3. 実装コード：マトリクス演算による配置・姿勢制御エンジン
以下のコードは、指定したアセンブリ内のコンポーネントに対し、
1. 指定軸周りの回転（ラジアン指定）
2. 3次元空間の平行移動（X, Y, Z mm）
を同時に適用し、合致機能を使わずに一瞬で姿勢を書き換える実用プロシージャである。
Option Explicit
‘ =================================================================================
‘ 専門家向け：IComponent2 と MathTransform を用いた高速空間配置エンジン
‘ =================================================================================
Sub AdvancedComponentTransformController()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssm As SldWorks.AssemblyDoc
Dim swComp As SldWorks.Component2
Dim swMathUtil As SldWorks.MathUtility
Dim swTransform As SldWorks.MathTransform
‘ アプリケーション参照の取得
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 swAssm = swModel
Set swMathUtil = swApp.GetMathUtility
‘ 【重要】対象コンポーネントの指定（ここでは例としてアセンブリ内の1番目のインスタンスを取得）
‘ 実務ではコンポーネント名（例: “Part1-1″）で走査・特定することを推奨
Dim vComps As Variant
vComps = swAssm.GetComponents(True)
If IsEmpty(vComps) Then
MsgBox “アセンブリ内にコンポーネントが存在しません。”, vbCritical
Exit Sub
End If
Set swComp = vComps(0) ‘ 最上位の最初のコンポーネント
‘ ————————————————————————-
‘ 変換マトリクスの構築パラメータ
‘ ————————————————————————-
‘ 平行移動ベクトル (単位: メートル！ SolidWorks APIは内部単位でメートルを使用する)
Dim translation(2) As Double
translation(0) = 0.100 ‘ X方向 100mm
translation(1) = 0.050 ‘ Y方向 50mm
translation(2) = 0.000 ‘ Z方向 0mm
Dim swTransVec As SldWorks.MathVector
Set swTransVec = swMathUtil.CreateVector(translation)
‘ 回転軸（例: Z軸周り）と回転角度（ラジアン）
‘ 45度をラジアンに変換: 45 (PI / 180) = 0.785398
Dim rotationAngle As Double
rotationAngle = 0.78539839
Dim rotAxis(2) As Double
rotAxis(0) = 0#
rotAxis(1) = 0#
rotAxis(2) = 1# ‘ Z軸基準
Dim swRotAxisVec As SldWorks.MathVector
Set swRotAxisVec = swMathUtil.CreateVector(rotAxis)
‘ ————————————————————————-
‘ マトリクスの合成処理
‘ ————————————————————————-
Dim vRotData(15) As Double
‘ 簡易的に単位行列ベースのトランスフォームを取得し、回転と移動を適用する
‘ より高度な制御には IMathTransform::Multiply を使用する
‘ 現在のコンポーネントのトランスフォームを取得（相対座標系かワールド座標系か）
Set swTransform = swComp.Transform2
If swTransform Is Nothing Then
‘ 基準トランスフォームが存在しない場合は単位行列を作成
Set swTransform = swMathUtil.CreateTransform(Empty)
End If
‘ 座標変換の適用（回転の付加）
‘ ※実務ではスケーリング（通常1.0）、回転マトリクス、平行移動ベクトルを配列で構築する
Dim swNewTransform As SldWorks.MathTransform
Set swNewTransform = swTransform.Rotate(swRotAxisVec, rotationAngle)
‘ 平行移動の適用
Set swNewTransform = swNewTransform.Multiply(swMathUtil.CreateTransformTranslation(swTransVec))
‘ ————————————————————————-
‘ コンポーネントへの適用とモデルの再構築
‘ ————————————————————————-
Dim boolstatus As Boolean
‘ SetTransform2の引数: Transform, 構成部品のコンテキスト(通常はTrue:全体更新)
boolstatus = swComp.SetTransform2(swNewTransform)
If boolstatus Then
‘ 画面の強制再描画とグラフィックスの更新
swModel.GraphicsRedraw2
MsgBox “コンポーネントの空間配置をマトリクス演算により正常に変更しました。”, vbInformation
Else
MsgBox “コンポーネントの配置変更に失敗しました。トランスフォームが不正です。”, vbCritical
End If
‘ ————————————————————————-
| 徹底的なメモリ解放（COMオブジェクトのリーク防止）
‘ ————————————————————————-
Set swTransVec = Nothing
Set swRotAxisVec = Nothing
Set swTransform = Nothing
Set swNewTransform = Nothing
Set swMathUtil = Nothing
Set swComp = Nothing
Set swAssm = Nothing
Set swModel = Nothing
Set swApp = Nothing
End Sub
—
4. チーフアーキテクトからの実践的警鐘・応用知見
このコードと手法を実務の基幹システムや自動設計ツール（urator / Configurator）に組み込む際、以下の「現場の罠」に直面することになる。プロフェッショナルとして、これらをあらかじめ回避する知見を共有しておく。
① 内部単位系（MKS系）の罠
SolidWorks APIの数値引数は、ドキュメントの設定（mm, g, sなど）に関わらず、内部的には常に「メートル（m）」と「ラジアン（rad）」で処理される。
上のコードで `translation(0) = 0.100` としているのは、100mmを意味している。ここを勘違いして `100` を渡すと、部品がアセンブリの100メートル彼方に吹き飛び、画面上から消失したように見える（実際にはズーム全表示を行えば見えるが、デバッグの大きなロスになる）。
② 外部参照・コンテキストの整合性
サブアセンブリ（下位アセンブリ）に含まれる部品に対してこのマトリクス操作を行う場合、取得する `IComponent2` のパスや親コンポーネント（Context）との関係に注意しなければならない。
トップアセンブリから直接 `.Transform2` を操作すると、サブアセンブリ内部のローカル座標系ではなく、トップアセンブリに対するワールド座標系として強制上書きされる場合がある。多層構造のアセンブリを扱う場合は、マトリクスの掛け合わせ順序（`ParentTransform.Multiply(ChildTransform)`）の数学的順序を厳密に守る必要がある。
③ 大規模アセンブリにおけるパフォーマンス最適化
数千点規模のモデルを一括処理する場合、毎回のループで `GraphicsRedraw2` や `EditRebuild3` を呼んではならない。
処理の開始前に `swApp.GetUserPreferenceToggle(swUserPreferenceToggle_e.swAutoRebuild)` を無効化し、すべてのコンポーネントのマトリクス書き込みを一括で行った後、最後に一回だけモデル全体を再構築・再描画するアーキテクチャにすること。これにより、処理時間が数分から数秒へと劇的に短縮される。
—
結び
合致（Mate）は人間のための機能であり、APIによる超高速・自動化の現場においては時に足枷となる。
数学的モデルである Transform を直接手中に収めた瞬間から、VBAは単なるマクロの域を脱し、「CADの空間を意のままに創り変えるエンジニアリング・エンジン」へと変貌を遂げる。
この知見をあなたのシステムに実装し、旧態依然としたCAD作業のボトルネックを完全に駆逐せよ。
