SolidWorks VBA極限攻略：フレキシブル・サブアセンブリをプログラムで支配せよ
SolidWorks APIを扱うエンジニアの多くが、なぜ「アセンブリの自動構築」で躓くのか。その最大の理由は、「コンポーネントの状態（State）がAPIのトランザクションと同期していない」ことにあります。
特に「フレキシブル（Flexible）」設定の制御は、機構解析や動的シミュレーションを自動化する際の鬼門です。今日、この「動的制御のブラックボックス」を解き明かし、貴方の自動化ツールをプロフェッショナルレベルへ引き上げましょう。
—
1. なぜ「フレキシブル設定」は制御が難しいのか？
SolidWorksの `Component2` オブジェクトには、直接的に「フレキシブルにする」という単純なプロパティは存在しません。これは内部的に `swComponentSuppressionState` のような単純なフラグではなく、アセンブリの再構築サイクルにおける「モード設定」として扱われるからです。
多くの初心者は、UI上のクリック操作をそのままコードに落とし込もうとして、`Select` を多用し、結果として「再構築エラー」や「合致の競合」を誘発させます。
守るべき鉄則
1. Selection（選択）に依存しない: `swModel.SelectByID2` をループ内で使うのは、パフォーマンスを劇的に低下させるだけでなく、予期せぬ選択解除によるバグの温床です。
2. Componentの参照をキャッシュせよ: ループ内で何度もコンポーネントを探すな。`GetModelDoc2` へのアクセスを最小限にするのが、SolidWorks API高速化の王道です。
—
2. 実装コード：フレキシブル状態の確実な切り替え
以下のコードは、指定したコンポーネント名（ファイル名やインスタンス名）を基に、そのサブアセンブリのフレキシブル状態をトグルする、極めて堅牢な設計のプロシージャです。
‘ ——————————————————————
‘ コンポーネントをフレキシブル/リジッドに切り替える堅牢な実装
‘ @param swAssy 制御対象のアセンブリドキュメント
‘ @param compName コンポーネント名 (例: “SubAssembly-1”)
‘ @param isFlexible True:フレキシブル, False:リジッド
‘ ——————————————————————
Public Sub SetComponentFlexibility(ByRef swAssy As SldWorks.AssemblyDoc, _
ByVal compName As String, _
ByVal isFlexible As Boolean)
Dim swComp As SldWorks.Component2
Set swComp = swAssy.GetComponentByName(compName)
If swComp Is Nothing Then
Err.Raise vbError, “SetComponentFlexibility”, “コンポーネントが見つかりません: ” & compName
End If
‘ 【重要】APIレベルでの状態変更
‘ swComponentRigid = 0, swComponentFlexible = 1
Dim state As Integer
state = IIf(isFlexible, 1, 0)
‘ コンポーネントの柔軟性設定を更新
‘ 成功時には True を返すため、戻り値のチェックを怠らないこと
Dim success As Boolean
success = swComp.SetFlexible(state)
If Not success Then
Debug.Print “警告: コンポーネントの柔軟性設定に失敗しました。”
End If
‘ 再構築を実行して変更を反映（必須）
swAssy.ForceRebuild3
End Sub
—
3. 実務で「バグらせない」ためのアーキテクチャ設計
ファイル連携とデータベース管理の罠
アセンブリを自動生成・制御する際、最も多いトラブルは「ファイルパスの不整合」です。特にPDM（SolidWorks PDM）環境下では、ファイル名だけで管理するのは危険極まりありません。
- 推奨アプローチ: データベース(SQL等)から情報を引き出す際は、ファイル名ではなく「Configuration名」と「ルートパスの正規化」を組み合わせたキーを使用すること。
- 再構築のタイミング: `ForceRebuild3` は強力ですが、非常に重い処理です。ループ内で何度も実行せず、すべての設定変更が終わった後に「一括で再構築」を行うよう設計してください。
エラーハンドリングの極意
VBAの `On Error Resume Next` を多用するのは素人のやり方です。APIが返す `HRESULT` や `swComponentSuppressionState` の値を正しく拾い、`Err.Number` を活用したフォールバック処理（例：フレキシブル化に失敗したらリジッドに戻してログを残す）を組み込んでください。
—
4. チーフアーキテクトからの助言
「動くコード」を書くことは誰にでもできます。しかし、「明日、別の設計者がメンテナンスしても壊れないコード」を書けるのは選ばれたエンジニアだけです。
1. カプセル化: コンポーネント操作は、必ず専用のクラスモジュール内に閉じ込めてください。
2. ログの可視化: どのコンポーネントが、いつ、どのような意図でフレキシブルに変更されたかをテキストログに出力する習慣をつけてください。これが大規模アセンブリのトラブルシューティングを劇的に短縮します。
貴方の自動化ツールが、単なる「作業の代行」ではなく、設計の標準化を推進する強力な武器となることを期待しています。次回の記事では、`Mate`（合致）の動的生成における「参照エラーを回避するジオメトリセレクション」について深掘りしましょう。
質問があれば、コメント欄にて受け付けます。設計の現場に、論理的解決を。
