SolidWorks VBA 究極の自動化戦略：スイープ・ロフトでインペラ・羽根形状を掌握する
諸君、SolidWorks VBAの自動化に挑む者たちよ。私は長年、設計現場の最前線でCAD自動化の指揮を執ってきた。数々の難解なプロジェクトを成功に導き、その過程でSolidWorks APIの深淵を覗き込んできた。今回、私が諸君に伝えるのは、単なるAPIリファレンスの羅列ではない。オブジェクトのライフサイクル、パフォーマンスの重み、そして堅牢なプロダクションコードの真髄だ。
特に、インペラやプロペラのような複雑な三次元曲面を持つ羽根形状の自動生成は、SolidWorks VBAの真価が問われる領域だ。手作業では膨大な時間と労力を要し、設計変更のたびにそのコストは跳ね上がる。しかし、数学的計算に基づいた動的なジオメトリ生成と、スイープ・ロフトフィーチャのAPIを駆使すれば、そのプロセスを数秒に短縮し、設計の自由度を飛躍的に高めることが可能となる。
本記事では、この高度な自動化を実現するための核心的な知見を、実践的なコード例とともに伝授する。バグの起きない堅牢な設計、パフォーマンスを最大化する戦略、そして保守性の高いコードの書き方。これらを血肉とし、諸君の業務効率化ツールを「伝説」へと昇華させてほしい。
SolidWorks APIにおけるスイープ・ロフトの核心
SolidWorksで複雑な三次元形状を作成する際、スイープ（Swept Feature）やロフト（Loft Feature）は極めて強力なツールとなる。VBAからこれらを制御するには、単にボタンを押す動作を模倣するだけでは不十分だ。APIオブジェクトの振る舞いと、その内部で何が起きているのかを深く理解する必要がある。
`SweptFeatureData` と `LoftFeatureData` の真価
これらのフィーチャをVBAで生成する際、我々が直接操作するのは `FeatureManager` オブジェクトだが、その背後でフィーチャの定義を保持するのが `SweptFeatureData` や `LoftFeatureData` といったデータオブジェクトだ。
- `SweptFeatureData`: 単一の断面プロファイルが、単一または複数のガイドカーブに沿って掃引されることで形状を生成する。シンプルなチューブ、ケーブル、または一定断面のブレードなどに向いている。
- `LoftFeatureData`: 複数の断面プロファイルを定義し、それらを滑らかに接続することで形状を生成する。さらに、複数のガイドカーブを指定することで、断面間の形状変化をより厳密に制御できる。インペラや複雑な翼形状など、断面が変化する形状の生成には、この `LoftFeatureData` が極めて強力な武器となる。
重要なのは、これらのデータオブジェクトのプロパティを正確に設定することだ。プロファイルとなるスケッチエンティティや、パス・ガイドとなるスケッチエンティティ、または既存のエッジを適切に「選択」し、フィーチャデータオブジェクトに「設定」する。この「選択」と「設定」のプロセスをいかに堅牢かつ効率的に行うかが、成功の鍵を握る。
オブジェクトのライフサイクルとパフォーマンスへの配慮
SolidWorks APIオブジェクトは、適切に管理しなければメモリリークやパフォーマンス低下の原因となる。
1. 参照の解放: `Set obj = Nothing` は基本中の基本だ。特にループ内で大量のスケッチエンティティやフィーチャを生成・参照する場合、処理終了後に必ず参照を解放すること。`Dim` で宣言されたオブジェクト変数はプロシージャ終了時に解放されるが、明示的な解放は堅牢性を高める。
2. フィーチャマネージャの更新抑制: 大量のフィーチャを連続して生成する場合、SolidWorksが各フィーチャ生成後に内部で再構築処理を行うため、非常に時間がかかる。`ModelDoc2.SetAddToFeatureManager False` を使用して、フィーチャマネージャへの追加を一時的に抑制し、全てのフィーチャ生成後に `ModelDoc2.ForceRebuild3` で一度に再構築する手法は、劇的なパフォーマンス向上をもたらす。
3. バッチ処理モード: `SldWorks.StartBatchProcessing` と `SldWorks.EndBatchProcessing` を利用することで、SolidWorksがバックグラウンドで不要なグラフィック更新やイベント処理を抑制し、API呼び出しのオーバーヘッドを削減できる。これもまた、大規模な自動化において不可欠なテクニックだ。
インペラ・羽根形状自動生成への挑戦
インペラや羽根形状の自動生成は、単にAPIを呼び出す以上の数学的、幾何学的理解が要求される。
数学的定義の重要性
羽根形状は、通常、翼弦線、キャンバー、厚さ分布、ねじれ角、ハブ径、チップ径といった多数のパラメータによって定義される。これらのパラメータを数式に落とし込み、各断面における点の座標（X, Y, Z）を動的に計算することが、自動生成の出発点となる。
例えば、単純なプロペラの羽根であれば、回転軸からの距離に応じて、断面のサイズとねじれ角が変化する。これを数式で表現し、複数の平面上に断面スケッチを配置し、各断面のスプライン点を計算して描画していく。
堅牢なスケッチエンティティの生成戦略
1. 基準平面の選択: スケッチを作成する際には、まず基準となる平面を選択する必要がある。`SelectionManager.SelectByID2` メソッドを使い、”Front Plane” (または特定の基準平面) を選択する。
2. 座標系の理解: SolidWorksのAPIは内部的にメートル法（m）を使用するが、これはユーザー設定に依存しない。ユーザーがミリメートル単位で作業していても、APIにはメートル単位で値を渡す必要がある。この単位変換は、バグの温床となりやすいので細心の注意を払うこと。
3. スプラインの活用: 複雑な曲面形状を表現するには、`SketchManager.CreateSpline` メソッドが不可欠だ。制御点の座標を正確に計算し、配列として渡すことで、滑らかな曲線を生成できる。
- 注意点: スプラインの方向性（開始点から終了点への向き）は、ロフトフィーチャの生成において非常に重要だ。全ての断面スプラインで方向性を統一しないと、ねじれたり、エラーが発生したりする。
4. ガイドカーブの定義: スイープやロフトの軌跡となるガイドカーブは、2Dスケッチ上の線分や円弧、スプライン、あるいは3Dスケッチ、既存のモデルエッジなど、様々な形式で定義できる。羽根形状の場合、ハブからチップに向かう軌跡や、羽根全体のねじれを制御するためのカーブを3Dスケッチで定義することが多い。
ファイル・データベース連携の注意点
自動生成のパラメータを外部ファイルやデータベースから取得する場合、以下の点に注意が必要だ。
- データ型の厳密な管理: 数値データは文字列として読み込まれることが多いため、VBAで適切な数値型（Doubleなど）に変換する際のエラーハンドリングが必須だ。`CDbl()` や `Val()` を安易に使うのではなく、`IsNumeric()` でチェックするなどの防御策を講じること。
- ファイルパスの正規化: ExcelやCSVファイルからの読み込み、または生成されたSolidWorksファイルの保存パスは、絶対パスで厳密に管理すべきだ。ネットワーク共有上のファイルを使用する場合は、排他制御や競合回避のロジックも検討する必要がある。
- トランザクション管理: SolidWorks API自体にデータベースのようなトランザクション機能はないが、一連の操作が失敗した場合に、SolidWorksドキュメントを元の状態に戻すためのロジック（例: 操作前の状態を一時ファイルに保存しておく、あるいは全てのフィーチャを削除するロールバック機能）を独自に実装することは可能だ。
実践コード例：数学的計算に基づいた羽根形状のスイープ生成
ここでは、シンプルな羽根形状をスイープフィーチャで自動生成するVBAコードを示す。ガイドカーブとして直線、断面プロファイルとして数学的に定義されたスプラインを使用する。
この例では、断面プロファイルはハブからの距離に応じて「拡大・縮小」し、「ねじれ」るという基本的な概念を組み込む。
Option Explicit
‘ SolidWorks APIのエラーコード列挙
Public Enum swErrors_e
swNoError = 0
swGenericError = 1
‘ … 他のエラーコードはSolidWorks API Helpを参照
End Enum
‘
‘#
‘# プロジェクトリーダーからの警告:
‘# このコードはあくまで概念実証と学習のための基盤です。
‘# プロダクション環境に導入する際は、さらなる堅牢性、
‘# エラーハンドリングの網羅性、パフォーマンス最適化、
‘# およびバージョン互換性テストを徹底してください。
‘# 特に数学モデル部分は、製品要件に合わせて精緻化が必要です。
‘#
‘
Sub CreateSweptBlade()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swFeature As SldWorks.Feature
Dim swSketchMgr As SldWorks.SketchManager
Dim swSelMgr As SldWorks.SelectionMgr
Dim swMathUtils As SldWorks.MathUtility
Dim swSketch As SldWorks.Sketch
Dim swSketchSeg As SldWorks.SketchSegment
Dim swSweptFeatureData As SldWorks.SweptFeatureData
Dim swFeatData As SldWorks.Feature
Dim vSketches(0 To 1) As Variant ‘ ガイドカーブとプロファイルスケッチ用
Dim vProfileSketches As Variant
Dim vGuideCurves As Variant
Dim vGuideCurveRef As Variant
Dim vGuideCurveArr As Variant
Dim vProfileArr As Variant
Dim bSuccess As Boolean
Dim longStatus As Long
Dim longWarnings As Long
Dim i As Integer
Dim j As Integer
‘ — 数学的パラメータ定義 —
Const BLADE_LENGTH_M As Double = 0.15 ‘ ブレード全長 (メートル)
Const BLADE_WIDTH_START_M As Double = 0.03 ‘ 始点でのブレード幅 (メートル)
Const BLADE_WIDTH_END_M As Double = 0.015 ‘ 終点でのブレード幅 (メートル)
Const BLADE_THICKNESS_START_M As Double = 0.003 ‘ 始点でのブレード厚さ (メートル)
Const BLADE_THICKNESS_END_M As Double = 0.001 ‘ 終点でのブレード厚さ (メートル)
Const BLADE_TWIST_DEG As Double = 45 ‘ 全体のねじれ角 (度)
Const NUM_PROFILE_POINTS As Integer = 10 ‘ 断面プロファイルを構成するスプライン点数
‘ SolidWorksはAPI呼び出しの度にグラフィック更新やフィーチャマネージャ更新を行うため、
‘ 大量処理ではパフォーマンスが著しく低下します。
‘ ここではバッチ処理とフィーチャマネージャへの追加抑制を有効にします。
On Error GoTo ErrorHandler
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksアプリケーションが見つかりません。”, vbCritical
Exit Sub
End If
‘ バッチ処理を開始し、パフォーマンスを向上させる
swApp.SetBatchProcessingMode swBatchProcessing_e.swBatchProcessing_Enable
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swUpdateFeatureManagerTree, False
‘ 新規パーツドキュメントを作成
Set swModel = swApp.NewDocument(“C:\ProgramData\SolidWorks\SolidWorks 2023\templates\Part.prtDot”, 0, 0, 0)
If swModel Is Nothing Then
MsgBox “新規パーツドキュメントの作成に失敗しました。”, vbCritical
GoTo CleanUp
End If
Set swPart = swModel
‘ フィーチャマネージャへの追加を一時的に抑制
swModel.SetAddToFeatureManager True ‘ 初期状態に戻してから False にセット
swModel.SetAddToFeatureManager False ‘ この設定が重要！フィーチャ生成時の再描画を抑制
Set swSketchMgr = swModel.SketchManager
Set swSelMgr = swModel.SelectionManager
Set swMathUtils = swApp.GetMathUtility
‘ — 1. ガイドカーブの作成 (Front Planeに直線スケッチ) —
‘ Front Planeを選択
bSuccess = swModel.Extension.SelectByID2(“Front Plane”, “PLANE”, 0, 0, 0, False, 0, Nothing, 0)
If Not bSuccess Then GoTo ErrorHandlerWithMessage(“Front Planeの選択に失敗しました。”)
swSketchMgr.InsertSketch True ‘ スケッチ編集モードに入る
Set swSketch = swModel.GetActiveSketch2
If swSketch Is Nothing Then GoTo ErrorHandlerWithMessage(“アクティブスケッチの取得に失敗しました。”)
‘ ガイドカーブ (直線) を描画
‘ 始点: (0, 0, 0), 終点: (0, BLADE_LENGTH_M, 0) – Y軸方向の直線
Set swSketchSeg = swSketchMgr.CreateLine(0, 0, 0, 0, BLADE_LENGTH_M, 0)
If swSketchSeg Is Nothing Then GoTo ErrorHandlerWithMessage(“ガイドカーブの作成に失敗しました。”)
‘ スケッチを終了
swSketchMgr.InsertSketch True ‘ スケッチ編集モードを終了
swModel.ClearSelection2 True
‘ ガイドカーブのスケッチを後で選択するために保存
Set vGuideCurveRef = swSketch
‘ — 2. 断面プロファイルの作成 (Top Planeに数学的に定義されたスプライン) —
‘ 断面プロファイルは複数作成し、スイープのパス上の異なる位置に配置する
‘ ここでは始点と終点の2つのプロファイルを作成する (LoftFeatureDataの概念に近いが、SweptFeatureDataで適用)
‘ プロファイル1 (始点: Y=0)
bSuccess = swModel.Extension.SelectByID2(“Top Plane”, “PLANE”, 0, 0, 0, False, 0, Nothing, 0)
If Not bSuccess Then GoTo ErrorHandlerWithMessage(“Top Planeの選択に失敗しました。(プロファイル1)”)
swSketchMgr.InsertSketch True
Set swSketch = swModel.GetActiveSketch2
If swSketch Is Nothing Then GoTo ErrorHandlerWithMessage(“アクティブスケッチの取得に失敗しました。(プロファイル1)”)
‘ 数学的に定義されたスプライン点を計算 (Y=0, Z軸に沿って左右対称)
Dim vPoints1(0 To NUM_PROFILE_POINTS 2) As Double ‘ X, Y, Z for each point
Dim currentWidth As Double, currentThickness As Double
Dim twistAngleRad As Double
currentWidth = BLADE_WIDTH_START_M
currentThickness = BLADE_THICKNESS_START_M
twistAngleRad = 0 ‘ 始点はねじれなし
Call CalculateBladeProfilePoints(vPoints1, currentWidth, currentThickness, twistAngleRad, 0) ‘ Z=0の断面
‘ スプラインを作成 (vPoints1は[X1, Y1, Z1, X2, Y2, Z2, …])
Set swSketchSeg = swSketchMgr.CreateSpline(vPoints1)
If swSketchSeg Is Nothing Then GoTo ErrorHandlerWithMessage(“プロファイル1のスプライン作成に失敗しました。”)
swSketchMgr.InsertSketch True
swModel.ClearSelection2 True
Set vProfileArr = Array(swSketch) ‘ 最初のプロファイルを配列に追加
‘ プロファイル2 (終点: Y=BLADE_LENGTH_M)
‘ 新しい平面を作成して、そこにスケッチする方がロバストだが、ここでは簡略化のためTop Planeに直接描く。
‘ 実際には、スイープパスに垂直な平面を作成し、その上にスケッチするのが望ましい。
‘ ここでは概念を示すため、Top Planeにオフセット平面を作成する代わりに、
‘ 同じTop Planeに描画し、スイープフィーチャのオプションでパス上の位置を指定する。
‘ (LoftFeatureDataであれば複数のプロファイルを直接指定できる)
bSuccess = swModel.Extension.SelectByID2(“Top Plane”, “PLANE”, 0, 0, 0, False, 0, Nothing, 0)
If Not bSuccess Then GoTo ErrorHandlerWithMessage(“Top Planeの選択に失敗しました。(プロファイル2)”)
swSketchMgr.InsertSketch True
Set swSketch = swModel.GetActiveSketch2
If swSketch Is Nothing Then GoTo ErrorHandlerWithMessage(“アクティブスケッチの取得に失敗しました。(プロファイル2)”)
currentWidth = BLADE_WIDTH_END_M
currentThickness = BLADE_THICKNESS_END_M
twistAngleRad = BLADE_TWIST_DEG Math.PI / 180 ‘ 終点でのねじれ角をラジアンに変換
‘ 数学的に定義されたスプライン点を計算 (Y=BLADE_LENGTH_M, Z軸に沿って左右対称)
Dim vPoints2(0 To NUM_PROFILE_POINTS 2) As Double
Call CalculateBladeProfilePoints(vPoints2, currentWidth, currentThickness, twistAngleRad, BLADE_LENGTH_M) ‘ Y=BLADE_LENGTH_M の断面
Set swSketchSeg = swSketchMgr.CreateSpline(vPoints2)
If swSketchSeg Is Nothing Then GoTo ErrorHandlerWithMessage(“プロファイル2のスプライン作成に失敗しました。”)
swSketchMgr.InsertSketch True
swModel.ClearSelection2 True
‘ 複数のプロファイルを配列に格納 (SweptFeatureDataでは通常1つだが、LoftFeatureDataを意識して配列で準備)
‘ SweptFeatureDataでは最初のプロファイルのみが使用されるか、パス上の位置を指定する必要がある。
‘ 今回はSweptFeatureDataで単純な掃引を行うため、通常は単一プロファイル。
‘ 複数のプロファイルを指定したい場合は、LoftFeatureData を使用すべき。
‘ ここではSweptFeatureDataの柔軟性を考慮し、パス上の位置を指定する例として、
‘ 便宜上2つのプロファイルを作成しているが、後続のCreateSweptFeatureでは最初のプロファイルのみを渡すか、
‘ もしくはパスに沿ったプロファイルの変化を定義するためのAdvancedSweptFeatureDataを用いる必要がある。
‘ より正確には、LoftFeatureDataを使うべきシナリオである。
ReDim Preserve vProfileArr(0 To UBound(vProfileArr) + 1)
Set vProfileArr(UBound(vProfileArr)) = swSketch
‘ — 3. スイープフィーチャの作成 —
‘ SweptFeatureDataオブジェクトを作成
Set swSweptFeatureData = swPart.CreateSweptFeatureData
If swSweptFeatureData Is Nothing Then GoTo ErrorHandlerWithMessage(“SweptFeatureDataの作成に失敗しました。”)
‘ スイープのタイプを設定 (ソリッド掃引)
swSweptFeatureData.Type = swSweptType_e.swSolidSwept
‘ ガイドカーブとプロファイルをFeatureDataに設定するために選択する
‘ ガイドカーブのスケッチを選択
bSuccess = vGuideCurveRef.Select2(True, 0)
If Not bSuccess Then GoTo ErrorHandlerWithMessage(“ガイドカーブのスケッチ選択に失敗しました。”)
‘ プロファイルのスケッチを選択 (ここでは最初のプロファイルを使用)
bSuccess = vProfileArr(0).Select2(True, 0)
If Not bSuccess Then GoTo ErrorHandlerWithMessage(“プロファイルスケッチ選択に失敗しました。”)
‘ SetProfileAndPath メソッドでプロファイルとパスを設定
‘ SetProfileAndPathは選択状態に基づいてフィーチャを定義する
‘ 複数のプロファイルやガイドカーブが必要な場合は、LoftFeatureDataを使用し、
‘ SetProfiles や SetGuideCurves メソッドで配列を渡す。
‘ ここではSweptFeatureDataの基本動作として、パスとプロファイルが事前に選択されている前提。
‘ 注意: CreateSweptFeature は選択されているエンティティを使用する。
‘ SweptFeatureDataのパスとプロファイルを設定（より高度な方法）
‘ SetProfiles や SetGuideCurves は LoftFeatureData で一般的
‘ SweptFeatureDataの場合は SelectionManager を介して設定するのが一般的
‘ CreateSweptFeature メソッドを呼び出す
‘ このメソッドは選択されたエンティティに基づいてフィーチャを作成する
Set swFeatData = swModel.FeatureManager.CreateSweptFeature(swSweptFeatureData)
If swFeatData Is Nothing Then
longStatus = swModel.Extension.GetLastError
MsgBox “スイープフィーチャの作成に失敗しました。エラーコード: ” & longStatus, vbCritical
GoTo CleanUp
End If
‘ フィーチャマネージャへの追加を有効に戻し、モデルを再構築
swModel.SetAddToFeatureManager True
swModel.ForceRebuild3 True
MsgBox “羽根形状が正常に作成されました。”, vbInformation
CleanUp:
‘ オブジェクトの解放は、メモリ管理と堅牢性のために非常に重要です。
‘ プロシージャのどこでエラーが発生しても、確実に解放されるようにします。
swModel.ClearSelection2 True
If Not swApp Is Nothing Then
swApp.SetBatchProcessingMode swBatchProcessing_e.swBatchProcessing_Disable
swApp.SetUserPreferenceToggle swUserPreferenceToggle_e.swUpdateFeatureManagerTree, True
End If
Set swSweptFeatureData = Nothing
Set swFeatData = Nothing
Set swSketchSeg = Nothing
Set swSketch = Nothing
Set swSelMgr = Nothing
Set swSketchMgr = Nothing
Set swPart = Nothing
Set swModel = Nothing
Set swApp = Nothing
Set swMathUtils = Nothing
Exit Sub
ErrorHandler:
Dim errMessage As String
errMessage = “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description
MsgBox errMessage, vbCritical
GoTo CleanUp ‘ エラー発生時もCleanupルーチンへジャンプし、オブジェクトを解放する
ErrorHandlerWithMessage:
MsgBox Err.Description, vbCritical
Resume CleanUp ‘ Resume Next では無限ループになる可能性があるので注意
End Sub
‘ 数学的に羽根の断面プロファイル点を計算するサブルーチン
‘ NACA翼型のような複雑な形状ではなく、ここではシンプルな厚みとキャンバーを持つ形状を生成
‘ vPoints: 出力されるスプライン点配列 (X, Y, Z の順)
‘ width: 断面の翼弦長
‘ thickness: 断面の最大厚さ
‘ twistAngleRad: 断面のねじれ角 (ラジアン)
‘ offsetY: プロファイルのY座標オフセット (スイープパス上の位置)
Private Sub CalculateBladeProfilePoints(ByRef vPoints() As Double, _
ByVal width As Double, _
ByVal thickness As Double, _
ByVal twistAngleRad As Double, _
ByVal offsetY As Double)
Dim i As Integer
Dim x_norm As Double ‘ 正規化されたX座標 (0 to 1)
Dim y_camber As Double ‘ キャンバーライン上のY座標
Dim y_thickness As Double ‘ 厚さ分布によるY座標
Dim x_val As Double
Dim y_val As Double
Dim z_val As Double
Dim cosTwist As Double
Dim sinTwist As Double
cosTwist = Cos(twistAngleRad)
sinTwist = Sin(twistAngleRad)
‘ スプライン点を生成 (ここでは簡易的なプロファイルを想定)
‘ 前縁から後縁へ、上側と下側を順番に
‘ 上側プロファイル
For i = 0 To UBound(vPoints) / 2 ‘ 点数でループ
x_norm = i / (UBound(vPoints) / 2) ‘ 0 から 1 まで変化
‘ シンプルな放物線状のキャンバーと厚み分布
y_camber = 0.5 thickness (1 – x_norm ^ 2) ‘ 例: 中央で最大キャンバー
y_thickness = 0.5 thickness (1 – x_norm ^ 2) ‘ 例: 中央で最大厚み
‘ Xは翼弦長に比例
x_val = x_norm width
‘ Zはキャンバーと厚みで決定
z_val = y_camber + y_thickness ‘ 上側
‘ ねじれを適用 (Z-X平面上で回転)
vPoints(i 3) = x_val cosTwist – z_val sinTwist
vPoints(i 3 + 1) = offsetY ‘ Y座標はスイープパス上の位置
vPoints(i 3 + 2) = x_val sinTwist + z_val cosTwist
Next i
‘ 下側プロファイル (後縁から前縁へ)
‘ スプラインを閉じるために、後縁から前縁に向かって下側プロファイルを生成
‘ 実際の翼型では、後縁は閉じて点になることが多いが、ここでは開いた形状を想定
For i = 0 To UBound(vPoints) / 2 – 1 ‘ 終点は上側プロファイルと共有
x_norm = (UBound(vPoints) / 2 – 1 – i) / (UBound(vPoints) / 2) ‘ 1 から 0 まで変化
y_camber = 0.5 thickness (1 – x_norm ^ 2)
y_thickness = 0.5 thickness (1 – x_norm ^ 2)
x_val = x_norm width
z_val = y_camber – y_thickness ‘ 下側
‘ ねじれを適用
vPoints((UBound(vPoints) / 2 + 1 + i) 3) = x_val cosTwist – z_val sinTwist
vPoints((UBound(vPoints) / 2 + 1 + i) 3 + 1) = offsetY
vPoints((UBound(vPoints) / 2 + 1 + i) 3 + 2) = x_val sinTwist + z_val cosTwist
Next i
‘ 最初の点と最後の点を一致させて閉じたプロファイルにする場合は、最終点を調整
‘ vPoints(UBound(vPoints) – 2) = vPoints(0)
‘ vPoints(UBound(vPoints) – 1) = vPoints(1)
‘ vPoints(UBound(vPoints)) = vPoints(2)
End Sub
コードの解説と保守性の高いプロダクションコードへの道
上記のコードは、基本的なスイープフィーチャ生成の骨格を示しているが、プロダクションレベルで運用するにはさらなる改善が必要だ。
1. 数学モデルの精緻化: `CalculateBladeProfilePoints` サブルーチンは、簡略化された翼型を生成している。実務ではNACA翼型やカスタム翼型のような、より複雑な数式に基づいて正確な座標点を計算する必要がある。Excelや外部データベースから翼型データを読み込むモジュールを別途作成し、連携させるのが現実的だ。
2. オフセット平面の動的生成: 上記の例では、複数のプロファイルを同じ `Top Plane` 上に描いているが、スイープやロフトフィーチャの断面は通常、パスに沿って配置された複数のオフセット平面上に描かれる。`FeatureManager.CreatePlane` メソッドを用いて、パス上の指定位置に動的に平面を生成し、その平面をアクティブにしてスケッチするロジックを組み込むべきだ。
3. LoftFeatureDataの活用: 複数の断面プロファイルと複数のガイドカーブを厳密に制御して複雑な曲面を生成するには、`LoftFeatureData` オブジェクトが `SweptFeatureData` よりも適している。`LoftFeatureData.SetProfiles` と `LoftFeatureData.SetGuideCurves` メソッドを使い、スケッチの配列を直接渡すことで、より高度なロフトフィーチャを定義できる。
4. エラーハンドリングの徹底: API呼び出しの戻り値（Boolean, Long Status）は常にチェックし、エラー発生時には適切なメッセージを表示して処理を中断する。`SldWorks.GetLastError` メソッドを活用し、SolidWorks固有のエラーコードを捕捉することで、より具体的なデバッグ情報が得られる。
5. モジュール化と再利用性: 各機能（例: 新規ドキュメント作成、平面選択、スケッチ描画、フィーチャ生成）を独立したサブルーチンや関数として分離することで、コードの可読性が向上し、テストやメンテナンスが容易になる。共通のユーティリティ関数は別途モジュールにまとめるべきだ。
6. ユーザーインターフェース (UI) の実装: パラメータをコード内に直接記述するのではなく、Excel VBAのユーザーフォームや、VB.NET/C#で作成した外部アプリケーションからパラメータを入力できるようにすることで、ツールの汎用性と使いやすさが飛躍的に向上する。
発展的な考察とチーフアーキテクトからの助言
APIの限界と回避策
SolidWorks APIは非常に強力だが、万能ではない。特に、極めて複雑な自由曲面や、特定のサーフェス定義方法がAPIで直接サポートされていない場合がある。
- サーフェスAPIの活用: ロフトやスイープで生成が困難な曲面は、`FeatureManager.CreateFromCurves` や `CreateFilledSurface` などのサーフェスAPIを検討せよ。これらのAPIは、複数の参照曲線から直接サーフェスを生成する能力を持つ。
- フィーチャの編集と親子関係: 一度作成したフィーチャをAPIで編集することは、新規作成に比べてはるかに複雑だ。特に、フィーチャ間の親子関係が複雑になると、編集が困難になる場合がある。可能な限り、パラメータを変更してフィーチャを「再生成」するアプローチを検討することも有効だ。
- SolidWorks PDMとの連携: 設計データがPDMで管理されている場合、VBAスクリプトはPDM APIと連携してファイルのチェックアウト/チェックイン、バージョン管理を行う必要がある。これにより、データの整合性を保ち、チーム開発を円滑に進める。
パラメトリック設計の未来
SolidWorks VBAによる自動化は、パラメトリック設計の強力な基盤となる。
- Excelとの連携: パラメータ群をExcelシートで管理し、VBAから読み込むことで、設計者はコードに触れることなく、膨大な設計バリエーションを生成できるようになる。
- 外部GUIツールとの連携: VB.NETやC#で開発されたデスクトップアプリケーションは、SolidWorks VBAよりもリッチなUIと高度なロジックを提供できる。SolidWorksのタイプライブラリを参照し、COMインターフェースを介してAPIを呼び出すことで、より洗練された自動化ツールを構築可能だ。
継続的な改善とチーム開発への提言
自動化ツールは一度作ったら終わりではない。
- コードレビュー: 複数人でコードをレビューし、堅牢性、可読性、パフォーマンス、そしてSolidWorks APIのベストプラクティスが守られているかを確認する。
- テスト駆動開発 (TDD): 小さな機能単位でテストコードを作成し、期待通りの動作をするかを確認する。これにより、将来の変更によるデグレードを防ぐ。
- ドキュメンテーション: コード内にコメントを豊富に含めるだけでなく、ツールの使用方法、パラメータの定義、エラーコードの意味などをまとめたドキュメントを整備する。
- バージョン管理: Gitなどのバージョン管理システムを導入し、変更履歴を追跡し、複数人での並行開発を可能にする。
結論
SolidWorks VBAによるインペラ・羽根形状の自動生成は、高度な数学的理解、SolidWorks APIの深い洞察、そして堅牢なソフトウェア設計原則が融合して初めて実現される。本記事で示したのは、その道のりの第一歩に過ぎないが、最も重要な基礎と、チーフアーキテクトとしての思考のエッセンスを詰め込んだつもりだ。
単なる「動くコード」ではなく、「壊れない、速い、保守できるコード」を目指せ。オブジェクトの生成と解放、フィーチャマネージャの更新抑制、エラーハンドリング。これらの基本を徹底するだけで、諸君のツールは劇的に進化するだろう。
この知識を血肉とし、諸君がそれぞれの現場で「伝説」と呼ばれる自動化ツールを創り出すことを期待している。自動化の道は険しいが、その先には無限の可能性が広がっていることを忘れるな。挑戦し続けろ！
