【穴ウィザード完全制覇】HoleWizardDefオブジェクトを使ったJIS規格めねじの動的制御
SolidWorks VBAによる自動化において、最も開発者を絶望させる領域の一つが「穴ウィザード（Hole Wizard）」のプログラム制御だ。
マクロ記録を取れば一目瞭然だが、生成されるコードは `CreateHoleWizard5` のような、数え切れないほどの引数を持つ巨大なメソッドの羅列となる。このアプローチでは、JIS規格のM3からM12までのピッチ変更、盲穴の深さ制御、あるいは「ねじ深さ」と「下穴深さ」の独立したパラメータ操作など、実務で必須となる動的な要件に対応した途端にコードベースは破綻する。マジックナンバーの巣窟と化したレガシーコードは、保守不能の烙印を押されることになるだろう。
真のシニアエンジニアが目指すべきは、引数の海に溺れることではなく、`HoleWizardDef` オブジェクトのライフサイクルを完全に掌握し、規格データを動的に流し込むアーキテクチャの構築である。
本稿では、SolidWorks APIの深層に踏み込み、JIS規格めねじをハードコードなしで自在に刻み込む極限の知見を公開する。
—
1. 穴ウィザード自動化のパラダイムシフト：`HoleWizardDef` とは何か
多くの開発者は、穴ウィザードを「フィーチャを作成するメソッド」として捉える。これが間違いの元凶だ。
SolidWorks APIにおけるモダンなフィーチャ生成は、以下の3ステップのパイプラインとして設計されている。
1. 定義オブジェクト（Definition）の取得・生成: `PartDoc.Extension.CreateDefinition` メソッドにより、メモリ上にフィーチャの「設計図」を実体化させる。
2. パラメータの動的注入: 定義オブジェクトのプロパティに対し、規格、サイズ、深さなどの値をバインドする。
3. フィーチャのコミット: 定義オブジェクトをSolidWorksのフィーチャツリーに投入（`CreateFeature`）し、ジオメトリを確定させる。
このアーキテクチャの最大のメリットは、「フィーチャを作成する前に、プログラム側でパラメータの整合性を完全に検証・制御できる」点にある。特に `HoleWizardDef` を使用する場合、JIS規格特有の細目・並目、呼び径、そしてめねじの深さを型安全に操作することが可能となる。
—
2. メモリ最適化とCOMオブジェクトの厳格なライフサイクル管理
VBA環境において、SolidWorks APIを扱う最大のリスクはCOMオブジェクトのメモリリークとポインタの解放漏れである。特に `CreateDefinition` などのファクトリーメソッド系は、裏側でC++のヒープ領域やCOMコンポーネントの参照カウンタを消費する。
曖昧な変数使い回しや、エラーハンドリングの欠如は、SolidWorks本体のフリーズやVBAランタイムの突然のクラッシュを引き起こす。
チーフアーキテクトとして、以下の鉄則をコードに実装しなければならない。
- 取得した定義オブジェクトは、処理完了後（あるいはエラー発生時）に必ず `Nothing` を代入して参照を明示的に解放する。
- エラーハンドリング（`On Error Goto`）を必ず配置し、異常系でもCOM参照が残らない構造を担保する。
—
3. 実装コード：JISめねじ動的生成エンジン
以下に、M3からM12までのJIS規格めねじ（タップ穴）を、マジックナンバーを一切排除して動的に生成する実用的なVBAコードを示す。このコードは、そのまま実務の設計自動化システムに組み込むことが可能である。
Option Explicit
‘ ==============================================================================
‘ 処理名: JIS規格めねじ動的生成プロシージャ
‘ 概要 : HoleWizardDefオブジェクトを駆使し、JISめねじのパラメータを動的に制御する
‘ ==============================================================================
Sub CreateJISHoleWizard()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swFeatMgr As SldWorks.FeatureManager
Dim swHoleDef As SldWorks.HoleWizardDef
Dim swFeat As SldWorks.Feature
‘ エラーハンドリング用ラベル
On Error GoTo ErrorHandler
番
‘ 1. アプリケーションおよびドキュメントの取得
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 “このマクロはパーツファイルでのみ実行可能です。”, vbCritical, “型不一致エラー”
Exit Sub
End If
Set swPart = swModel
Set swFeatMgr = swModel.FeatureManager
‘ ————————————————————————–
‘ 2. HoleWizardDef オブジェクトの生成
‘ swFType_HoleWizTap (穴ウィザード：タップ穴) を指定して定義を作成
‘ ————————————————————————–
Set swHoleDef = swFeatMgr.CreateDefinition(swFType_HoleWizTap)
If swHoleDef Is Nothing Then
MsgBox “HoleWizardDef の生成に失敗しました。”, vbCritical, “APIエラー”
Exit Sub
End If
‘ ————————————————————————–
‘ 3. JIS規格パラメータの動的バインド
‘ ※ここでハードコードを排除し、規格・タイプ・サイズを論理的に指定する
‘ ————————————————————————–
With swHoleDef
‘ 規格の設定 (swStandard_JIS は SolidWorksのAPI定数)
.Standard = swStandard_JIS
‘ 穴タイプの指定 (めねじ / テーパねじ等から「Straight Tap (ストレートタップ)」を選択)
.FastenerType = swStandardHole_JS_StraightTap
‘ 呼び径・サイズの指定 (例: “M6” の文字列を渡すことでJIS規格テーブルから自動解決)
.Size = “M6”
‘ 盲穴（Blind）か貫通（Through)かの設定
‘ 0: 盲穴 (Blind), 1: 貫通 (Through) 等の定数または数値
.EndCondition = 0 ‘ 盲穴
‘ めねじ深さの設定 (単位: メートル法 -> ミリメートルをメートルに換算して渡すのがAPIの仕様)
‘ ここでは 15mm のねじ深さを指定
.Depth = 15# / 1000#
‘ 下穴深さ（ドリル深さ）の自動計算を有効にする、または個別指定
‘ 下穴径や下穴深さを制御する場合はここを追加プロパティで操作する
End With
‘ ————————————————————————–
‘ 4. ターゲットとなる面へのアノテーション/スケッチ点の設定
‘ あらかじめ選択されている面、あるいは特定の平面に対して穴を配置する
‘ ※今回は事前に選択された面を前提とする、または原点近傍に配置するロジックを想定
‘ ————————————————————————–
‘ 注: 実際の配置には、面を選択した状態で実行するか、
‘ SketchManager等を用いて座標点を事前にプロットしておく必要がある。
‘ 5. フィーチャのコミット（生成実行）
Set swFeat = swFeatMgr.CreateFeature(swHoleDef)
If swFeat Is Nothing Then
MsgBox “穴ウィザードフィーチャの生成に失敗しました。パラメータを確認してください。”, vbCritical, “生成エラー”
GoTo CleanUp
End If
‘ 変更を反映してビューを更新
swModel.ForceRebuild3 True
MsgBox “JISめねじ (M6) の生成に成功しました。”, vbInformation, “完了”
CleanUp:
‘ ————————————————————————–
‘ 6. メモリの明示的解放 (極めて重要)
‘ ————————————————————————–
Set swHoleDef = Nothing
Set swFeatMgr = Nothing
Set swPart = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “例外トラップ”
Resume CleanUp
End Sub
—
4. チーフアーキテクトからの実践的アドバイス：レガシー連携と拡張性
上記のコードは単なる一例に過ぎない。これを企業内の生産管理システムや、外部CAD連携（ERP/PDM）の自動化パイプラインに組み込む際は、以下の設計思想を必ず取り入れてほしい。
1. JSON/CSV等からのパラメータ外部化:
`”M6″` や `15#` といった値をハードコードするのではなく、外部の設計BOMデータやJSON設定ファイルから動的に読み込み、`HoleWizardDef` のプロパティにマッピングする構造（データ駆動型アーキテクチャ）に昇華させること。
2. バリデーション層の分離:
JIS規格において存在しない組み合わせ（例：極端に浅い下穴に対する深いタップなど）を指定した場合、SolidWorksのAPIはサイレントエラーや例外を吐く。APIを叩く前に、VBA側で独自のバリデーションレイヤーを一枚挟むことで、システムの堅牢性は飛躍的に向上する。
穴ウィザードの制御は、もはや「おまじないのコードを貼り付ける作業」ではない。オブジェクトのライフサイクルを理解し、APIの仕様を正しく飼い慣らした者だけが手に入れられる、最高峰の自動化武器なのである。
