【SolidWorks VBA極限解説】動的コンフィギュレーション制御とメモリ最適化の真髄
世に溢れるVBAの入門書やブログ記事は、「動けばいい」という妥協の産物で満ちている。オブジェクトのライフサイクルを無視し、`.Select`の乱用でパフォーマンスを殺し、エラーハンドリングを怠ったコードが、どれほどのエンジニアの時間を奪ってきたことか。
SolidWorks VBAの自動化において、パーツのコンフィギュレーション名を動的に取得し、それに応じてロジックを分岐させる処理は、パラメトリック設計の基盤となる極めて重要なアプローチである。
今回は、単に`GetActiveConfigurationName`メソッドの使い方を解説するのではない。シニアエンジニアや社内システム管理者が知るべき、SolidWorks APIの裏側のメモリ構造、パフォーマンスの限界、そして実務で絶対につまずかないための堅牢な実装パターンを、余すところなく伝授する。
—
1. `GetActiveConfigurationName` の本質とAPI階層構造の罠
初心者向けと銘打ってはいるが、本質を外したコードは現場では一瞬でゴミと化す。まず、SolidWorks APIのオブジェクト階層を正しく理解せよ。
`ModelDoc2` インターフェースの直下にコンフィギュレーション関連のメソッドがあると勘違いしている者が多いが、それはAPI設計の歴史的経緯（レガシーな互換性）に毒されている証拠だ。現代のSolidWorks APIアーキテクチャでは、ドキュメント自体の操作（データ構造）と、アプリケーションとしての拡張機能（UIやコンフィギュレーションなどのメタデータ管理）は、明確に分離されている。
コンフィギュレーション名の取得は、`ModelDoc2.Extension`（つまり `ModelDocExtension` オブジェクト）を介して行われる。
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swExt As SldWorks.ModelDocExtension
Dim configName As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
‘ 厳密なNULLチェック（アーキテクトの基本原則）
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If
‘ Extensionオブジェクトの取得
Set swExt = swModel.Extension
‘ 現在のアクティブコンフィギュレーション名を取得
configName = swExt.GetActiveConfigurationName()
ここで重要なのは、`GetActiveConfigurationName` は Variant型ではなく、明示的なString型を返す という点だ。余計な型変換コストが発生しないため、ループ内で頻繁に呼び出されてもパフォーマンス上のペナルティは最小限に抑えられる。
—
2. 【実戦】コンフィギュレーション名による条件分岐とフィーチャ制御の極意
取得したコンフィギュレーション名（文字列）を条件に、後続の処理を動的に分岐させる。実務では、「Default」「Export_Model」「Draft_Spec」といった命名規則に基づき、フィーチャの抑制状態（Suppress）や寸法値を動的に書き換えるシチュエーションが多々発生する。
以下に、現場の耐障害性をクリアした実用的なVBAコードを示す。
Option Explicit
Sub ExecuteConfigurationBasedAutomation()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swExt As SldWorks.ModelDocExtension
Dim currentConfig As String
‘ 1. アプリケーションおよびドキュメントの安全な取得
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “処理対象のパーツドキュメントを開いてください。”, vbExclamation, “システムエラー”
GoTo CleanUp
End If
‘ パパーツドキュメント以外（アセンブリや図面）を排除する型安全チェック
If swModel.GetType <> swDocPART Then
MsgBox “このマクロはパーツファイル専用です。”, vbCritical, “型不一致”
GoTo CleanUp
End If
Set swExt = swModel.Extension
currentConfig = swExt.GetActiveConfigurationName()
‘ 2. パフォーマンス最適化の基本：画面描画と自動再構築の停止
swApp.Visible = False ‘ 描画負荷軽減の極限アプローチ（必要に応じて）
swModel.EditRebuild3 ‘ 処理前の整合性確保
‘ 3. コンフィギュレーション名に基づく厳密な条件分岐
Select Case UCase(Trim(currentConfig))
Case “DEFAULT”, “STD_PART”
Call ProcessStandardConfiguration(swModel)
Case “EXPORT_MODEL”, “CAM_READY”
Call ProcessExportConfiguration(swModel)
Case Else
MsgBox “未知のコンフィギュレーションです: ” & currentConfig & vbCrLf & _
“処理をスキップします。”, vbInformation, “情報”
End Select
CleanUp:
‘ 4. メモリリークを完全に防ぐためのオブジェクト解放（極めて重要）
Set swExt = Nothing
Set swModel = Nothing
Set swApp = Nothing
MsgBox “処理が正常に完了しました。”, vbInformation
End Sub
‘ — サブプロシージャ群 —
Private Sub ProcessStandardConfiguration(ByRef model As SldWorks.ModelDoc2)
‘ 標準コンフィギュレーション用の処理
Debug.Print “Standard configuration processing…”
‘ 例：特定のフィーチャの抑制解除とパラメータ変更
Dim boolstatus As Boolean
boolstatus = model.Extension.SelectByID2(“Cut-Extrude1”, “BODYFEATURE”, 0, 0, 0, False, 0, Nothing, 0)
If boolstatus Then
model.UnsuppressFeature
End If
model.ClearSelection2 True
End Sub
Private Sub ProcessExportConfiguration(ByRef model As SldWorks.ModelDoc2)
‘ エクスポート用コンフィギュレーション用の処理
Debug.Print “Export configuration processing…”
‘ 例：重いリブやフィレットを抑制して軽量化する
Dim boolstatus As Boolean
boolstatus = model.Extension.SelectByID2(“Fillet1”, “BODYFEATURE”, 0, 0, 0, False, 0, Nothing, 0)
If boolstatus Then
model.SuppressFeature
End If
model.ClearSelection2 True
End Sub
—
3. チーフアーキテクトが警鐘を鳴らす「VBAのメモリ管理とCOMの闇」
VBAを語る上で避けて通れないのが、COM（Component Object Model）オブジェクトの参照カウントとメモリリーク問題である。
SolidWorks VBAで最も多いバグは、マクロの終了時にオブジェクト変数を適切に解放（`Set obj = Nothing`）していないことによるメモリ肥大化や、最悪の場合のSolidWorks本体のクラッシュ（アクセ違反）だ。
ガベージコレクションへの幻想を捨てよ
VBAのランタイムは、変数がスコープを抜けた時に暗黙的に参照カウントをデクリメントするが、SolidWorksのような巨大なCOMサーバーを背負った環境では、この暗黙の解放タイミングは極めて不安定である。特に、モジュールレベル変数や、循環参照が発生するコードにおいては、VBAを終了するまでメモリが解放されないケースが多々ある。
プロのエンジニアであれば、プロシージャの終端（あるいはエラーハンドリングのトラップ先）において、生成した全てのSldWorks関連オブジェクトを逆順で明示的に `Nothing` に代入すべきである。
‘ 解放の正しい順序（生成の逆順）
Set swExt = Nothing
Set swModel = Nothing
Set swApp = Nothing
この泥臭いまでの規律こそが、何千回、何万回と実行される社内自動化バッチを安定稼働させる唯一の防壁となる。
—
4. レガシー環境・システム間連携への拡張
この「コンフィギュレーション名の動的取得と条件分岐」の技術は、単なるSolidWorks単体での自動化に留まらない。
例えば、PDS（Product Data Management）システムやERP（基幹系システム）から、COMオートメーション経由で外部からSolidWorksを操作する際、ヘッドレス（UI非表示）環境でパーツを開いたとする。
外部スクリプト（C#やPython、あるいはWSH）は、現在のパーツがどのコンフィギュレーションの状態にあるかを正確に把握した上で、適切なBOM（部品表）情報を吸い出したり、STEPやIGESへの変換バッチを回さなければならない。
‘ 外部連携を想定した設計思想
‘ VBA内部でコンフィギュレーション名をファイル名やカスタムプロパティと動的に同期させる
Dim propMgr As SldWorks.CustomPropertyManager
Set propMgr = swModel.Extension.CustomPropertyManager(currentConfig)
propMgr.Set2 “ExportStatus”, “Processed”
このように、`GetActiveConfigurationName` で得た文字列をハブとして、プロパティの書き換え、フィーチャの制御、外部システムへのステータス通知をシームレスに繋ぎ合わせる。これが、真に拡張性の高い自動化アーキテクチャの姿である。
—
5. 結びに代えて
SolidWorks VBAは、ただ動くだけのコードを書く場所ではない。APIの仕様を熟知し、裏でうごめくCOMのライフサイクルをコントロールし、保守性とパフォーマンスの極限を追求すること。それこそが、プロフェッショナルな業務自動化エンジニアの存在意義である。
あなたの書くその1行のコードが、明日からの設計現場の生産性を劇的に変える。妥協なきエンジニアリングを続けよ。
