【実務・中級編】【マルチボディ対応】Body2.GetBodyTypeとBody2.DeleteBodyを用いた、不要な接触ボディの自動判別とクリーンアップ処理 – SolidWorks VBA解析バイブル

【SolidWorks VBA】ブーリアン演算の悲劇を破砕する。`Body2.GetBodyType`とフィーチャ制御による極限のマルチボディクリーンアップ設計

設計自動化の現場において、ブーリアン演算（Combine, Split, Cut等）の後に発生する「意図しない微小なデッドボディ（ゴミ体積）」や「浮遊接触ボディ」は、システムの安定性を脅かす最悪のノイズです。

「画面上では消えているように見えるが、質量プロパティがおかしい」
「図面化やPDMのBOM抽出で、謎のマルチボディとして検出される」
「後続のフィーチャ（フィレットやシェル）が原因不明のエラーで落ちる」

これらのトラブルの根源は、幾何計算の丸め誤差によって発生する体積ほぼゼロのソリッドや、カット残渣です。本記事では、単なるリファレンスのなぞり書きではなく、 SolidWorksの幾何カーネル（Parasolid）とフィーチャーツリーの整合性を保ちながら、不要ボディを自動検知・クリーンアップする堅牢なVBAスクリプトの設計思想と実装を解説します。

—

1. アーキテクチャ設計：なぜ直感的なボディ削除は失敗するのか？

ビギナーのエンジニアが犯しがちな最大の過ちは、「メモリ上のボディ（`Body2`）を直接消去・破棄しようとすること」、あるいは「パラメトリック履歴を無視して要素を削除すること」です。

1.1 パラメトリックツリーとトランジェント（過渡）ボディの厳密な区別

SolidWorksのAPIにおいて、`Body2`オブジェクトには2つの状態が存在します。

1. PartDoc構造に紐づくパラメトリックボディ（ツリー上に存在するソリッド）
2. メモリ上に一時生成されたトランジェントボディ（幾何演算用の純粋な数学オブジェクト）

パーツファイル内の実ボディを直接`Body2`レベルで破壊的な操作を行うと、フィーチャーツリーの参照が崩壊し、モデルが破損（Corrupt）します。実務のプロダクションコードで採用すべき唯一の正しいアプローチは、「不要なボディのポインタを特定し、`FeatureManager.InsertDeleteBody2`を用いてツリー上に『ボディの削除/保持』フィーチャとして履歴を正しく刻む」ことです。

1.2 浮動小数点数演算の罠と閾値（Threshold）の設定

幾何計算において「体積が0であるか」を `Volume = 0` で判定しては絶対にいけません。Parasolidカーネル内部の交差判定精度（通常 $10^{-8} \text{ mm}$ 程度）の限界により、微小なゴミボディは $1.25 \times 10^{-11} \text{ m}^3$ といった極小の幾何構造として生き残ります。

したがって、削除ロジックには絶対的な体積カットオフ閾値（Tolerance Threshold）を導入しなければなりません。

—

2. 実務に耐えうるクリーンアップ・アルゴリズム

処理の流れは以下の通りです。パフォーマンスの低下を防ぐため、画面更新のロックとイベント抑制を組み合わせます。

[開始]
│
├─ 1. 描画・フィーチャー再計算のフリーズ (パフォーマンス極限化)
│
├─ 2. パーツ内の全ボディ列挙 (PartDoc.GetBodies2)
│
├─ 3. ボディタイプのフィルタリング (Body2.GetBodyType == swSolidBody)
│
├─ 4. 幾何特性解析 (Body2.GetMassPropertiesExt2 による体積算出)
│
├─ 5. 判定: [体積 < 閾値] または [特定の接触フラグ] │ └─ 該当ボディを削除対象配列へスタック │ ├─ 6. 該当ボディの選択モデル構築 (ModelDocExtension.MultiSelect2) │ ├─ 7. 『Delete/Keep Body』フィーチャの挿入 (FeatureManager.InsertDeleteBody2) │ └─ 8. 描画解除・モデル再構築 (Rebuild) [終了] ---

3. プロダクショングレードのVBAソースコード

