【SolidWorks VBA極限解説】EquationMgrによるパーツ間寸法リンクの動的書き換えと再構築の完全制御
SolidWorks VBAの自動化において、最も気まぐれで、最も開発者を絶望の淵に追い込む領域はどこか。それはジオメトリの生成ではない。「数式マネージャー（EquationManager）を通じたパラメータの動的制御」である。
エクセル設計表や外部JSON/CSVから数値を読み込み、パーツの寸法を書き換えてアセンブリを再構築する――。一見、数行のコードで実現できるように思えるこの処理は、オブジェクトのライフサイクル、COMの遅延バインディング、そしてSolidWorks特有の非同期再構築スレッドの挙動を理解していない限り、必ず「数式の構文エラー（#REF!的崩壊）」や「ゾンビプロセスの発生」という名の牙をむく。
今回は、数式マネージャーのAPI仕様の裏側を暴き、パーツ間寸法リンクの動的書き換えと確実な再構築トリガーを実装するための極限の知見を授ける。
—
1. EquationManagerの深層とアーキテクチャの罠
多くのVBAプログラマは、`Part.GetEquationManager` で取得したインターフェースに対し、無邪気に `SetEquation` メソッドを叩く。しかし、SolidWorksのC++コアエンジンにとって、数式文字列のパース処理は非常に重い同期処理である。
致命的な罠：暗黙の再構築（Rebuild）とインデックスのズレ
`EquationMgr` 配列のインデックスは、数式を追加・削除するたびに動的に変動する。さらに、`SetEquation` を実行した瞬間、SolidWorksはバックグラウンドで依存関係ツリーの検証を試みる。このとき、モデルのトポロジーが整っていない状態で数式を流し込むと、フィーチャのコンテキストが切れ、モデルが「溶解」する。
シニアエンジニアが遵守すべき鉄則は以下の3つだ。
1. 自動評価（Automatic Evaluation）の明示的制御：数式を一括投入する間は、自動再構築を停止する。
2. 完全修飾名（Fully Qualified Names）の使用：グローバル変数や寸法名は、パーツ名やコンフィギュレーション名を含めた厳密な構文で指定する。
3. COMオブジェクトの完全開放：`SldWorks.ModelDoc2` や `EquationMgr` の参照をローカル変数に溜め込まず、スコープを抜ける際に確実に `Nothing` を代入する。
—
2. 実装コード：外部データ駆動型・数式インジェクションエンジン
以下のコードは、外部から取得した連想配列（またはCSV等のデータ）を模した構造体を基に、安全かつ高速に数式マネージャーを書き換え、強制再構築をかける実用的なVBAモジュールである。
エラーハンドリングとメモリ解放のイディオムに注目してほしい。
Option Explicit
‘ ==============================================================================
‘ 域名: SolidWorks VBA 極限自動化アーキテクチャ
‘ テーマ: EquationMgr.SetEquationによる動的数式インジェクションと再構築制御
‘ ==============================================================================
Public Sub ExecuteDynamicEquationInjection()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swEqMgr As SldWorks.EquationMgr
‘ 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 And swModel.GetType <> swDocASSEMBLY Then
MsgBox “対象はパーツまたはアセンブリのみです。”, vbExclamation
Exit Sub
End If
‘ 2. パフォーマンス最適化：画面描画と自動再構築の抑止
swModel.Extension.UseLockedFeatureTree = True
swApp.SetUserPreferenceToggle swDisplayStateEntityHideShow, False ‘ 描画負荷軽減の布石
On Error GoTo ErrorHandler
‘ 3. 数式マネージャーの取得
Set swEqMgr = swModel.GetEquationManager
If swEqMgr Is Nothing Then
Err.Raise 9999, “EquationMgr”, “数式マネージャーの取得に失敗しました。”
End If
‘ 自動評価を一旦オフにする（一括処理によるパフォーマンス向上）
swEqMgr.AutomaticUpdate = False
‘ ————————————————————————–
‘ 4. 数式の動的書き換え・追加フェーズ
‘ ————————————————————————–
‘ ※実務ではここでDictionaryやCollection、外部CSVからデータをループ処理する
Call UpsertEquation(swEqMgr, “\”Length\” = 150.0″, “全体長さの定義”)
Call UpsertEquation(swEqMgr, “\”Width\” = 75.0″, “全体幅の定義”)
Call UpsertEquation(swEqMgr, “\”Hole_Dia\” = \”Width\” 0.2″, “依存関係を持つ数式”)
‘ 自動評価を戻す
swEqMgr.AutomaticUpdate = True
‘ ————————————————————————–
‘ 5. 整合性を担保した強制再構築（ForceRebuild3）
‘ ————————————————————————–
‘ 単なるスモークリビルドではなく、トップレベルからの完全再構築を実行
Dim lErrors As Long, lWarnings As Long
Dim boolstatus As Boolean
‘ ロック解除を先に行う
swModel.Extension.UseLockedFeatureTree = False
‘ 強制リビルド実行 (True = 全アセンブリ・パーツ構造を強制再評価)
boolstatus = swModel.ForceRebuild3(False)
If Not boolstatus Then
MsgBox “数式適用後の再構築で警告またはエラーが発生しました。”, vbExclamation, “警告”
Else
swModel.GraphicsRedraw2
MsgBox “数式のインジェクションとモデルの再構築が正常に完了しました。”, vbInformation, “完了”
End If
CleanUp:
‘ 6. 厳格なメモリ解放 (COMオブジェクトのゾンビ化を防ぐ)
Set swEqMgr = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
‘ 異常系処理
swModel.Extension.UseLockedFeatureTree = False
swEqMgr.AutomaticUpdate = True
MsgBox “予期せぬエラーが発生しました [” & Err.Number & “]: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 補助関数: 数式の存在確認を行い、存在すれば更新、なければ追加を行う (Upsert)
‘ ==============================================================================
Private Sub UpsertEquation(ByRef eqMgr As SldWorks.EquationMgr, ByVal equationStr As String, ByVal comment As String)
Dim i As Long
Dim targetIndex As Long
Dim eqNameParsed As String
targetIndex = -1
‘ 簡易的な変数名抽出（最初の “=” の左側を取得）
Dim splitEq() As String
splitEq = Split(equationStr, “=”)
Dim rawKey As String
rawKey = Trim(Replace(splitEq(0), “”””, “”))
‘ 既存の数式を走査し、同一の変数名/寸法名が存在するかチェック
For i = 0 To eqMgr.GetCount – 1
Dim currentEq As String
currentEq = eqMgr.Equation(i)
If InStr(1, currentEq, rawKey, vbTextCompare) > 0 Then
targetIndex = i
Exit For
End If
Next i
If targetIndex >= 0 Then
‘ 既存の数式を上書き
eqMgr.Equation(targetIndex) = equationStr
Else
‘ 新規数式を追加
eqMgr.Add -1, equationStr
End If
End Sub
—
3. チーフアーキテクトが教える「現場の知見」とトラブルシューティング
このコードを実際のプラント設計や量産品自動設計のパイプラインに組み込む際、必ず直面する壁がある。それらを先回りして解説する。
① 構文エラー（Syntax Error）の静的バリデーション
`EquationMgr.Add` や `SetEquation` は、数式文字列にタイポや全角スペースが含まれているだけで、容赦なく実行時エラーを吐くか、無言で数式を無視する。
- 対策: 外部ファイル（CSV等）から読み込んだ文字列は必ず `Trim` をかけ、ダブルクォーテーションのペアが崩れていないかを正規表現やVBAの `Split` で事前検証するバリデーションレイヤーを挟むこと。
② 大規模アセンブリにおける「コンテキストの喪失」
パーツ単体ではなく、アセンブリ側からパーツのインメモリ上の寸法を駆動（パーツ間リンク / 部品間の数式参照）させる場合、参照先パーツがメモリ上にロードされていなければ（Lightweight状態など）、数式は解決されない。
- 対策: 数式マネージャーを操作する前に、対象となるコンポーネントが完全に解決された状態（Resolved）であることを保証する API (`IComponent2::SetSolveMode` や `OpenDoc6`) の併用が必須となる。
③ COMメモリリークの温床対策
VBAでSolidWorksを操作する際、ドットつなぎのコード（例：`Application.ActiveDoc.GetEquationManager.Add(…)`）を書く開発者は、シニアの基準では「素人」とみなされる。
中間オブジェクトの参照が解放されず、VBAのガベージコレクションが追いつかないままSolidWorksプロセスのメモリが肥大化し、最終的にVBEがクラッシュする。上記のコードのように、すべてのインターフェースを変数に受けて、最後に明示的に `Nothing` を代入する。これがプロフェッショナルの作法である。
—
総括
SolidWorks VBAにおける数式マネージャーの制御は、単なるプロパティの書き換えではない。それはCADの数学的モデルの整合性をプログラムから直接ねじ伏せる、極めて高度な操作である。
今回提供したアーキテクチャ（描画ロック、自動評価の制御、Upsertロジック、厳格なCOM解放）をあなたのシステムに導入すれば、数千点のパーツを持つ複雑な設計自動化基盤であっても、エラーゼロで疾走する堅牢なシステムへと生まれ変わるはずだ。妥協なきコードで、真の自動化を達成してほしい。
