【実務・中級編】【初心者向け】図面ドキュメント新規作成時のテンプレートファイルパス動的切替マクロ – SolidWorks VBA解析バイブル

SolidWorks VBA

2026.11.06

「パスを直書きするな」―― プロフェッショナルな図面自動生成のためのテンプレート動的切替設計術

「パスを直書きするな」―― プロフェッショナルな図面自動生成のためのテンプレート動的切替設計術

エンジニアリングの現場において、「動けばいい」という考え方は、技術的負債という名の時限爆弾を抱えることと同義である。

多くの初心者がSolidWorks VBAに触れ、最初に書くコードは決まってこうだ。
`swApp.NewDocument(“C:\Users\Desktop\Template\Standard.slddrw”)`

断言しよう。そのコードは、プロの仕事ではない。

なぜか？そのパスが、隣の席の人間、あるいは来月の自分にとって正しいパスである保証がどこにある？サーバーのフォルダ構成が変わった瞬間、あるいはプロジェクトの規格が「標準」から「航空宇宙仕様」に変わった瞬間、そのマクロは無残にエラーを吐いて停止する。

本稿では、単なる「テンプレートを開くマクロ」ではない。案件や規格に応じて最適な図面テンプレートを自律的に判別し、堅牢に動作する「動的テンプレート切替ロジック」の設計思想を伝授する。

1. 設計思想：なぜ「動的」である必要があるのか

業務自動化において、設計者が考慮すべきは「正常系（ファイルがある時）」だけではない。「異常系（ファイルがない、ネットワークが切れている、権限がない）」をどうハンドリングするかだ。

プロフェッショナルな実装には、以下の3つの原則が必要となる。

1. Single Source of Truth (信頼できる唯一の情報源): パスをコード内に散らばらせず、一箇所（設定ファイルや特定のロジック内）で管理する。
2. Existence Verification (存在確認の徹底): ファイルを開こうとする前に、そのパスが物理的に存在するかを必ず検証する。
3. Decoupling (疎結合): 「どのテンプレートを使うか」という判断ロジックと、「図面を作成する」という実行ロジックを分離する。

2. 実装戦略：案件・規格に応じた判別アルゴリズム

今回は、最も実用的な「案件コード（または製品カテゴリ）を引数として受け取り、対応するテンプレートパスを返却する」という設計を採用する。

構成案

判定ロジック: `Select Case` 文を用いた、カテゴリとパスの紐付け。
ガード句: ファイルの存在チェック `Dir()` 関数によるエラー回避。
例外処理: `On Error GoTo` による、予期せぬ停止の防止。

3. プロダクション・コード：堅牢なテンプレート切替マクロ

以下に、そのまま実務の基盤として利用できるレベルのコードを示す。単なるコピペではなく、コメントに記した「意図」を読み解いてほしい。

Option Explicit

' ==============================================================================
' 構成要素:
' 1. Enum ProjectType: 案件タイプを型として定義（マジックナンバーを排除）
' 2. GetTemplatePath: 案件に応じたパスを返す「知能」部分
' 3. CreateDrawingWithTemplate: 実際に図面を生成する「実行」部分
' ==============================================================================

' 案件の種類を定義（可読性と保守性を高める）
Public Enum ProjectType
    ptStandard    ' 標準案件
    ptAerospace   ' 航空宇宙案件
    ptHeavyDuty   ' 重工業案件
    ptUnknown     ' 未定義
End Enum