以下のコードは、エラーハンドリング、グラフィック更新の抑制、ミリメートル/メートル単位換算の吸収、およびログ出力を完備したプロダクション仕様です。そのまま標準モジュールに配置して使用できます。

Option Explicit

‘ ==============================================================================
‘ モジュール名: Mod_BodyCleaner
‘ 概要 : 不要な微小デッドボディの自動検出およびパラメトリック削除処理
‘ 開発者 : チーフアーキテクト
‘ ==============================================================================

‘ 体積カットオフ閾値 (単位: 立方メートル)
‘ 1.0e-9 m^3 = 1 mm^3 未満のボディをデッドボディ（ゴミ）とみなす
Private Const VOLUME_THRESHOLD_M3 As Double = 0.000000001

Public Sub CleanUpDeadBodies()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

‘ ドキュメントのバリデーション
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbExclamation, “エラー”
Exit Sub
End If

If swModel.GetType <> swDocPART Then
MsgBox “本処理はパーツドキュメントでのみ有効です。”, vbExclamation, “エラー”
Exit Sub
End If

Set swPart = swModel

‘ 処理性能向上のため、描画更新とUI応答をフリーズ
Dim swModelExt As SldWorks.ModelDocExtension
Set swModelExt = swModel.Extension

Dim oldLock As Boolean
oldLock = swModelExt.LockViewUpdate
swModelExt.LockViewUpdate = True

On Error GoTo ErrorHandler

‘ 1. 全ソリッドボディの取得 (非表示ボディも解析対象に含む場合は False)
Dim vBodies As Variant
vBodies = swPart.GetBodies2(swBodyType_e.swSolidBody, False)

If IsEmpty(vBodies) Then
Debug.Print “[INFO] 解析可能なソリッドボディが存在しません。”
GoTo Finalize
End If

‘ 2. ゴミボディの判別と配列への格納
Dim targetBodies() As SldWorks.Body2
Dim targetCount As Long
targetCount = 0

Dim i As Long
For i = 0 To UBound(vBodies)
Dim swBody As SldWorks.Body2
Set swBody = vBodies(i)

‘ ボディタイプの二重チェック ( GetBodyType )
If swBody.GetBodyType = swBodyType_e.swSolidBody Then
Dim bodyVolume As Double
bodyVolume = CalculateBodyVolume(swBody)

Debug.Print “[PARSER] Body Name: ” & swBody.Name & ” | Volume: ” & bodyVolume & ” m^3″

‘ 閾値判定
If bodyVolume < VOLUME_THRESHOLD_M3 And bodyVolume > 0 Then
ReDim Preserve targetBodies(targetCount)
Set targetBodies(targetCount) = swBody
targetCount = targetCount + 1
Debug.Print ” -> [TARGET DETECTED] 微小ボディとして検出されました。”
End If
End If
Next i

‘ 3. 該当ボディが存在する場合、DeleteBodyフィーチャを挿入
If targetCount > 0 Then
swModel.ClearSelection2 True

‘ ディスパッチオブジェクトのマルチセレクト用配列作成
Dim swSelData As SldWorks.SelectionData
Set swSelData = swModel.SelectionManager.CreateSelectData
swSelData.Mark = 1 ‘ InsertDeleteBody2 では Mark = 1 がボディ選択に対応

Dim selObjects() As Object
ReDim selObjects(targetCount – 1)

For i = 0 To targetCount – 1
Set selObjects(i) = targetBodies(i)
Next i

‘ 括弧指定による確実なマルチセレクト
Dim selectSuccess As Long
selectSuccess = swModelExt.MultiSelect2(selObjects, False, swSelData)

If selectSuccess = targetCount Then
‘ Delete/Keep Body フィーチャの生成 (Deleteオプション = swDeleteBodyOpDelete)
Dim swFeat As SldWorks.Feature
Set swFeat = swModel.FeatureManager.InsertDeleteBody2(True) ‘ True = Delete, False = Keep

If Not swFeat Is Nothing Then
Debug.Print “[SUCCESS] クリーンアップフィーチャが正常に生成されました: ” & swFeat.Name
Else
Debug.Print “[ERROR] InsertDeleteBody2 の実行に失敗しました。”
End If
Else
Debug.Print “[ERROR] ボディのマルチセレクトに失敗しました。”
End If
Else
Debug.Print “[INFO] 削除対象となる不要ボディは検出されませんでした。”
End If

