こんにちは！SolidWorks VBAの世界へようこそ。
マクロの記録ボタンを押して自動生成されたコードを眺めて、「よし、動いた！」と喜んでいた時期はもう卒業です。一歩進んで実務で使える自動化ツールを作ろうとしたとき、多くの人が最初に直面する巨大な壁……それが「参照面（サーフェス）のロスト問題」です。
モデルの形状が変わった途端、マクロが「面が見つかりません！」とエラーを吐いて止まってしまう。せっかく作った自動化ツールが、設計変更のたびに壊れては意味がありませんよね。
今回は、中級・実務の現場で必ず直面する「カット押し出し（CutExtrusion）における『サーフェスまで』や『オフセット』指定時の参照面ロストを防ぐスマート参照管理術」を、伝説のチーフアーキテクトである私から、優しくかつ本質的に授けましょう。
ここをクリアすれば、あなたのVBAスキルは確実にプロの領域へ到達します。さあ、一緒に本質を学んでいきましょう！
—
1. なぜ「参照面ロスト」は起きるのか？（SolidWorks APIの闇）
SolidWorksでカット押し出しを行う際、「サーフェスまで（With Surface）」や「オフセット」の終端条件を指定することはよくあります。
手動操作であれば、ユーザーが画面上で新しい面をクリックし直せば済む話です。しかし、VBAの世界ではそうはいきません。VBAは、あなたが指定した「内部的な面ID（Persistent Reference ID）」や「面の名前（例: Face1）」を冷酷なまでに追いかけています。
もし設計変更によって、その面が削除されたり、分割されたり、トポロジー（面やエッジの繋がり）が根本から変わると、SolidWorksは「あれ？指定された面がないぞ？」となり、エラー（参照切れ）を引き起こします。
マクロの記録頼みが招く悲劇
マクロの記録を取ると、大体こんなコードが出力されます。
‘ 【危険なコードの例】名前や固定インデックスで面を指定している
boolstatus = swModel.Extension.SelectByID2(“Face1”, “FACE”, 0, 0, 0, False, 0, Nothing, 0)
この `”Face1″` という名前、実は非常に儚いものです。フィーチャの順序が少し変わるだけで、`Face2` になったり、名前自体が消滅したりします。これが「参照面ロスト」の正体です。
—
2. 解決の鍵：名前ではなく「特徴量（属性）」で面を捕まえろ！
では、どうすればよいのでしょうか？
答えは簡単です。「名前で探すな、条件（属性）で探せ」。
実務でロストを防ぐためのスマートなアプローチは以下の3ステップです。
1. フィーチャやボディの履歴を辿る
2. 目的の面が持つ幾何学的特徴（平面、特定の法線方向、あるいは生成元のフィーチャ）をプログラムでスキャンする
3. 動的に面オブジェクト（`Face2` オブジェクト）を取得し、カット押し出しの引数に渡す
これなら、形状が多少変化しても、プログラム自身が「あ、あの面ね！」と再認識して追跡してくれます。
—
3. 実装コード：動的参照管理による安全なカット押し出し
それでは、実際の現場でそのまま使える実用的なVBAコードを公開しましょう。
このコードでは、特定のサーフェスフィーチャ（例: `”Surface-Extrude1″`）から、「そのサーフェスが持つ底面（Face）」をプログラム的に動的に取得し、安全にカット押し出しの終端として適用しています。
‘ ==============================================================================
‘ 【実務対応】サーフェス参照ロストを防ぐスマートカット押し出しマクロ
‘ ==============================================================================
Sub SmartCutExtrusionSample()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim targetFace As SldWorks.Face2
Dim boolstatus As Boolean
‘ アプリケーションとドキュメントの取得
Set swApp = Application.SldWorks
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
Set swPart = swModel
‘ ————————————————————————–
‘ ステップ1: ターゲットとなるサーフェスフィーチャを安全に取得
‘ ————————————————————————–
Dim targetFeatureName As String
targetFeatureName = “Surface-Extrude1” ‘ ※実際のモデルのサーフェス名に変更してください
Set swFeat = swModel.FeatureByName(targetFeatureName)
If swFeat Is Nothing Then
MsgBox “ターゲットとなるサーフェスフィーチャが見つかりません: ” & targetFeatureName, vbCritical
Exit Sub
End If
‘ ————————————————————————–
‘ ステップ2: フィーチャから「面（Face2）」を動的に抽出する（ロスト防止の核心）
‘ ————————————————————————–
Set targetFace = GetFirstFaceFromFeature(swFeat)
If targetFace Is Nothing Then
MsgBox “サーフェスから有効な面を取得できませんでした。”, vbCritical
Exit Sub
End If
‘ 取得した面を一度選択状態にする（APIに渡すための前処理）
Dim swEntity As SldWorks.Entity
Set swEntity = targetFace
boolstatus = swEntity.Select4(False, Nothing)
If Not boolstatus0 Then
MsgBox “ターゲット面の選択に失敗しました。”, vbCritical
Exit Sub
End If
‘ ————————————————————————–
| ステップ3: 「サーフェスまで」を指定してカット押し出しを実行
‘ ————————————————————————–
‘ 引数の意味:
‘ 団長タイプ: 7 = ジオメトリサーフェスまで (swEndCondUpToSurface)
‘ 深度: 0 (サーフェスまでなので不要)
‘ 逆方向: False
‘ 参照面フリップ: False
‘ ドラフト角度: 0 … etc
boolstatus = swModel.FeatureManager.FeatureCut3( _
True, _ ‘ 貫通するか (ThruAll etc – ここではFalseの代わりのロジック)
False, _ ‘ 逆方向
False, _ ‘ 側面のドラフト
7, _ ‘ 終端条件: swEndCondUpToSurface (サーフェスまで)
0, _ ‘ 深度1
0, _ ‘ 深度2
False, _ ‘ ドラフト角度1
False, _ ‘ ドラフト角度2
False, _ ‘ ドラフト外向き
False, _ ‘ スケッチを自動選択
0, _ ‘ オフセット1
0, _ ‘ オフセット2
False, _ ‘ 翻訳サーフェス
False, _ ‘ サーフェスオフセット単方向
False, _ ‘ ラティス用カット
False, _ ‘ ジオメトリパターン
False, _ ‘ オートスレッド
True, _ ‘ サーフェスまで：反対側
True ‘ サーフェスまで：延長
)
If boolstatus Then
MsgBox “スマートなカット押し出しの作成に成功しました！”, vbInformation
Else
MsgBox “カット押し出しの作成に失敗しました。”, vbCritical
End If
End Sub
‘ ==============================================================================
‘ 補助関数: 指定したフィーチャから最初の有効な「Face2」オブジェクトを返す
‘ ==============================================================================
Private Function GetFirstFaceFromFeature(ByVal swFeat As SldWorks.Feature) As SldWorks.Face2
Dim swBody As SldWorks.Body2
Dim swFace As SldWorks.Face2
‘ フィロソフィ: フィーチャが保持する最初のソリッド/サーフェスボディを取得
Set swBody = swFeat.GetBody
If swBody Is Nothing Then
‘ ゲットボディが失敗する場合は、下位のフェイスを直接探索
‘ （複合フィーチャの場合のフォールバック処理）
Exit Function
End If
‘ ボディから最初の面を取得
Set swFace = swBody.GetFirstFace
Set GetFirstFaceFromFeature = swFace
End Function
—
4. コードの深掘りとエンジニアとしての心構え
このコードの最も美しいポイントは、「名前ベースのハードコーディング（`SelectByID2`での決め打ち）」を極力排除し、フィーチャオブジェクトから直接 `Face2` を手に入れている点です。
1. `FeatureByName` でフィーチャの存在を確認する
名前が変わっていなければ、まずフィーチャオブジェクトを安全に掴みます。
2. `GetBody` と `GetFirstFace` でトポロジーから面を直接引く
文字列の “Face1” に頼るのではなく、SolidWorksの内部データ構造（B-Rep構造）から「このフィーチャが今持っているリアルな面」をダイレクトにメモリ上でキャプチャします。
これにより、モデルの寸法が変わり、押し出しの長さが変わり、面の名前が内部的に再割り当てされたとしても、「そのフィーチャが生成した最新の面」を正確にプログラムが追従できるようになるのです。
—
まとめ：ここをクリアすれば、SolidWorks VBAの基本はバッチリです！
いかがでしたでしょうか？
マクロの記録から一歩進み、SolidWorksのAPIの裏側（オブジェクトのライフサイクルとトポロジー）を意識することで、エラーに強い堅牢な自動化ツールが作れるようになります。
- 「名前」で位置を探すな、「オブジェクトの繋がり」で探せ。
- 設計変更に怯えないコードこそが、プロのエンジニアの証。
この知見をあなたの引き出しに加えれば、実務におけるCAD自動化のストレスは劇的に激減します。ぜひ日々の開発業務に応用してみてください。
それでは、次回の極限の知見でお会いしましょう。あなたのVBAライフが素晴らしいものになりますように！
