【上級プロ】IMateEntity2インターフェースの動的構築：面IDの変更に一切依存しない、形状特徴量ベースのロバスト合致生成エンジン
こんにちは。SolidWorks API開発の現場において、数知れないアセンブリ自動化の闇と向き合ってきたチーフアーキテクトの私だ。
日々の業務で、こんな絶望を味わったことはないだろうか？
> 「先週まで完璧に動いていたアセンブリの自動合致マクロが、設計変更（フィーチャーの追加や面IDの振り直し）が入った途端、すべてエラーで爆発した……」
ネット上のサンプルコードによくある、`”Face1@Part1-1″` のようなハードコードされた文字列や、単にインデックス（`SelectByID2`）を叩くだけの脆弱なアプローチ。これらは「動的なモデル変更」に対してあまりにも無力だ。実務の現場において、上流の形状変更によって面IDや内部ポインタが書き換わるのは日常茶飯事である。その度にマクロのコードを書き直すなど、エンジニアの労力の無駄遣いにもほどがある。
今回は、この悪夢を根本から断ち切るための最高峰の解法――`IMateEntity2` インターフェースを用いた形状特徴量ベースのロバスト合致生成エンジンの設計思想と実装を授けよう。
—
1. なぜ従来の合致手法は脆いのか？
SolidWorksのAPI初学者が最初に陥る罠は、GUIの操作をそのままマクロ記録するアプローチだ。
‘ 【絶対にしてはいけないアンチパターン】
boolstatus = Part.Extension.SelectByID2(“Face1@MyPart-1”, “FACE”, 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2(“Face2@MyBase-1”, “FACE”, 0, 0, 0, True, 0, Nothing, 0)
Dim swMate As SldWorks.Mate2
Set swMate = Part.AddMate(swMateType_Coincident, swMateAlign_AlignConstrained, False, 0, 0, 0, 0, 0, 0, 0, 0, False, errorStatus)
このコードの何がクソなのか？
1. 面ID（`Face1`, `Face2`）への依存: フィーチャーの順序が変わるだけでIDは容易に採番し直される。
2. コンテキストの欠如: 「どの面が、どのような幾何学的特徴（円柱の側面、フラットな底面など）を持っているか」を検証せずに選択しているため、意図しない面が選択された場合でもエラーに気づきにくい。
真にロバスト（堅牢）な自動化システムを構築するためには、「名前やIDで探すな、トポロジー（幾何学的特徴）で特定しろ」という鉄則を死守しなければならない。
—
2. IMateEntity2 による動的構築のアーキテクチャ
今回構築するエンジンのコアは、`IMateEntity2` オブジェクトである。このインターフェースを使うことで、選択されたエンティティを単なる「画面上の面」ではなく、合致エンジンに対して直接、論理的な参照として渡すことができる。
さらに、面IDの変動を完全に吸収するため、以下のアルゴリズムを採用する。
1. ボディの走査とエンティティの列挙: 対象コンポーネントからすべての面（Face）を取得する。
2. 幾何特徴量（Geometric Features）によるフィルタリング:
- 平面（Plane）であれば、法線ベクトルや面積、重心座標を評価する。
- 円柱面（Cylinder）であれば、軸の方向ベクトル、半径、長さ等で特定する。
3. IMateEntity2へのバインド: 特定した `Face` オブジェクトを `IModelDocExtension.CreateMateEntity` を介して `IMateEntity2` に昇華させる。
4. 合致の実行: 組み立てられた `IMateEntity2` の配列を `AddMate3` に流し込む。
このアプローチであれば、仮にモデルが再生成（Rebuild）され、内部IDが全とっかえになろうとも、「元の形状の数学的特徴」さえ一致していれば、プログラムは完璧にターゲットを捕捉し続ける。
—
3. プロダクションコード：ロバスト合致生成エンジン
それでは、実務でそのまま組み込めるモジュールを提示する。エラーハンドリングとメモリ管理（COMオブジェクトの適切な解放）を徹底した、プロフェッショナルクオリティのVBAコードだ。
Option Explicit
‘ ==============================================================================
‘ 【プロダクションコード】形状特徴量ベースのロバスト合致生成エンジン
‘ ==============================================================================
Public Sub ExecuteRobustAssemblyMate()
Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントがありません。”, vbCritical
Exit Sub
End If
If swModel.GetType() <> swDocumentASSEMBLY Then
MsgBox “アセンブリドキュメントを開いた状態で実行してください。”, vbCritical
Exit Sub
End If
Set swAssy = swModel
‘ ターゲットコンポーネントの特定（例：BaseとChild）
Dim compBase As SldWorks.Component2
Dim compTarget As SldWorks.Component2
Set compBase = swAssy.GetComponentByName(“BasePart-1”)
Set compTarget = swAssy.GetComponentByName(“PinPart-1”)
If compBase Is Nothing Or compTarget Is Nothing Then
MsgBox “指定されたコンポーネントが見つかりません。アセンブリ構造を確認してください。”, vbCritical
Exit Sub
End If
‘ 1. 特徴量に基づいて「ベース側の底面（平面）」のFaceオブジェクトを動的取得
Dim faceBase As SldWorks.Face2
Set faceBase = FindFaceByGeometry(compBase, swEntityPlane, 0, 0, -1) ‘ 例：下向きの平面を特定
‘ 2. 特徴量に基づいて「ピン側の端面（平面）」のFaceオブジェクトを動的取得
Dim faceTarget As SldWorks.Face2
Set faceTarget = FindFaceByGeometry(compTarget, swEntityPlane, 0, 0, 1) ‘ 例：上向きの平面を特定
If faceBase Is Nothing Or faceTarget Is Nothing Then
MsgBox “条件に合致する幾何エンティティが見つかりませんでした。”, vbCritical
Exit Sub
End If
‘ 3. IMateEntity2 の動的構築
Dim mateEntityBase As SldWorks.MateEntity2
Dim mateEntityTarget As SldWorks.MateEntity2
Set mateEntityBase = swModel.Extension.CreateMateEntity(compBase, faceBase, swMateEntityFace, 0, Nothing)
Set mateEntityTarget = swModel.Extension.CreateMateEntity(compTarget, faceTarget, swMateEntityFace, 0, Nothing)
‘ 4. 合致の実行（一致合致: Coincident）
Dim errCode As Long
Dim status As Boolean
‘ ※注意: AddMate3の引数仕様に準拠
Dim entities(1) As Object
Set entities(0) = mateEntityBase
Set entities(1) = mateEntityTarget
‘ 合致作成の実行
status = swAssy.AddMate3( _
swMateType_Coincident, _
swMateAlign_AlignConstrained, _
False, _
0.001, 0.001, 0.001, _
0, 0, 0, 0, 0, _
False, _
errCode)
If status Then
MsgBox “ロバスト合致の生成に成功しました！”, vbInformation
Else
MsgBox “合致の生成に失敗しました。エラーコード: ” & errCode, vbCritical
End If
‘ クリーンアップ（メモリリーク防止）
Set mateEntityBase = Nothing
Set mateEntityTarget = Nothing
Set faceBase = Nothing
Set faceTarget = Nothing
Set swModel = Nothing
Set swAssy = Nothing
End Sub
‘ ==============================================================================
‘ 幾何特徴量（法線ベクトル等）をもとに最適な面を動的に探索するヘルパー関数
‘ ==============================================================================
Private Function FindFaceByGeometry(ByVal swComp As SldWorks.Component2, ByVal entityType As Long, ByVal targetNx As Double, ByVal targetNy As Double, ByVal targetNz As Double) As SldWorks.Face2
Dim swModelDoc As SldWorks.ModelDoc2
Set swModelDoc = swComp.GetModelDoc2()
Dim swBodyPrs As SldWorks.Body2
Dim swBody As SldWorks.Body2
Dim vBodies As Variant
‘ ボディの取得（マルチボディ対応）
vBodies = swComp.GetBodies2(swAllBodies)
If IsEmpty(vBodies) Then Exit Function
Set swBody = vBodies(0) ‘ 簡略化のため第一ボディを対象
Dim swFace As SldWorks.Face2
Set swFace = swBody.GetFirstFace()
Do While Not swFace Is Nothing
Dim swSurface As SldWorks.Surface
Set swSurface = swFace.GetSurface()
‘ 平面（Plane）判定
If swSurface.IsPlane() Then
Dim vParams As Variant
vParams = swSurface.PlaneParams()
‘ PlaneParams: (Nx, Ny, Nz, X0, Y0, Z0) 等の法線と通る点
Dim nx As Double, ny As Double, nz As Double
nx = vParams(0)
ny = vParams(1)
nz = vParams(2)
‘ ベクトルの方向が一致するか判定（許容誤差 0.001）
If Abs(nx – targetNx) < 0.001 And Abs(ny - targetNy) < 0.001 And Abs(nz - targetNz) < 0.001 Then
Set FindFaceByGeometry = swFace
Exit Function
End If
End If
Set swFace = swFace.GetNextFace()
Loop
Set FindFaceByGeometry = Nothing
End Function
---
4. チーフアーキテクトからの実務運用上のアドバイス
1. データベースや外部JSON連携への発展:
今回のサンプルではハードコードした法線ベクトル（`0, 0, -1`等）で判定しているが、実務の高度な自動化においては、CSVや外部データベース、あるいはアセンブリと一緒に管理するJSONメタデータから「このパーツのこの合致面はこういう特徴量を持つ」という情報を動的にロードするアーキテクチャに昇華させるべきだ。これにより、完全なノーコード・メタデータ駆動型アセンブリラインが完成する。
2. COMオブジェクトの寿命管理:
VBAにおけるSolidWorks API開発では、ループ内で面やボディを取得する際に明示的な解放を行わないと、激しいメモリリークを引き起こす。特に `GetFirstFace` / `GetNextFace` のループ内では、不要になったオブジェクト参照の切断を意識せよ。
総括
「面名が変わったからマクロが壊れました」という言い訳は、今日を限りにチームから排除しなさい。
今回解説した `IMateEntity2` と幾何特徴量による動的特定をマスターすれば、モデルの形状変更がいくら入ろうとも微動だにしない、真にプロフェッショナルな自動化基盤が手に入る。
君たちのコードが、明日からよりロバストで美しいものになることを期待している。
