【テクニカル・上級編】【初心者向け】図面作成開始時のダイアログをスキップして指定テンプレートを強制読み込みするVBAマクロ – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.12

テンプレート選択の「摩擦」を抹殺せよ：SolidWorksにおける確実なドキュメント生成のアーキテクチャ

テンプレート選択の「摩擦」を抹殺せよ：SolidWorksにおける確実なドキュメント生成のアーキテクチャ

設計自動化の現場において、エンジニアが直面する最大の敵は「不必要なUIインタラクション」である。

多くの初学者は、マクロを組む際に「いかに操作をシミュレートするか」に固執する。`SendKeys` を使ってダイアログを強引に閉じたり、マウスカーソルを制御してボタンをクリックさせたりする。しかし、そのような実装は、OSのアップデートやSolidWorksのマイナーアップデート、あるいはユーザーの環境設定一つで容易に崩壊する。それは「自動化」ではなく、単なる「動作の模倣」に過ぎない。

真のアーキテクトが追求すべきは、APIレベルでの決定論的な動作である。

本稿では、図面作成時に表示されるテンプレート選択ダイアログという「UIの摩擦」を完全に排除し、指定した社内標準テンプレートを強制的に、かつ極めて低レイテンシでロードするための実装手法を詳解する。単なるコードの提示ではない。オブジェクトのライフサイクル、メモリ管理、そしてレガシー環境における堅牢性を確保するための、極限の知見を共有する。

1. APIの深淵：`NewDocument` メソッドの真実

SolidWorks APIにおける図面生成の核心は `SldWorks.NewDocument` メソッドにある。

多くのエンジニアは、引数を省略した状態でこのメソッドを呼び出し、結果として表示されるダイアログに依存してしまう。しかし、このメソッドのシグネチャを正しく理解すれば、ダイアログを介さずにドキュメントを生成することは極めて単純かつ強力な手法であることがわかる。

' 正しいアプローチの概念
swApp.NewDocument(TemplateName, PaperSize, Width, Height)

ここで重要なのは、第1引数の `TemplateName` である。ここにテンプレートファイルのフルパスを渡した瞬間、SolidWorksはダイアログを表示するプロセスをスキップし、直接ファイルシステムからテンプレートのバイナリを読み込み、ドキュメント構造をメモリ上に構築する。

この「パスの直接指定」こそが、UI層をバイパスし、システム間連携（ERPやPLMからの呼び出し）における決定論的な動作を保証する唯一の手段である。

2. 実装：堅牢なドキュメント生成エンジン

以下に、実務レベルで使用可能な、エラーハンドリングとメモリ管理を徹底した実装例を示す。このコードは、単に図面を開くだけではなく、環境の整合性をチェックし、失敗した際にシステムを不安定にさせない設計となっている。

Option Explicit

' ==============================================================================
' Module: DrawingAutomationEngine
' Description: 高信頼性図面生成モジュール
' ==============================================================================

