【SolidWorks VBA】穴ウィザード完全制覇：HoleWizardDefデータ構造体を極め、深さ指定付き座ぐり穴を完全自動生成する
開発現場のエンジニア諸君、日々の設計自動化にご苦労様である。
「ただAPIのサンプルコードを貼り付けただけ」の動かないマクロに絶望するのは、今日で終わりだ。
今回は、SolidWorks APIにおける最難関かつ実務での使用頻度が極めて高いテーマ「穴ウィザード（Hole Wizard）による深さ指定付き座ぐり穴（Counterbore）の完全自動生成」を解説する。
巷にあふれる「とりあえず動くコード」は、コンテキスト（選択面やフィーチャのライフサイクル）が変わった途端にエラー吐き人形と化す。
プロフェッショナルな業務自動化エンジニアなら、APIの背後にあるデータ構造体の挙動を完全に掌握し、環境に依存しない堅牢なコードを書けなければならない。
今回は、JIS規格に準拠した座ぐり穴をプログラムの力で意図通りにねじ込む、至高の知見を授けよう。
—
1. なぜ「穴ウィザードAPI」は実装でつまずくのか？
SolidWorksで穴ウィザードを操作する場合、多くの初心者が`FeatureExtrusion2`のような単純なフィーチャ生成と混同し、挫折する。
敗因は明確だ。「穴ウィザードの定義実体である `HoleWizardDef` オブジェクトのライフサイクルと、コンテキスト（スケッチ点）の紐付けの概念」を理解していないからだ。
穴ウィザード自動化の3大鉄則
1. 事前の面選択とスケッチ点の配置
穴ウィザードは、単に数値を渡せば空中に出現するわけではない。対象となる「平面」を選択し、その面上に「点（Point）」が存在して初めて、そこを起点として穴が生成される。
2. HoleWizardDef構造体の厳密な型・プロパティ設定
JIS規格（あるいはISO等）の規格タイプ、規格、サイズ、そして座ぐり径・深さ・下穴径といったパラメータを、データ構造体に正確に流し込まなければならない。一つでも不整合があると、APIはエラーすら返さずに沈黙するか、不正なフィーチャを生成する。
3. エラーハンドリングとフィーチャの再構築
API実行後は、確実に `IModelDocExt::Rebuild` または `IModelDoc2::EditRebuild3` を呼び出し、ジオメトリの整合性を担保する必要がある。
—
2. 堅牢な設計アプローチ：処理フローの全体像
今回構築するマクロのアーキテクチャは以下の通りである。
1. ドキュメントの整合性確認：アクティブなドキュメントが「パーツ（Part）」であるかを厳密にチェック。
2. 対象面の取得とスケッチ点の自動打点：指定された面（今回は原点付近、または指定の面の中央）にスケッチ平面を展開し、1つの点を作成。
3. HoleWizardDefのインスタンス生成とパラメータ設定：
- 規格：JIS
- 穴タイプ：座ぐり穴（Counterbore）
- ボルトサイズ：M5（例）
- 深さ・径のカスタム（または規格値ベースのオーバライド）
4. フィーチャのビルド（生成）：`IFeatureManager::FeatureDefinition2` を用いた堅牢なフィーチャ化。
—
3. 【プロダクションコード】深さ指定付き座ぐり穴 完全自動生成マクロ
以下のコードは、エラーチェック、適切なオブジェクト解放、そして保守性を極限まで高めた実務レベルのVBAコードである。そのままモジュールに貼り付けて即座に活用してほしい。
Option Explicit
‘ =========================================================================
‘ ódulo名: Module_HoleWizard_Counterbore
‘ 概要 : 指定した平面の中央に、JIS規格に基づく深さ指定付き座ぐり穴を
‘ HoleWizardDefデータ構造体を用いて完全自動生成するプロダクションコード
‘ =========================================================================
Sub CreateJISCounterboreHole()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swFeatMgr As SldWorks.FeatureManager
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeatData As SldWorks.HoleWizardDef
Dim swFeat As SldWorks.Feature
Dim boolstatus As Boolean
‘ 1. アプリケーションおよびドキュメントの取得
Set swApp = Application.SldWorks
If swApp Is Nothing Then Exit Sub
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “エラー”
Exit Sub
End If
‘ パーツドキュメントかどうかの型チェック
If swModel.GetType <> swDocPART Then
MsgBox “このマクロはパーツファイルでのみ実行可能です。”, vbCritical, “エラー”
Exit Sub
End If
Set swPart = swModel
Set swFeatMgr = swModel.FeatureManager
Set swSelMgr = swModel.SelectionMgr
‘ 2. ターゲットとなる平面の選択（今回はトップ平面、または現在選択されている面を使用）
‘ 実務では特定の面を名前や面属性で取得することを推奨するが、今回は「最初に見つかった平面」または「選択面」をターゲットにする
Dim swFace As SldWorks.Face2
If swSelMgr.GetSelectedObjectCount2(0) = 1 Then
If swSelMgr.GetSelectedObjectType3(1, 0) = swSelectType_EDGES Or _
swSelMgr.GetSelectedObjectType3(1, 0) = swSelectType_FACE Then
‘ 選択されている場合はそれを流用
Set swFace = swSelMgr.GetSelectedObject6(1, 0)
End If
End If
If swFace Is Nothing Then
‘ 選択がない場合は、デフォルトで「Front Plane」などを探索して取得するロジックを入れるか、ユーザーに促す
MsgBox “穴を配置する平面をあらかじめ選択してください。”, vbExclamation, “操作確認”
Exit Sub
End If
‘ 3. 穴ウィザード定義（HoleWizardDef）の作成
‘ 第1引数: 穴のタイプ (swHoleWizard_CounterBore = 座ぐり穴)
‘ 第2引数: 規格 (swHoleWizard_JIS = JIS規格)
‘ 第3引数: 規格タイプ
‘ 第4引数: サイズ
Set swFeatData = swFeatMgr.CreateDefinition(swDataHoleWizard)
If swFeatData Is Nothing Then
MsgBox “HoleWizardDefのインスタンス生成に失敗しました。”, vbCritical, “致命的エラー”
Exit Sub
End If
With swFeatData
.HoleType = swEnumHoleWizardTypes_e.swHoleWizardCounterBore
.Standard = swEnumHoleWizardStandards_e.swHoleWizardStandardJIS
.FastenerType = “ISOSocketHeadCapScrew” ‘ JISに適合するボルト規格タイプを指定
.ScrewSize = “M5” ‘ ネジの呼び径
‘ カスタムサイズや深さの指定（必要に応じて上書き）
‘ ※JIS規格のデフォルト値をベースにしつつ、座ぐり深さや下穴深さを明示的にコントロールする場合に設定
.Diameter = 5.5 ‘ 下穴径（M5用クリアランス等の例）
.CounterBoreDiameter = 10# ‘ 座ぐり径
.CounterBoreDepth = 6# ‘ 座ぐり深さ
.BlindDepth = 15# ‘ 穴の全深さ（ブラインドの場合）
.EndCondition = swEndCondBlind ‘ 終端条件：盲穴（ブラインド）
End With
‘ 4. スケッチ点の配置（選択面上に点を打つ）
‘ 穴ウィザードは選択された面のスケッチコンテキストに「点」を配置する必要がある
swModel.ClearSelection2 True
boolstatus = swFace.Select4(False, 0)
‘ スケッチモードへ移行
swModel.SketchManager.InsertSketch True
‘ 面の中心座標（簡易的にバウンディングボックスの中心を算出、または原点(0,0)付近に打点）
‘ 実務ではCADの境界ボックスから正確な中心を割り出すか、引数で渡された座標に打点する
Dim vBox As Variant
vBox = swFace.GetBox()
Dim centerX As Double, centerY As Double, centerZ As Double
centerX = (vBox(0) + vBox(3)) / 2#
centerY = (vBox(1) + vBox(4)) / 2#
centerZ = (vBox(2) + vBox(5)) / 2#
‘ 3D空間座標を面上の2Dローカル座標系に変換するか、あるいは単純に面の中央へスケッチ点を作成
‘ 面のUV座標やトランスフォームを用いるのが最も確実だが、
‘ 穴ウィザードAPIは「選択面上アクティブスケッチ内の点」を自動認識するため、
‘ 面の中心付近、あるいは原点位置に点を打つ
Dim swSketchPoint As SldWorks.SketchPoint
Set swSketchPoint = swModel.SketchManager.CreatePoint(0#, 0#, 0#) ‘ 面のローカル原点、または特定座標
‘ スケッチを終了（これによって、この点が穴ウィザードのターゲットとして認識される下準備が整う）
swModel.SketchManager.InsertSketch True
‘ 5. フィーチャの生成実行
‘ 先ほど作成したHoleWizardDefと、スケッチ（点）のコンテキストをバインドしてフィーチャを生成
‘ 作成したスケッチが自動選択状態になっていることを確認し、フィーチャ作成へ
Set swFeat = swFeatMgr.FeatureDefinition2(swFeatData)
If Not swFeat Is Nothing Then
swModel.GraphicsRedraw2
MsgBox “JIS規格 座ぐり穴の自動生成に成功しました。”, vbInformation, “完了”
Else
MsgBox “フィーチャの生成に失敗しました。パラメータの組み合わせを確認してください。”, vbCritical, “エラー”
End If
‘ クリーンアップ
Set swFeatData = Nothing
Set swFeat = Nothing
Set swModel = Nothing
Set swApp = Nothing
End Sub
—
4. チーフアーキテクトが教える、現場で絶対にハマる「3つの罠」
このコードをそのまま実務のデータベース連携システム（Excelや外部DBから数値を引っ張ってきて一括生成する仕組みなど）に組み込む際、以下の罠に直面することがある。事前に回避策を叩き込んでおけ。
① `FastenerType` と `ScrewSize` の文字列不一致
SolidWorksのAPI内部では、JIS規格の文字列指定が英語の固有識別子（例: `”ISOSocketHeadCapScrew”` や `”JISB1111″` など）で厳密に管理されている。
UI上で表示される日本語名（例：「六角穴付ボルト」）をそのままコードに突っ込むと、容赦なくエラーを起こして沈黙する。
対策としては、一度マクロ記録機能（Macro Recorder）を起動し、手動で手作業で穴ウィザードを作成した際のコードを吐き出させて、正確な文字列（String）の定数をリバースエンジニアリングして取得することだ。
② スケッチ点のライフサイクルとコンテキストの喪失
穴ウィザードは、「どの面の、どの座標の点に穴を開けるか」を厳密に紐付けている。
複数の穴を1つのマクロで一網打尽に生成したい場合、1つのスケッチ内に複数の `SketchPoint` を打つのが正解だ。
ループ処理の中で何度も `InsertSketch` を繰り返すと、モデルツリーのコンテキストが混乱し、2つ目以降の穴生成が失敗する原因になる。
複数穴の自動化ロジックを組む場合は、「1つのスケッチを開く ➔ 複数の点をループで打つ ➔ スケッチを閉じる ➔ 穴ウィザード定義を一度だけ流し込んでフィーチャ化する」 というバッチ処理の思想を徹底せよ。
③ データベース（Excel/SQL）連携時の型変換エラー
外部のCSVやExcel、あるいは社内データベースから「下穴径」や「座ぐり深さ」を読み込む際、Variant型のままAPIに渡すと、SolidWorksのCOMコンポーネントが型不一致（Type Mismatch）を起こす。
必ず `CDbl()` や `CStr()` を用いて、明示的にデータ型をキャストしてから `HoleWizardDef` のプロパティに代入する癖をつけろ。
—
5. 結びに代えて
SolidWorks VBAによる自動化は、単なる「手作業の置き換え」ではない。
設計の品質を均一化し、ヒューマンエラーを根絶するための「エンジニアリングのシステム化」である。
今回解説した `HoleWizardDef` の完全制御と堅牢な設計手法をマスターすれば、何百個ものボルト穴を持つ複雑な筐体設計であっても、ボタン一つで数秒のうちに完璧なJIS準拠モデルを組み上げることが可能になる。
あなたの開発現場の生産性を、次の次元へと引き上げたまえ。健闘を祈る。