Finalize:
‘ 4. 後処理：モデルの再構築と画面描画のロック解除
swModel.EditRebuild3
swModelExt.LockViewUpdate = oldLock
Exit Sub

ErrorHandler:
Debug.Print “[FATAL ERROR] 処理中に例外が発生しました: ” & Err.Description
swModelExt.LockViewUpdate = oldLock
End Sub

‘ ==============================================================================
‘ 関数名 : CalculateBodyVolume
‘ 概要 : Body2オブジェクトから高精度に体積(m^3)を算出するヘルパー関数
‘ ==============================================================================
Private Function CalculateBodyVolume(ByRef targetBody As SldWorks.Body2) As Double
On Error Resume Next

‘ MassPropertiesの取得（標準メートル単位で返却される）
‘ 引数: 精度フラグ等(通常指定なしでOK)
Dim vMassProps As Variant
vMassProps = targetBody.GetMassPropertiesExt2(0)

If Not IsEmpty(vMassProps) Then
‘ インデックス 3 が Volume (m^3)
CalculateBodyVolume = CDbl(vMassProps(3))
Else
CalculateBodyVolume = 0#
End If
On Error GoTo 0
End Function

—

4. プログラミングとアーキテクチャの解説

現場で「なぜこのコードが必要なのか」を他メンバーに説明できるよう、重要な設計ポイントを解説します。

① `GetBodyType` による堅牢性の確保

`PartDoc.GetBodies2(swSolidBody, False)` でソリッドボディのみを指定して取得しても、サーフェスからソリッドへの昇格途中にある中間ボディや、破損した幾何（Bad Geometry）が紛れ込むリスクがあります。必ずループ内部で `swBody.GetBodyType` を評価し、型安全性を担保しています。

② `GetMassPropertiesExt2` による直接体積計算

モデル全体の質量プロパティ（`ModelDocExtension.GetMassProperties`）を呼ぶと、すべてのボディを再計算するため動作が極めて重くなります。本コードでは `Body2.GetMassPropertiesExt2` を使用し、対象となる特定のボディの幾何データのみをピンポイントで参照しています。これにより、数百のマルチボディが存在する複雑なパーツでも数ミリ秒で走査が完了します。

③ `MultiSelect2` と Mark = 1 の重要性

`InsertDeleteBody2` を呼び出す際、API側は選択セット内のオブジェクトがどのような役割を持つか（削除対象ボディなのか、保持対象ボディなのか）を `Mark` 値で判断します。
`SelectData.Mark = 1` を厳密に割り当てた上で `MultiSelect2` に流し込むことで、UI操作と完全に同等な確実性を持たせています。

—

5. PDM・データベース連携およびエンタープライズ視点での注意点

自動化ツールを社内インフラ（SolidWorks PDMや生産管理データベース）と連携させる場合、以下の運用リスクを排除する必要があります。

1. カスタムプロパティとBOMの不整合回避
削除されずに残った微小ボディが「溶接合体（Weldment）」やカットリスト（Cut-List）に登録されている場合、図面のBOMに数量「1」としてカウントされ、購買データへ誤情報が流出する危険があります。クリーンアップ後に `PartDoc.UpdateWireframeIfRequired` またはカットリスト再計算を実行するトリガーを設けてください。

2. サイレントエラーの検出（ログ設計）
本コードのように `Debug.Print` だけでなく、プロダクション環境ではテキストログまたは社内サーバのデータベース（SQL）へ削除ログ（「どのモデルで何個のデッドボディを消去したか」）を非同期で送信する構造にしておくと、不具合発生時のトレーサビリティが劇的に向上します。

—

結び：コードの美しさは、モデルの美しさに直結する

CADプログラミングにおける優れたVBAスクリプトとは、単に動くだけのものではありません。「CADのグラフィックエンジンに無駄な負荷をかけず」「パラメトリックなモデルツリーを美しく保ち」「将来の変更に強い構造を残す」ツールこそが、本物の業務効率化をもたらします。

ブーリアン演算の残渣に悩まされているプロジェクトがあれば、ぜひこのアーキテクチャを導入し、堅牢な自動化基盤を構築してください。