SolidWorks VBAを掌握する極限の知見：PartDoc.NewDocumentExを用いた社内標準テンプレートからの安全なパーツ生成
SolidWorks VBAによる業務自動化を担う皆さん、こんにちは。開発プロジェクトのチーフアーキテクトとして、私は長年、SolidWorks APIの深淵を覗き、数々の自動化システムを構築してきました。今日皆さんに伝授するのは、単なるAPIリファレンスの引き写しではありません。オブジェクトのライフサイクル、パフォーマンスの重み、そして何よりも「バグの起きない堅牢な設計」という、真にプロフェッショナルな視点から見たSolidWorksパーツファイルの新規作成術です。
なぜ「新規パーツ作成」に極限の知見が必要なのか？
SolidWorks VBAでジオメトリ生成やフィーチャ操作を行う際、まず最初に立ちはだかるのが「新規パーツファイルの作成」です。一見すると簡単なこの操作ですが、実は多くの開発者が陥りがちな落とし穴が存在します。
一般的な`SldWorks.NewDocument`メソッドは、手軽に見えて非常に危険です。なぜなら、このメソッドはSolidWorksの「新規ドキュメント」ダイアログで最後に使用されたテンプレート、あるいはSolidWorksシステムオプションで設定されたデフォルトテンプレートに依存してしまうからです。これは何を意味するでしょうか？
それは、「あなたの開発したツールが、ユーザーの環境や過去の操作履歴に依存して動作が変わる可能性がある」ということです。設計標準が厳格に定められた企業環境において、これは致命的な問題となり得ます。例えば、意図しないテンプレートからパーツが作成され、プロパティや単位系が異なることで、後続の自動化処理が破綻したり、さらには手戻りや設計ミスに繋がるリスクを孕んでいます。
私たちが目指すべきは、常に「予測可能で、制御可能で、堅牢なシステム」です。そのためには、`SldWorks.NewDocumentEx`メソッドを正しく理解し、活用することが不可欠となります。
`SldWorks.NewDocumentEx` の真髄 – テンプレート指定の絶対性
`SldWorks.NewDocumentEx`は、まさにこの問題に対する私たちの回答です。このメソッドは、新規ドキュメント作成時に使用するテンプレートを明示的に、絶対パスで指定することを可能にします。これにより、ユーザー環境に左右されず、常に意図したテンプレートからパーツを生成できるようになります。
メソッドシグネチャと引数の意味
Function NewDocumentEx( _
ByVal TemplateName As String, _
ByVal ConfigurationName As String, _
ByVal Width As Double, _
ByVal Height As Double, _
ByVal Units As Long _
) As Object
- `TemplateName` (String): ここが最も重要です。 使用するテンプレートファイル（.prtdot, .asmdot, .drwdot）の絶対パスを指定します。
- `ConfigurationName` (String): 通常、パーツテンプレートでは空文字列 (“”) を指定します。アセンブリや図面テンプレートの場合、特定のコンフィギュレーション名を指定できますが、パーツの場合は基本無視されます。
- `Width` (Double): 図面テンプレートの場合にシート幅を指定しますが、パーツテンプレートでは基本無視されます。
- `Height` (Double): 図面テンプレートの場合にシート高さを指定しますが、パーツテンプレートでは基本無視されます。
- `Units` (Long): 図面テンプレートの場合に単位系を指定しますが、パーツテンプレートでは基本無視されます。`swUnits_e` 列挙型を使用します。
パーツファイルを新規作成する際は、`TemplateName` 以外の引数はほとんどの場合、デフォルト値（空文字列やゼロ）で問題ありません。しかし、`TemplateName`だけは、絶対に適切なテンプレートファイルの絶対パスを指定してください。
堅牢なコードを構築する – 例外処理とファイルパス検証
プロダクションレベルのコードでは、単にAPIを呼び出すだけでは不十分です。パスの不正、ファイルの欠損、SolidWorksの予期せぬエラーなど、あらゆる事態を想定し、適切にハンドリングする必要があります。
1. テンプレートパスの妥当性チェック
`NewDocumentEx`に渡す前に、指定されたテンプレートファイルが存在するかどうかを確認するのは基本中の基本です。これにより、SolidWorksがエラーを発生させる前に、アプリケーション側で問題を検出できます。
2. SolidWorks APIのエラーハンドリング
`NewDocumentEx`が返すオブジェクトが`Nothing`である場合、何らかのエラーが発生しています。このとき、`SldWorks.GetLastError`メソッドを呼び出すことで、より詳細なエラーコードを取得し、適切なエラー処理を行うことができます。
3. フォールバック戦略（オプション）
もし指定されたテンプレートが見つからない場合、ユーザーに通知するだけでなく、「代替のデフォルトテンプレート」や「標準のパーツテンプレート」を使用するなどのフォールバック戦略を検討することも、よりユーザーフレンドリーなツール設計に繋がります。
実践！プロダクションコード例
それでは、これらの知見を盛り込んだ、堅牢で保守性の高いVBAコードを見ていきましょう。
この例では、テンプレートパスをコード内にハードコーディングせず、定数として定義しています。実運用では、設定ファイル（INI, XML）、データベース、またはレジストリから読み込むことで、より柔軟な管理が可能になります。
Option Explicit
‘ — 定数定義 —
‘ 社内標準パーツテンプレートの絶対パスを定義します。
‘ 実際には、このパスは設定ファイルやデータベースから読み込むべきです。
Private Const PART_TEMPLATE_PATH As String = “C:\SolidWorks_Templates\MyCompany_StandardPart.prtdot”
‘ 例: 存在しないパスをシミュレートする場合
‘ Private Const PART_TEMPLATE_PATH As String = “C:\SolidWorks_Templates\NonExistentPart.prtdot”
Sub CreateNewPartFromTemplate()
Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.PartDoc
Dim sErrors As Long
Dim sWarnings As Long
Dim sTemplateName As String
‘ エラーハンドラを設定
On Error GoTo ErrorHandler
‘ SolidWorksアプリケーションオブジェクトを取得
‘ 既に実行中のSolidWorksがあればそれを取得、なければ新規起動
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksアプリケーションが見つかりません。”, vbCritical
Exit Sub
End If
‘ — テンプレートパスのバリデーション —
sTemplateName = PART_TEMPLATE_PATH
‘ ファイルが存在するかどうかをチェック
If Not DoesFileExist(sTemplateName) Then
MsgBox “指定されたテンプレートファイルが見つかりません。” & vbCrLf & _
“パス: ” & sTemplateName & vbCrLf & _
“処理を中断します。”, vbCritical
Exit Sub
End If
‘ — PartDoc.NewDocumentEx を用いた安全なパーツ生成 —
Debug.Print “テンプレートから新規パーツを作成中: ” & sTemplateName
‘ NewDocumentExを使用して新規パーツドキュメントを作成
‘ テンプレートパス以外はパーツテンプレートに影響しないため、空文字列またはゼロを指定
Set swPart = swApp.NewDocumentEx(sTemplateName, “”, 0, 0, 0)
‘ NewDocumentExがNothingを返した場合、エラーが発生
If swPart Is Nothing Then
‘ SolidWorks APIからの詳細なエラーコードを取得
sErrors = swApp.GetLastError()
MsgBox “新規パーツファイルの作成に失敗しました。” & vbCrLf & _
“SolidWorksエラーコード: ” & sErrors & vbCrLf & _
“指定されたテンプレート: ” & sTemplateName & vbCrLf & _
“処理を中断します。”, vbCritical
GoTo CleanUp
End If
Debug.Print “新規パーツファイルが正常に作成されました。”
Debug.Print “ドキュメント名: ” & swPart.GetTitle
‘ — ここから、生成されたパーツに対するジオメトリ生成やフィーチャ操作 —
‘ 例: 原点にスケッチを作成
Dim swModel As SldWorks.ModelDoc2
Set swModel = swPart
If Not swModel Is Nothing Then
swModel.Extension.SelectByID2 “正面”, “PLANE”, 0, 0, 0, False, 0, Nothing, 0
swModel.SketchManager.InsertSketch True
Dim swSketchMgr As SldWorks.SketchManager
Set swSketchMgr = swModel.SketchManager
Dim swSketchSegment As SldWorks.SketchSegment
Set swSketchSegment = swSketchMgr.CreateCircle(0, 0, 0, 0.05, 0, 0) ‘ 原点に半径0.05mの円
swModel.SketchManager.InsertSketch True
‘ 例: 押し出しフィーチャの作成
Dim swFeat As SldWorks.Feature
Dim vBodies As Variant
‘ 選択をクリアし、スケッチを選択
swModel.ClearSelection2 True
swModel.Extension.SelectByID2 “Sketch1”, “SKETCH”, 0, 0, 0, False, 0, Nothing, 0
‘ 押し出しフィーチャを作成 (10mm)
Set swFeat = swModel.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)
If swFeat Is Nothing Then
MsgBox “押し出しフィーチャの作成に失敗しました。”, vbCritical
Else
Debug.Print “押し出しフィーチャが正常に作成されました。”
End If
‘ モデルを再描画
swModel.GraphicsRedraw
End If
‘ ——————————————————————–
CleanUp:
‘ オブジェクト参照を解放 (非常に重要！)
‘ これにより、メモリリークやSolidWorksプロセスのゾンビ化を防ぎます。
If Not swFeat Is Nothing Then Set swFeat = Nothing
If Not swSketchSegment Is Nothing Then Set swSketchSegment = Nothing
If Not swSketchMgr Is Nothing Then Set swSketchMgr = Nothing
If Not swModel Is Nothing Then Set swModel = Nothing
If Not swPart Is Nothing Then Set swPart = Nothing
‘ swAppはアプリケーション全体なので、ツール終了時以外は解放しないことが一般的
‘ Set swApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description & ” (コード: ” & Err.Number & “)”, vbCritical
Resume CleanUp ‘ エラー発生時もCleanUpルーチンを確実に実行
End Sub
‘ — ヘルパー関数 —
Private Function DoesFileExist(ByVal filePath As String) As Boolean
‘ FSO (FileSystemObject) を使用してファイル存在チェック
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
DoesFileExist = fso.FileExists(filePath)
Set fso = Nothing
End Function
コードのポイント
- `Option Explicit`: 変数の宣言漏れを防ぎ、バグの温床を排除します。
- 定数によるテンプレートパスの管理: ハードコーディングを避け、保守性を高めます。
- ファイル存在チェック: `NewDocumentEx`呼び出し前に、テンプレートファイルの有効性を確認します。
- `NewDocumentEx`戻り値の確認: `Nothing`が返された場合、`SldWorks.GetLastError`で詳細なエラーコードを取得します。これにより、問題の特定とデバッグが容易になります。
- エラーハンドラ (`On Error GoTo`): 予期せぬランタイムエラーからアプリケーションを保護し、制御された終了を可能にします。
- オブジェクト参照の解放 (`Set obj = Nothing`): これが極めて重要です。SolidWorks APIオブジェクトはCOMオブジェクトであり、不要になったら速やかに解放することで、メモリリークを防ぎ、SolidWorksの安定稼働を確保します。特に、`PartDoc`などのドキュメントオブジェクトは、処理完了後に必ず`Nothing`にしてください。
ファイル・データベース連携における注意点
上記のコードでは、テンプレートパスを定数として定義しました。しかし、実際の業務システムでは、テンプレートパスは以下のように外部化すべきです。
1. 設定ファイル (INI, XML):
- ツールの配布が容易。
- テキストエディタで簡単に変更可能。
- 例: `App.config` (VB.NET), `settings.ini`
2. データベース (SQL Server, Accessなど):
- 大規模システム、複数テンプレート、中央管理が必要な場合に最適。
- テンプレートの種類、バージョン、適用部署などを関連付けて管理できる。
- 複数ユーザーで同じ設定を参照可能。
- 例: テンプレートマスタテーブルから`TemplatePath`をクエリして取得。
ハードコーディングは、パス変更のたびにコードの修正・再コンパイル・再配布が必要となり、保守コストを著しく高めます。将来的な拡張性や運用負荷を考慮し、必ず外部からの設定読み込みを実装しましょう。
パフォーマンスとオブジェクトライフサイクル
`SldWorks.NewDocumentEx`メソッドは、内部で以下の処理を行っています。
1. 指定されたテンプレートファイルを読み込む。
2. SolidWorksの内部メモリ上に新しいドキュメントインスタンスを作成する。
3. そのドキュメントをSolidWorksアプリケーションのUI（表示領域）にロードする。
4. 新しく作成されたドキュメントのCOMオブジェクト参照を呼び出し元に返す。
この一連のプロセスは、特にテンプレートファイルのサイズやSolidWorksの起動状況によって、それなりの時間がかかる場合があります。したがって、不必要に何度も新規ドキュメントを作成することは避けるべきです。
そして、最も重要なのが「オブジェクトのライフサイクル管理」です。`Set swPart = swApp.NewDocumentEx(…)`で取得した`swPart`オブジェクトは、SolidWorksのメモリ内に存在する特定のドキュメントインスタンスへの参照です。この参照が不要になったら、必ず`Set swPart = Nothing`として明示的に解放してください。
これを怠ると、以下の問題が発生します。
- メモリリーク: 不要なオブジェクトがメモリ上に残り続け、システムリソースを圧迫します。
- SolidWorksの不安定化: 未解放のオブジェクトが原因で、SolidWorks自体が予期せぬ動作をしたり、クラッシュする可能性があります。
- ゾンビプロセス: VBAスクリプトが終了しても、SolidWorksプロセスが完全に終了せず、バックグラウンドで残り続けることがあります。
特に、ループ処理内で多数のドキュメントを生成・処理するような自動化では、このオブジェクト解放の徹底がパフォーマンスと安定性の鍵となります。
まとめ
SolidWorks VBAにおけるパーツファイルの新規作成は、`SldWorks.NewDocumentEx`メソッドを用いることで、予測可能で堅牢なシステムを構築するための第一歩となります。
- `NewDocument`ではなく`NewDocumentEx`を使いましょう。
- テンプレートの絶対パスを明示的に指定しましょう。 これにより、社内標準を遵守し、環境依存の問題を排除できます。
- テンプレートパスは外部化し、ハードコーディングを避けましょう。 設定ファイルやデータベースからの読み込みを検討してください。
- ファイル存在チェックとSolidWorksのエラーコードハンドリングを徹底しましょう。
- 生成されたオブジェクトは、使用後に必ず`Set obj = Nothing`で解放しましょう。 これはパフォーマンスと安定性の根幹に関わる、極めて重要な作業です。
これらの知見を実践することで、皆さんのSolidWorks VBAツールは、単に「動く」だけでなく、「安定して、堅牢に、そして持続的に」業務効率化に貢献する、真に価値あるソリューションへと昇華するでしょう。
次のステップでは、生成されたパーツに対して、設計意図を正確に反映したスケッチやフィーチャを、いかにパラメトリックかつロバストに生成するかについて深掘りしていきましょう。ご期待ください。
