SolidWorks VBAを掌握する極限の知見
【上級プロ】アセンブリの干渉チェック（InterferenceDetection）のVBA自動実行と結果のCSV出力
設計プロセスの終盤、最もエンジニアの精神を摩耗させる作業は何か。それは、数千点に及ぶアセンブリモデルの目視による干渉チェック、あるいは場当たり的な手動での干渉確認作業である。
「設計変更の連鎖により、隠れた箇所でジオメトリが交差している」
「図面化の土壇場で干渉が見つかり、モデリングのツリーを遡るハメになった」
この種のヒューマンエラーは、個人の注意力に依存している時点でシステムとして破綻している。SolidWorks APIが提供する `ModelDocExtension::InterferenceDetectionMgr` を極限まで使い倒し、VBAからアセンブリの干渉を完全自動スキャン。衝突している部品のペア名、空間座標、そして侵入量を構造化データ（CSV）として吐き出すプロ仕様の自動化ソリューションをここに提示する。
—
1. アセンブリ干渉チェックにおけるAPIアーキテクチャの真実
多くの初学者は、干渉チェックを単に「コマンドの実行」と捉えるが、それは大きな誤りだ。SolidWorksの内部で何が起きているかを理解しなければ、大規模アセンブリを扱った瞬間に「メモリリークによる強制終了（VBAの突然の沈黙）」の洗礼を受けることになる。
`InterferenceDetectionMgr` のライフサイクルとメモリ管理
干渉チェックマネージャーは、アセンブリドキュメントの拡張機能（`ModelDocExtension`）から取得する。このオブジェクトは背後で膨大な幾何学的計算（B-Repのブール演算）をC++のネイティブレイヤーで実行する。
VBAからこれを操作する際の鉄則は以下の3点だ。
1. オブジェクトの明示的なスコープ管理と破棄: 生成したCOMオブジェクトは、処理が終わった瞬間に `Set = Nothing` で解放し、ガベージコレクションの負担を最小限にする。
2. 非表示コンポーネントの除外: 見えていない、あるいは抑制されている（Suppressed）コンポーネントを計算対象に含めると、計算時間が幾何級数的に跳ね上がるだけでなく、無駄なメモリを消費する。
3. 貫通・接触の許容差（Tolerance）の適切な設定: 浮動小数点の丸め誤差による「偽陽性（False Positive）」を防ぐため、実用的な最小許容差をコード側で明示的にコントロールする。
—
2. 実装コード：完全自動干渉スキャナー
以下のコードは、実務の現場で即座に稼働させられるよう、エラーハンドリングとファイルI/Oの最適化を組み込んだプロダクションレベルのマクロである。
Option Explicit
‘ ==============================================================================
‘ 伝説のチーフアーキテクトによる実装: アセンブリ干渉自動スキャン＆CSV出力
‘ ==============================================================================
Sub ExportAssemblyInterferenceToCSV()
Dim swApp As SldWorks.SldWorks
Dim swAssm As SldWorks.AssemblyDoc
Dim swModel As SldWorks.ModelDoc2
Dim swExt As SldWorks.ModelDocExtension
Dim swInterferenceMgr As SldWorks.InterferenceDetectionMgr
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
‘ 1. ドキュメントの整合性チェック
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 swExt = swModel.Extension
‘ 2. 干渉チェックマネージャーの取得
Set swInterferenceMgr = swExt.CreateInterferenceDetectionMgr()
If swInterferenceMgr is Nothing Then
MsgBox “干渉チェックマネージャーの初期化に失敗しました。”, vbCritical
Exit Sub
End If
‘ 3. 干渉検出オプションの設定（プロ仕様のチューニング）
With swInterferenceMgr
.TreatCoincidenceAsInterference = False ‘ 面の接触は干渉とみなさない
.IncludeMultiBodyPartCollisions = True ‘ マルチボディ部品内の干渉も検出
.MakeSubAssembliesComponents = False ‘ サブアセンブリは単一ユニットとして扱わず、中の部品まで展開
.IgnoreHiddenBodies = True ‘ 非表示ボディは計算から除外（パフォーマンス最適化）
.Silent = True ‘ ダイアログを出さずにバックグラウンド実行
End With
‘ 4. 干渉計算の実行
Dim vComponentsList As Variant
vComponentsList = swAssm.GetComponents(False) ‘ 全コンポーネント取得
Dim interferenceCount As Long
interferenceCount = swInterferenceMgr.Run()
If interferenceCount < 0 Then MsgBox "干渉計算中にエラーが発生しました。", vbCritical Set swInterferenceMgr = Nothing Exit Sub End If If interferenceCount = 0 Then MsgBox "干渉は検出されませんでした。設計は正常です。", vbInformation, "結果" swInterferenceMgr.Done Set swInterferenceMgr = Nothing Exit Sub End If ' 5. 結果の取得と構造化データ（CSV）への出力 Dim vInterferenceList As Variant vInterferenceList = swInterferenceMgr.GetInterferences() swInterferenceMgr.Done ' マネージャーのセッションを終了（最重要：メモリ解放の前提条件） Set swInterferenceMgr = Nothing ' CSVファイルのパス生成（アセンブリと同階層にタイムスタンプ付きで出力） Dim fso As Object Dim ts As Object Dim csvPath As String Dim modelPath As String modelPath = swModel.GetPathName If modelPath = "" Then modelPath = "C:\" ' 未保存の場合はCドライブ直下（実運用ではフォルダー選択ダイアログを推奨） Else modelPath = Left(modelPath, InStrRev(modelPath, "\") - 1) End If Dim timeStamp As String timeStamp = Format(Now, "yyyymmdd_hhnnss") csvPath = modelPath & "\InterferenceReport_" & timeStamp & ".csv" Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(csvPath, True, False) ' Shift-JISまたはANSI出力（Excel互換） ' CSVヘッダーの書き込み ts.WriteLine "No,Component1,Component2,Volume(m^3)" Dim i As Long Dim swInterferenceObj As SldWorks.Interference Dim comp1 As SldWorks.Component2 Dim comp2 As SldWorks.Component2 Dim compNames1 As String Dim compNames2 As String Dim intVol As Double For i = 0 To UBound(vInterferenceList) Set swInterferenceObj = vInterferenceList(i) ' 干渉している2つの部品を取得 Set comp1 = swInterferenceObj.ComponentByIndex(0) Set comp2 = swInterferenceObj.ComponentByIndex(1) If Not comp1 Is Nothing Then compNames1 = comp1.Name2 Else compNames1 = "不明(アセンブリールート)" End If If Not comp2 Is Nothing Then compNames2 = comp2.Name2 Else compNames2 = "不明(アセンブリールート)" End If ' 干渉体積の取得 intVol = swInterferenceObj.Volume ' CSV行の書き込み（カンマ区切り、ダブルクォーテーションで囲む） ts.WriteLine (i + 1) & "," & _ """" & compNames1 & """," & _ """" & compNames2 & """," & _ intVol Next i ts.Close ' 6. オブジェクトの徹底的な解放（メモリリーク防止） Set ts = Nothing Set fso = Nothing Set swModel = Nothing Set swAssm = Nothing Set swApp = Nothing MsgBox "干渉チェックが完了しました。" & vbCrLf & _ "検出件数: " & interferenceCount & "件" & vbCrLf & _ "出力先: " & csvPath, vbInformation, "自動化完了" End Sub ---
3. レガシー環境・大規模アセンブリにおけるシステム保守の知見
上記コードはシンプルかつ堅牢であるが、数万点規模の超大型アセンブリ（プラント設計や自動車のフルビークルモデルなど）を扱う場合、そのままではWindowsのヒープ領域を圧迫するか、タイムアウトを引き起こす。シニアエンジニアが現場で直面するトラブルと、その対策を記す。
1. タイムアウトとUIスレッドのブロック回避
SolidWorksはシングルスレッドベースのジオメトリカーネル（Parasolid）をコアに持っているため、重い干渉計算を実行している最中はSolidWorks全体が「応答なし」状態になる。
外部のPDMシステムや他システムと連携させるバッチ処理としてこれを組み込む場合、Windows APIの `Sleep` や `DoEvents` を適切に挟む、あるいはVB.NETへ移行してタスク非同期処理（`Async/Await`）を実装するアーキテクチャへのリファクタリングを視野に入れるべきだ。
2. マルチボディ環境におけるコンポーネント名の解決
SolidWorksでは、単一の部品ファイル（`.sldprt`）内に複数のソリッドボディが存在する場合がある（マルチボディモデリング）。
APIから返される `Component` オブジェクトはファイル単位であるため、同一部品内の異なるボディ同士の干渉を正確に特定するには、`Interference` オブジェクトから個別のボディ（`Body2`）を抽出し、それぞれの名称やプロパティをハンドリングする拡張ロジックが必要となる。必要に応じて以下のプロパティの活用を検討せよ。
- `SwInterference.BodyByIndex(0)`
- `SwInterference.TotalIntersectionVolume`
—
4. システム間連携（PLM / 帳票システムへのブリッジ）
このVBAマクロによって生成されたCSVファイルは、単に人間が目視確認するためだけのものではない真価がある。
[SolidWorks Assembly]
↓ (VBA自動実行)
[InterferenceReport.csv]
↓ (社内ニッチサーバーのWatcherスクリプト等で検知)
[PLM / データベース / Redmine等のチケット起票システム]
設計変更のたびにこのマクロを夜間バッチ、あるいは設計者のチェックイン時フックとして走らせることで、「干渉ゼロ」を担保した状態でなければ下流工程（CAMやCAE、製造）にデータが流れない強制力をシステム的に持たせることが可能になる。
手動による「うっかりミス」の時代は終わった。APIを掌握し、幾何学的検証をコードの支配下に置くことこそが、真にモダンなエンジニアリングの姿である。
