【SolidWorks VBA極限解説】SelectByID2の裏切りを制す：戻り値判定とゼロ・クラッシュフォールバック戦略
SolidWorks APIにおける`ModelDoc2.Extension.SelectByID2`は、マクロ開発において避けて通れない最も頻繁に呼び出されるメソッドの一つだ。しかし、このメソッドを「文字列を指定すれば確実に要素を選択してくれる便利関数」と盲信しているうちは、プロの自動化エンジニアとは言えない。
現場の巨大アセンブリ、複雑なコンフィギュレーション、あるいはリビジョン違いのモデルにおいて、`SelectByID2`は前触れもなく沈黙し、あるいは「戻り値として `False` を返す」のではなく、「背後でサイレントエラーを引き起こし、次のフィーチャ操作でマクロ全体を強制終了（または無限の迷宮入り）させる」という挙動を示す。
今回は、このレガシーかつ強力なメソッドのライフサイクルを支配し、選択失敗時に決してマクロを止めない「堅牢なフォールバックアーキテクチャ」を、チーフアーキテクトの視点から徹底的に解説する。
—
1. なぜ `SelectByID2` は失敗するのか？（APIの深層とメモリの現実）
`SelectByID2`のシグネチャを思い出してほしい。
Dim Status As Boolean
Status = Part.Extension.SelectByID2(Name, Type, X, Y, Z, Append, Mark, Callout, SelResponse)
このメソッドが返す `Boolean`（成功: `True` / 失敗: `False`）は、単なる成否のフラグではない。SolidWorksの内部C++コアエンジン（PMP: Part Modeling Processor等）に対するポインタ解決の成否そのものなのだ。
失敗を引き起こす主要因
1. エンティティの動的ID変化: 再計算（Rebuild）のたびに、内部ポインタや一時ID（Tag）が変化し、ハードコードされた名前（例: `”Face<1>“`）が失われる。
2. コンテキストの不一致: 図面ビューやアセンブリのコンポーネント編集モード（Edit Component）において、ルートドキュメントとアクティブドキュメントのポインタが混濁する。
3. グラフィックメモリと画面更新のラグ: バックグラウンドでの描画処理が追いついていない状態で選択を強行すると、APIが対象を視認できずにロストする。
これを `If Status Then` で安易に弾くだけでは、実務の荒波を乗り越えることはできない。「失敗したときにどうリカバリーするか」のセーフティネットが不可欠なのだ。
—
2. 実装パターン：戻り値の厳格評価とフォールバック戦略
以下に、現場のシステム間連携や大規模パーツの自動生成において破綻しない、実用的なVBAコードを提示する。単なるエラー処理ではなく、失敗時の「代替探索ロジック（フォールバック）」を組み込んだアーキテクチャだ。
Option Explicit
Sub ExecuteRobustSelectionDemo()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
‘ オブジェクトの初期化
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If
Set swSelMgr = swModel.SelectionMgr
‘ ターゲット名とタイプ（例：ボス-押し出し1 の上部平面を狙うとする）
Dim targetName As String
Dim targetType As String
targetName = “Boss-Extrude1”
targetType = “BODYFEATURE” ‘ または “FACE”
‘ — 【戦略1】第1次セレクション試行 —
Dim isSelected As Boolean
‘ 画面のちらつき防止と処理速度向上のための最適化（必要に応じてコメントアウト解除）
‘ swModel.Visible = False
isSelected = swModel.Extension.SelectByID2(targetName, targetType, 0, 0, 0, False, 0, Nothing, 0)
If Not isSelected Then
‘ — 【戦略2】フォールバック処理（代替セレクト） —
‘ SelectByID2が失敗した場合、FeatureManagerから直接トラバースしてオブジェクトを救出する
Debug.Print “[Warning] 標準SelectByID2が失敗しました。フォールバックルーチンを開始します: ” & targetName
isSelected = FallbackSelectByTraversal(swModel, targetName, targetType)
If Not isSelected Then
‘ 最終的な安全停止（マクロ全体をクラッシュさせずに優雅に離脱）
MsgBox “致命的なエラー: ターゲット要素 ‘” & targetName & “‘ を完全にロストしました。”, vbExclamation, “自動化システム警告”
GoTo CleanUp
End If
End If
‘ — 選択成功後のメイン処理 —
Debug.Print “選択成功: 処理を継続します。”
‘ ここにフィーチャ編集や寸法変更のロジックを記述
CleanUp:
‘ — メモリの明示的解放（VBA特有のCOM参照リークを防ぐ極意） —
Set swSelMgr = Nothing
Set swModel = Nothing
Set swApp = Nothing
End Sub
/
- 【フォールバック関数】
- SelectByID2が名前解決に失敗した際、FeatureManagerツリーを直接走査して
- 目的のフィーチャオブジェクトを特定し、強制的に選択状態にする。
/
Private Function FallbackSelectByTraversal(ByVal swModel As SldWorks.ModelDoc2, ByVal featName As String, ByVal featType As String) As Boolean
FallbackSelectByTraversal = False
Dim swFeat As SldWorks.Feature
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.Name = featName Then
‘ フィーチャが見つかった場合、そのIDを使って再選択を試みる
Dim swSelData As SldWorks.SelectData
Set swSelData = swModel.Extension.CreateSelectData
‘ Select2 メソッドによる確実なオブジェクト選択
Dim selectSuccess As Boolean
selectSuccess = swFeat.Select2(False, 0) ‘ Append = False, Mark = 0
If selectSuccess Then
FallbackSelectByTraversal = True
Set swSelData = Nothing
Set swFeat = Nothing
Exit Function
End If
End If
‘ 次のフィーチャへ兄弟ポインタを辿る
Dim nextFeat As SldWorks.Feature
Set nextFeat = swFeat.GetNextFeature()
Set swFeat = nextFeat
Loop
Set swFeat = Nothing
End Function
—
3. チーフアーキテクトが教える現場の知見：メモリとパフォーマンスの極限最適化
COMオブジェクトのライフサイクル管理
VBAの裏側では、`Application.SldWorks` から派生するすべてのオブジェクト（`ModelDoc2`, `Feature`, `SelectionMgr` など）がCOMコンポーネントとしてメモリ上に実体を持つ。これらを解放せずに放置すると、特にループ処理やバッチ処理の中でメモリリークを引き起こし、やがてSolidWorks本体がメモリ不足（Out of Memory）で沈没する。
- 鉄則: スコープを抜ける前、あるいはエラーハンドリング（`GoTo CleanUp`）の経路では、必ず `Set xxx = Nothing` を明示的に実行し、参照カウントをデクリメントせよ。
エラーを「握りつぶさない」ログ戦略
フォールバック処理を入れる際、「失敗しても何食わぬ顔で続行する」のはシステム管理者にとって悪夢となる。どの段階で `SelectByID2` が失敗し、どのフォールバックロジックによって救出されたのか、あるいは最終的にどこで破綻したのかを `Debug.Print` や外部テキストログ（FileSystemObject等を使用）に出力する仕組みを必ず実装すること。
—
総括
`SelectByID2` の戻り値判定とフォールバックの欠如は、レガシーなVBAマクロが「不安定で使えない」と評価される最大の原因である。APIの挙動を性善説で捉えるのではなく、「APIはいついかなる時も失敗するものだ」というゼロ・トラスト（常時疑う）の思想をコードに落とし込むこと。
この堅牢性を手に入れた瞬間から、あなたの書くSolidWorks自動化スクリプトは、単なる「お遊びのマクロ」から、工場や設計室を24時間支える「ミッションクリティカルなシステム」へと昇華する。
