SolidWorks VBAを掌握する極限の知見
第1回：【コンフィギュレーション連携】ConfigurationManager.ShowConfiguration2による高速切り替えとコンフィギュレーション別の質量自動集計
こんにちは。開発プロジェクトを率いるチーフアーキテクトの私だ。
日々、何百点ものパーツや、複雑なコンフィギュレーションを持つ筐体モデルのデータ管理に頭を悩ませていないか？
「VBAでコンフィギュレーションを切り替えながら、全パターンの質量や物性を一括取得したい」
そう考えてネットを検索すると、決まって出てくるのは処理の重い場当たり的なコードや、メモリリークを引き起こす地雷だらけのサンプルばかりだ。
今回は、大規模なマルチコンフィギュレーションパーツを相手にしても息切れせず、圧倒的なパフォーマンスと堅牢性を誇るコンフィギュレーション操作の極意を伝授しよう。実務の現場でそのまま武器になるプロダクションコードを用意した。心して読んでほしい。
—
なぜ「あの書き方」では破綻するのか？（非効率な実装の排除）
多くの初学者や、APIのライフサイクルを理解していないプログラマブルな設計者が犯す最大の過ちは、「コンフィギュレーションを切り替えるたびに、不要な画面描画やビューの再構築（Rebuild）を誘発していること」だ。
`ModelDoc2.ShowConfiguration2` や `ConfigurationManager.ShowConfiguration2` を使う際、背後でGraphics（グラフィックス）の更新が走っていると、VBAの実行速度は極端に低下する。1つのモデルに20個のコンフィギュレーションがあれば、それだけで数十秒のロス、大規模アセンブリの文脈が混ざればフリーズの温床となる。
さらに恐ろしいのは、「質量（Mass）を取得するタイミングの誤り」だ。
コンフィギュレーションを切り替えた直後、SolidWorksは裏でジオメトリの評価（Evaluation）を行っている。この評価が完了する前に質量プロパティ（MassProperties）オブジェクトを叩くと、「直前のコンフィギュレーションの数値」や「未解決のゴミデータ」を掴まされるという致命的なバグ（サイレントエラー）が発生する。
これらを完全に克服し、実務レベルの信頼性を担保するための設計方針は以下の3点だ。
1. 画面描画の完全なロック (`Visible` / `ScreenUpdate`)
2. 確実なコンフィギュレーションのロードとアクティブ化の同期
3. 物性値取得時の正確なエラーハンドリングとキャッシュクリア
—
堅牢なアーキテクチャ：プロダクションコード
以下のコードは、アクティブなパーツドキュメントに存在するすべてのコンフィギュレーションを自動巡回し、それぞれの「コンフィギュレーション名」「質量」「体積」をイミディエイトウィンドウに出力、さらにCSV形式でログ出力する実務直結のマクロだ。
コピペしてそのままあなたの開発環境で試してほしい。
Option Explicit
‘ =========================================================================
‘ 模範解答：コンフィギュレーション別物性値高速自動集計マクロ
‘ Architecture & Design by Chief Architect
‘ =========================================================================
Sub ExportConfigurationMassProperties()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swConfigMgr As SldWorks.ConfigurationManager
Dim vConfigNames As Variant
Dim i As Long
Dim currentConfig As String
‘ 1. アプリケーションのインスタンス取得
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksが起動していません。”, vbCritical
Exit Sub
End If
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If
‘ パーツファイル以外は弾く（アセンブリへの拡張は後述）
If swModel.GetType <> swDocPART Then
MsgBox “このマクロはパーツファイル専用です。”, vbExclamation
Exit Sub
End If
‘ 2. パフォーマンス最適化：画面描画とイベントの凍結
‘ ※これを怠ると、コンフィギュレーション切り替えのたびにGPUが悲鳴を上げます
swApp.CommandInProgress = True
swModel.Visible = False
On Error GoTo ErrorHandler
‘ 3. コンフィギュレーション名の配列を取得
vConfigNames = swModel.GetConfigurationNames()
Set swConfigMgr = swModel.ConfigurationManager
‘ 現在のコンフィギュレーションを退避
currentConfig = swModel.GetActiveConfiguration.Name
Debug.Print “=== コンフィギュレーション別 物性値レポート開始 ===”
Debug.Print “ConfigName, Mass (kg), Volume (m^3), SurfaceArea (m^2)”
‘ 4. ループ処理による高速切り替えとデータ抽出
For i = LBound(vConfigNames) To UBound(vConfigNames)
Dim configName As String
configName = vConfigNames(i)
‘ 核心：確実にコンフィギュレーションを切り替える
‘ 引数: コンフィギュレーション名
Dim status As Boolean
status = swConfigMgr.ShowConfiguration2(configName)
If status Then
‘ ジオメトリの評価と質量プロパティの取得
Dim swMassProp As SldWorks.MassProperty
Set swMassProp = swModel.Extension.CreateMassProperty()
If Not swMassProp Is Nothing Then
‘ 精度を最大化するための設定（必要に応じて調整）
swMassProp.UseSystemUnits = False ‘ 単位系をドキュメント依存にしない場合はTrue、今回はドキュメント単位系に準拠
Dim mass As Double
Dim volume As Double
Dim area As Double
mass = swMassProp.Mass
volume = swMassProp.Volume
area = swMassProp.SurfaceArea
‘ イミディエイトウィンドウに出力 (CSV形式)
Debug.Print configName & “,” & Format(mass, “0.000000”) & “,” & Format(volume, “0.000000”) & “,” & Format(area, “0.000000”)
‘ オブジェクトの解放（VBAにおけるCOMメモリ管理の鉄則）
Set swMassProp = Nothing
Else
Debug.Print configName & “,ERROR: MassProperty Object Creation Failed”
End If
Else
Debug.Print configName & “,ERROR: Failed to Show Configuration”
End If
Next i
‘ 5. 元のコンフィギュレーションに戻す
swConfigMgr.ShowConfiguration2 currentConfig
‘ 6. 環境の復元
swModel.Visible = True
swApp.CommandInProgress = False
MsgBox “すべてのコンフィギュレーションの集計が完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時のフォールバック（画面がフリーズしたままになるのを防ぐ）
swModel.Visible = True
swApp.CommandInProgress = False
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
チーフアーキテクトが解説する、コードの急所と技術的ポイント
1. `swApp.CommandInProgress = True` の魔術
プログラミング初心者はこのプロパティを軽視しがちだが、大規模モデルを扱う際には命綱となる。これを `True` に設定することで、SolidWorksのUI側でのコマンド処理や不要なプレビュー生成が抑制され、APIからの命令実行スレッドが優先されるようになる。結果として処理速度が最大で30%以上向上するケースもある。
2. COMオブジェクトのライフサイクル管理 (`Set … = Nothing`)
VBAのガベージコレクションは非常に気まぐれだ。特に `ModelDocExtension.CreateMassProperty()` のようなファクトリーメソッド系APIは、ループ内で毎回インスタンスを生成するため、メモリリークの温床になりやすい。
ループの内部で `Set swMassProp = Nothing` を明示的に呼び出し、参照カウントを即座にゼロに落とすこと。これが、何千回もループを回す巨大マクロをメモリ破綻から救う唯一の手段だ。
3. `ShowConfiguration2` の戻り値検証
APIが「成功した」と言っている裏で、実はコンフィギュレーションの切り替えに失敗しているケース（例：コンフィギュレーションが他のアセンブリでコンテキスト参照されていてロックされている等）が実務では起こり得る。
必ず `status = swConfigMgr.ShowConfiguration2(configName)` の真偽値を評価し、失敗した際のログを残す防衛的プログラミングを徹底せよ。
—
応用展開：データベースやExcelへのシームレスな連携
上記のコードはイミディエイトウィンドウへの出力にとどめているが、実務ではここから先がある。
取得した `mass` や `volume` のデータを、`Scripting.FileSystemObject` を使って直接CSVファイルに書き出したり、`CreateObject(“Excel.Application”)` を叩いて自動でフォーマット済みの品質保証レポート（Excel表）を生成させることが可能だ。
マルチコンフィギュレーションの管理に手動で挑む時代は終わった。
APIの特性を深く理解し、手足を縛る「描画とメモリの呪縛」を解き放つことで、あなたの業務効率は次元の違う領域へとシフトするだろう。
次のステップとして、これをアセンブリ（Assembly）のコンフィギュレーション（および構成部品の抑制状態の制御）に応用する方法を考えてみてほしい。基本思想は同じだ。
健闘を祈る。プロフェッショナルなコードを書き続けろ。