''' <summary>
''' 指定されたテンプレートパスを使用して、新規図面ドキュメントを強制的に生成する。
''' </summary>
''' <param name="templatePath">社内標準テンプレートの絶対パス</param>
''' <returns>生成されたDrawingDocオブジェクト。失敗した場合はNothing</returns>
Public Function ForceCreateDrawing(ByVal templatePath As String) As swDrawingDoc
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    
    ' 1. オブジェクトの取得（既存インスタンスへの接続を優先）
    On Error Resume Next
    Set swApp = Application.SldWorks ' マクロ内からの呼び出し
    If swApp Is Nothing Then
        ' Windows API等を用いた外部プロセスからの接続ロジックをここに検討すべき
        Err.Raise vbObjectError + 513, "DrawingAutomationEngine", "SolidWorksインスタンスへの接続に失敗しました。"
    End If
    On Error GoTo ErrorHandler

    ' 2. テンプレートの存在確認（I/Oエラーの未然防止）
    If Dir(templatePath) = "" Then
        Err.Raise vbObjectError + 514, "DrawingAutomationEngine", "指定されたテンプレートが見つかりません: " & templatePath
    End If

    ' 3. ドキュメントの生成
    ' 引数: TemplateName, PaperSize, Width, Height
    ' 第2引数以降はテンプレート内の設定が優先されるため、基本は標準値で問題ない
    Set swModel = swApp.NewDocument(templatePath, swDwgPaperSizes_e.swDwgPaperAsize, 0, 0)

    If swModel Is Nothing Then
        Err.Raise vbObjectError + 515, "DrawingAutomationEngine", "ドキュメントの生成に失敗しました。テンプレートの破損を疑ってください。"
    End If

    ' 4. 型のキャストと戻り値の設定
    Set swDraw = swModel
    Set ForceCreateDrawing = swDraw

CleanUp:
    ' 5. メモリ管理の極意
    ' ローカル変数としての参照を明示的に解放することで、
    ' COM参照カウントの不整合によるメモリリークや、プロセス残留を防ぐ
    Set swDraw = Nothing
    Set swModel = Nothing
    Exit Function

ErrorHandler:
    ' ログ出力（実運用ではシステムログへ転送すべき）
    Debug.Print "CRITICAL ERROR: " & Err.Description
    Set ForceCreateDrawing = Nothing
    Resume CleanUp
End Function

''' <summary>
''' エントリーポイント
''' </summary>
Public Sub Main()
    Dim targetTemplate As String
    Dim myDrawing As swDrawingDoc
    
    ' 社内標準パス（環境変数や外部設定ファイルから取得するのが理想的）
    targetTemplate = "C:\Standard\Templates\Company_Standard_A3.drwdot"
    
    Debug.Print "Starting Document Generation..."
    
    ' 実行
    Set myDrawing = ForceCreateDrawing(targetTemplate)
    
    If Not myDrawing Is Nothing Then
        Debug.Print "Success: Drawing created successfully."
        ' ここにビュー配置などの後続処理を記述
    Else
        Debug.Print "Failure: Could not create drawing."
    End If
    
    ' 最終的なクリーンアップ
    Set myDrawing = Nothing
End Sub

3. 伝説的なエンジニアが教える「メモリとライフサイクル」の規律

上記のコードにおいて、私は `Set swDraw = Nothing` を執拗に繰り返している。これは単なる作法ではない。

COM参照カウントの制御

SolidWorksはCOM（Component Object Model）アーキテクチャに基づいている。VBAの変数がスコープを抜けても、内部的な参照カウントがゼロにならない限り、SolidWorksのプロセスやメモリ空間に「ゴースト」が残り続ける。これが、大量の図面を自動生成するバッチ処理において、徐々にメモリ使用量が増大し、最終的にシステムがクラッシュする最大の原因である。

「オブジェクトを生成したなら、その寿命（Life Cycle）を完全に掌握せよ」。これが鉄則だ。

Windows APIによるプロセス制御の検討

より高度なシステム間連携（例えば、C#で書かれた外部アプリケーションからSolidWorksを制御する場合）では、`GetActiveObject` を用いて、既に起動しているSolidWorksインスタンスを確実にキャプチャするロジックが必須となる。新規に `CreateObject` を乱用すると、ユーザーが作業中のSolidWorksとは別に、バックグラウンドで「重い」インスタンスが立ち上がり、マシンのリソースを食いつぶすことになる。

4. まとめ：自動化の本質

「ダイアログをスキップする」という単純な目的の裏には、「ユーザーの介入を許さない、決定論的なシステムの構築」という高度な設計思想が隠されている。

1. UIを介さない: `NewDocument` にフルパスを渡すことで、非決定的なUI要素を排除する。
2. エラーを予見する: ファイルの存在確認、型キャストの検証、適切なエラーハンドリングを実装する。
3. メモリを解放する: COMオブジェクトの参照カウントを制御し、システムの安定性を担保する。

これらを遵守することによってのみ、あなたの書いたコードは「ツール」から、企業を支える「インフラストラクチャ」へと昇華するのである。