【実務・中級編】【上級プロ】アセンブリ内の干渉チェック結果(Collision Detection)の空間座標データをパースし、3D空間上の衝突位置にマーカーパーツを自動配置 – SolidWorks VBA解析バイブル

スポンサーリンク

【SolidWorks API極致】干渉部位を3D空間に可視化せよ:Collision Detectionの深淵と自動マーカー配置の設計術

設計者の多くが「干渉チェック」を単なるレポート機能だと思い込んでいる。しかし、エンジニアリングの最前線に立つ我々にとって、それは「設計の矛盾を暴き出す座標データ」という宝の山だ。

膨大なアセンブリの中で、レポートのテキストを読み込み、3D空間上のどこが衝突しているかを探す作業は、もはや原始的と言わざるを得ない。今回は、SolidWorks APIを叩き、干渉箇所に即座に「マーカーパーツ」を自動配置する、攻撃的な自動化手法を伝授する。

1. なぜ「干渉結果」のパースが難解なのか

SolidWorksの `IAssemblyDoc::Interference` メソッドは、単純な座標を返さない。このメソッドが返すのは `Interference` オブジェクトの配列であり、そこから実際の「干渉ボリューム」や「衝突点(Contact Point)」を抽出するには、空間ベクトル計算とオブジェクトのライフサイクル管理が不可欠だ。

初心者が陥る罠は「ループ内でオブジェクトを生成し続け、メモリをリークさせる」こと。今回は、それを回避する堅牢な構造を提示する。

2. 開発の要諦:堅牢なアーキテクチャ設計

1. 静的解析の回避: 干渉チェックは重い。必ず `AssemblyDoc` の `IInterferenceDetectionMgr` を使用せよ。
2. マーカーの管理: マーカーは「一時的なダミーパーツ」として生成し、次回実行時に一括削除するルーチンを組み込むこと。これにより、アセンブリがゴミパーツで溢れるのを防ぐ。
3. 座標系の変換: `MathPoint` や `MathVector` オブジェクトの扱いを誤ると、アセンブリと構成部品のローカル座標が混在して爆発する。常に `Transform` オブジェクトを介在させるのが鉄則だ。

3. 実践:衝突箇所にマーカーを自動配置するVBAコード

以下のコードは、アクティブなアセンブリ内の干渉を検出し、その重心座標に「赤色の球体」を生成するプロトタイプだ。

‘ 必要な参照設定: SolidWorks 20xx Type Library
Option Explicit

Sub GenerateInterferenceMarkers()
Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc
Dim swIntMgr As SldWorks.InterferenceDetectionMgr
Dim vInterferences As Variant
Dim i As Integer

Set swApp = Application.SldWorks
Set swAssy = swApp.ActiveDoc

‘ 1. 干渉チェックのセットアップ
Set swIntMgr = swAssy.InterferenceDetectionMgr
swIntMgr.CreateInterferenceGroup

‘ 2. 干渉検出実行
vInterferences = swIntMgr.GetInterferences

If IsEmpty(vInterferences) Then
MsgBox “干渉は見つかりませんでした。”
Exit Sub
End If

‘ 3. 干渉箇所へのマーカー配置
For i = 0 To UBound(vInterferences)
Dim swInterference As SldWorks.Interference
Set swInterference = vInterferences(i)

‘ 干渉箇所の中心座標を取得
Dim vCentroid As Variant
vCentroid = swInterference.Centroid

‘ 4. マーカー生成(別メソッド呼び出し)
Call PlaceMarkerAt(vCentroid(0), vCentroid(1), vCentroid(2), swAssy)
Next i

swIntMgr.DeleteInterferenceGroup
End Sub

Private Sub PlaceMarkerAt(x As Double, y As Double, z As Double, swAssy As SldWorks.AssemblyDoc)
‘ 簡易的に新規パーツを作成して配置するロジック
‘ 実務では事前に用意した「Marker.SLDPRT」を挿入する方が効率的
Dim swComp As SldWorks.Component2
Set swComp = swAssy.AddComponent(“C:\Lib\Marker_Red.SLDPRT”, x, y, z)

‘ 位置固定(FIX)
swComp.Select2 False, 0
swAssy.FixComponent
End Sub

4. プロダクション環境での重要注意点

ファイルパスと依存関係

`AddComponent` で外部パーツを呼び出す際、パスをハードコーディングするのは避けろ。設定ファイル(XMLやJSON)から読み込むか、環境変数で管理すること。これが保守性の分かれ目だ。

データベース連携のヒント

もしこの結果をPLMやExcelの不具合管理リストへ自動連携させたいなら、`swInterference.Components` から構成部品名を抽出し、`CustomPropertyManager` を使って「干渉フラグ」を書き込む機能を追加せよ。これにより、誰がどのパーツを修正すべきかが一目瞭然となる。

パフォーマンスを殺さないために

大規模アセンブリで干渉チェックを行うと、数分以上固まることがある。ユーザーに「処理中」であることが伝わるよう、`swApp.SendMsgToUser` やステータスバーの更新を適宜挟むのが、プロのUI/UX設計だ。

最後に:エンジニアへの提言

自動化とは、単にマウス操作を代替することではない。「設計者が思考すべき本質的な領域(形状の妥当性)に集中させるために、ノイズを取り除くこと」だ。

このコードをベースに、自社の設計ルールに合わせてカスタマイズを重ねてほしい。君たちが書く数行のコードが、数千時間の工数を削減し、製品のクオリティを底上げすることを期待している。

さあ、アセンブリの深淵へ潜り、干渉という名のバグを可視化せよ。

タイトルとURLをコピーしました