''' <summary>
''' メインエントリーポイント
''' </summary>
Public Sub Main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    
    ' --- 実務上の想定: ユーザー入力やExcelのセルから案件タイプを取得 ---
    ' ここではデモとして「航空宇宙案件」を指定
    Dim targetType As ProjectType
    targetType = ptAerospace 
    
    ' 図面作成の実行
    Call CreateDrawingWithTemplate(swApp, targetType)
End Sub

''' <summary>
''' 指定された案件タイプに基づいて図面を新規作成する
''' </summary>
''' <param name="swApp">SolidWorks Application Object</param>
''' <param name="pType">案件タイプ(ProjectType Enum)</param>
Public Sub CreateDrawingWithTemplate(ByRef swApp As SldWorks.SldWorks, ByVal pType As ProjectType)
    Dim templatePath As String
    Dim errors As Long
    Dim warnings As Long
    
    On Error GoTo ErrorHandler

    ' 1. 適切なテンプレートパスを取得（ロジックの分離）
    templatePath = GetTemplatePath(pType)
    
    ' 2. パスの妥当性検証（存在しないパスでNewDocumentを呼ぶのは悪手）
    If templatePath = "" Then
        MsgBox "エラー: 指定された案件タイプに対応するテンプレート設定がありません。", vbCritical, "設定エラー"
        Exit Sub
    End If
    
    If Dir(templatePath) = "" Then
        MsgBox "エラー: テンプレートファイルが見つかりません。" & vbCrLf & templatePath, vbCritical, "ファイル不在"
        Exit Sub
    End If

    ' 3. 図面の新規作成
    ' NewDocument(TemplateName, PaperSize, Width, Height)
    ' ※ここでは標準的なサイズを指定しているが、テンプレート側に依存させる設計も可能
    Dim swModel As SldWorks.ModelDoc2
    Set swModel = swApp.NewDocument(templatePath, 0, 0, 0)

    If swModel Is Nothing Then
        MsgBox "エラー: 図面の作成に失敗しました。テンプレートが破損している可能性があります。", vbCritical, "作成失敗"
        Exit Sub
    End If

    MsgBox "図面の作成に成功しました。" & vbCrLf & "使用テンプレート: " & templatePath, vbInformation, "完了"
    
    Exit Sub

ErrorHandler:
    MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
           "エラー番号: " & Err.Number & vbCrLf & _
           "内容: " & Err.Description, vbCritical, "システムエラー"
End Sub

''' <summary>
''' 案件タイプからテンプレートのフルパスを決定する（ここがマクロの「頭脳」）
''' </summary>
''' <param name="pType">案件タイプ</param>
''' <returns>有効なファイルパス、または空文字</returns>
Private Function GetTemplatePath(ByVal pType As ProjectType) As String
    ' 本来はここを外部ファイル(Excel/INI/JSON)から読み込むように拡張するのが理想。
    ' 現状は保守性を考慮し、定数管理に近い形で実装。
    
    Dim baseDir As String
    ' サーバー上の共通ディレクトリを起点にする（絶対パスのハードコードを避ける）
    ' ※環境に合わせて変更すること
    baseDir = "C:\SolidWorks_Standard\Templates\"

    Select Case pType
        Case ptStandard
            GetTemplatePath = baseDir & "Standard_A3.slddrw"
            
        Case ptAerospace
            GetTemplatePath = baseDir & "Aero_Spec_A2.slddrw"
            
        Case ptHeavyDuty
            GetTemplatePath = baseDir & "Heavy_Spec_A1.slddrw"
            
        Case Else
            GetTemplatePath = ""
    End Select
End Function

4. アーキテクトの視点：さらに高みを目指すために

このコードは「動く」レベルを超え、「運用に耐えうる」設計になっている。しかし、真のマスターを目指すなら、以下のステップを検討せよ。

① パスの外部化（Configuration Driven）

上記のコードでは `GetTemplatePath` 内にパスを記述しているが、これはまだ「半自動」だ。
真の自動化は、「VBAコードを一行も書き換えずに、ExcelやINIファイル、あるいはデータベースの値を書き換えるだけで、新しいテンプレートに対応できる」状態を指す。
`FileSystemObject` を使い、外部のCSVファイルから `[案件名, パス]` のリストを読み込むロジックへ昇華させよ。

② ライフサイクル管理

`swApp.NewDocument` はメモリを消費する。大量の図面をループで生成する場合、作成した `ModelDoc2` オブジェクトを適切に解放（`Set swModel = Nothing`）し、必要に応じて `swApp.CloseDoc` を呼び出す設計を忘れるな。

③ エラーハンドリングの階層化

今回は `MsgBox` でユーザーに通知しているが、バックグラウンドで動作するツール（Batch Processing）を作る場合は、エラーをログファイルに書き出す設計に変える必要がある。ユーザーの画面を止めることは、自動化における「失敗」の一つであることを忘れないことだ。

結論

自動化エンジニアの価値は、コードの行数ではなく、「そのコードがどれだけ長く、安定して、変化に強く機能し続けるか」で決まる。

「パスを直書きする」という安易な道を選んでいないか。
「ファイルが存在するか」を確認する慎重さを持っているか。
「ロジックとデータを分離」できているか。

この原則を胸に、次なるツールを設計してほしい。