SolidWorks APIの深淵：`NewDocument`の罠を回避し、堅牢なパーツ生成を実装する
SolidWorks APIを使いこなすということは、単にメソッドを呼ぶことではない。SolidWorksという巨大なプロセス空間に対し、いかにクリーンに介入し、かつリソースを漏洩させずに制御を明け渡すかという「作法」そのものだ。
多くの初心者が陥る「デフォルトテンプレート依存」という甘えは、社内標準化が進む開発現場においては致命的なリスクとなる。今日は、`ISldWorks::NewDocument`（および`NewDocumentEx`）を用い、社内標準テンプレートを確実に適用しつつ、堅牢なシステムを構築するための「伝説級のコードと哲学」を伝授する。
—
1. なぜ「デフォルト」を信じてはいけないのか
APIにおいて `NewDocument` を引数なし（あるいはパス指定なし）で呼び出すことは、SolidWorksの設定ファイル（`sldreg`）内のパスに依存することを意味する。しかし、エンジニアのPC環境、インストールパス、あるいはネットワーク上の共通フォルダが変更された瞬間に、生成されるパーツの単位系やカスタムプロパティが崩壊する。
真のエンジニアは「環境に依存しない」のではなく、「環境を定義して制御する」。 テンプレートパスは常にハードコードせず、設定ファイルやレジストリから動的に解決せよ。
—
2. 堅牢なパーツ生成：実践的VBA実装
以下は、テンプレートの存在確認、メモリ管理、そしてエラーハンドリングを完璧にこなすためのテンプレート関数だ。
Option Explicit
‘ 伝説のアーキテクトによる、堅牢なパーツ生成関数
Public Function CreatePartFromTemplate(ByVal templatePath As String) As ModelDoc2
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim errors As Long, warnings As Long
‘ 1. インスタンスの取得（GetActiveObjectの安全性）
Set swApp = Application.SldWorks
‘ 2. ファイルシステムの検証（存在しないパスへの配慮）
If Dir(templatePath) = “” Then
Err.Raise vbObjectError + 1001, “CreatePartFromTemplate”, “テンプレートファイルが見つかりません: ” & templatePath
End If
‘ 3. 新規ドキュメント生成（NewDocumentExを使用）
‘ 引数: Template, PaperSize, Width, Height
‘ NewDocumentExは、特定のテンプレートを確実にロードするための最良の手段
Set swModel = swApp.NewDocument(templatePath, 0, 0, 0)
‘ 4. 生成結果の検証（メモリの孤立を防ぐ）
If swModel Is Nothing Then
Err.Raise vbObjectError + 1002, “CreatePartFromTemplate”, “ドキュメントの初期化に失敗しました。”
End If
Set CreatePartFromTemplate = swModel
‘ オブジェクト解放の作法：
‘ swAppはApplicationから取得しているためSet Nothingは不要だが、
‘ swModelは呼び出し元で管理させる。
End Function
—
3. シニアレベルの知見：メモリとリソースの最適化
オブジェクトのライフサイクルを握れ
VBAはガベージコレクションが甘い。特に `ModelDoc2` や `Feature` オブジェクトをループ内で生成する場合、明示的に `Set = Nothing` を行うことは「必須の教養」である。さもなくば、SolidWorksのプロセスは徐々にメモリを食い潰し、数時間後には謎のクラッシュを引き起こす。
Windows APIによるパス検証の強化
`Dir()` 関数はネットワークドライブのレスポンスや権限問題で失敗することがある。より厳密な制御が必要な場合は、Windows APIの `PathFileExists` を利用して、IOレベルでパスの妥当性をチェックせよ。
If VBA7 Then
Private Declare PtrSafe Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
Else
Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long
End If
—
4. チーフアーキテクトからの提言
システム間連携を行う際、最も重要なのは「正常系」よりも「異常系」のハンドリングだ。
テンプレートファイルが読み取り専用になっていないか？ サーバー側のネットワーク遅延でOpenがタイムアウトしないか？
- 例外処理の徹底: `On Error GoTo` を駆使し、失敗した際には必ず `swApp.CloseAllDocuments` や `swApp.ExitApp`（必要に応じて）を呼び出し、ゾンビプロセスを作らないこと。
- テンプレートの保護: テンプレート自体は「読み取り専用」で配布せよ。プログラムからテンプレートを直接編集させるような設計は、技術的負債以外の何物でもない。
結論
SolidWorks APIは、単なる道具ではない。あなたの設計思想をコードに落とし込むための「精密なインターフェース」だ。`NewDocument` を正しく使いこなすことは、その第一歩に過ぎない。
次にあなたが書くコードが、次の10年を支える社内標準の基盤となることを期待している。健闘を祈る。
