🚀 【SolidWorks VBA 掌握への第一歩】テンプレートの自動切替で「マクロ記録」を卒業しよう
こんにちは。設計自動化の世界へようこそ。
SolidWorksを使っていて、「毎回、手動でテンプレートを選んで図面を開くのが面倒だな……」と感じたことはありませんか？ あるいは、マクロの記録機能を使って「図面を開く動作」を記録してみたものの、「記録したときと違うテンプレートを使いたいときはどうすればいいんだろう？」と壁にぶつかったことは？
もしあなたが今、「マクロの記録」で吐き出されたコードを眺めて立ち止まっているなら、おめでとうございます。あなたは今、「単なる操作の再生」から「知的な自動化」へと進化する境界線に立っています。
今日は、プログラミング初学者が最初に乗り越えるべき壁、「条件に応じてテンプレートファイルを動的に切り替えて図面を作成する」というテーマについて、その本質を解き明かしていきましょう。
ここをクリアすれば、SolidWorks VBAの基本はバッチリですよ。
1. なぜ「マクロの記録」では足りないのか？
マクロの記録機能は非常に便利ですが、決定的な弱点があります。それは「思考（ロジック）を持っていない」ことです。
記録されたコードは、あくまで「今、この瞬間に、このファイルを開いた」という事実を固定値（ハードコード）として記録します。
- 「A案件のときは、A用のテンプレート」
- 「B規格のときは、B用のテンプレート」
これを記録だけで実現しようとすると、案件が増えるたびにマクロを書き直さなければなりません。これは「自動化」ではなく、単なる「動作の固定化」です。
私たちが目指すべきは、「案件の種類を判断し、それに応じたパス（ファイルの住所）を計算して、適切なテンプレートを呼び出す」という、判断力を持ったプログラムです。
2. 設計図を描こう：ロジックの組み立て
コードを書く前に、まずは頭の中で「処理の流れ」を整理しましょう。エンジニアにとって、コードを書くことよりも「ロジックを組み立てること」の方が遥かに重要です。
今回のプログラムの設計図はこうなります：
1. ユーザーに問いかける（例：「今回の案件タイプは A ですか？ B ですか？」）
2. 条件分岐する（`If` 文を使って、答えに応じたテンプレートのパスを決定する）
3. ファイルの存在を確認する（指定した場所に本当にテンプレートがあるかチェックする）
4. SolidWorksに命令する（`NewDocument` メソッドで図面を生成する）
3. 実践：テンプレート動的切替マクロ
それでは、実際に動くコードを見てみましょう。初心者の方でも読みやすいよう、丁寧にコメントを添えました。
' ==============================================================================
' プログラム名：DynamicTemplateLauncher
' 概要：案件の種類に応じて適切な図面テンプレートを選択して新規作成する
' ==============================================================================
Option Explicit
Sub Main()
' --- 1. オブジェクトの宣言 ---
' SolidWorks本体を操作するための変数
Dim swApp As SldWorks.SldWorks
' 新しく作成された図面ドキュメントを保持するための変数
Dim swModel As SldWorks.ModelDoc2
' テンプレートのパスを格納する変数
Dim templatePath As String
' 案件の種類を格納する変数
Dim projectType As String
' --- 2. SolidWorksへの接続 ---
' 現在起動しているSolidWorksをキャッチします
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox "SolidWorksが起動していません。", vbCritical
Exit Sub
End If
' --- 3. ユーザーへの入力（簡易的な分岐例） ---
' 本来はユーザーフォームなどを使うのが理想ですが、
' ここでは学習のためにInputBoxを使用します。
projectType = InputBox("案件タイプを入力してください。" & vbCrLf & _
"A: 標準規格" & vbCrLf & _
"B: 特注規格", "案件選択")
' --- 4. 条件分岐によるパスの決定 ---
' ここが「思考」の核心部分です
Select Case UCase(projectType)
Case "A"
templatePath = "C:\SW_Data\Templates\Standard_Drawing.slddrw"
Case "B"
templatePath = "C:\SW_Data\Templates\Custom_Drawing.slddrw"
Case Else
MsgBox "無効な入力です。処理を中断します。", vbExclamation
Exit Sub
End Select
' --- 5. ファイルの存在確認 (エラー回避の極意) ---
' 存在しないパスを指定するとマクロがクラッシュします。
' 事前に Dir 関数で確認するのがプロの作法です。
If Dir(templatePath) = "" Then
MsgBox "エラー：テンプレートファイルが見つかりません。" & vbCrLf & _
"パスを確認してください：" & vbCrLf & templatePath, vbCritical
Exit Sub
End If
' --- 6. 図面の新規作成 ---
' NewDocument(テンプレートパス, ドキュメントタイプ, サイズ, 設定名)
' ※ドキュメントタイプは図面(Drawing)の場合、通常は空欄でもパスから判別されます
Set swModel = swApp.NewDocument(templatePath, 0, 0, 0)
' --- 7. 結果の確認 ---
If Not swModel Is Nothing Then
MsgBox "図面の作成に成功しました！", vbInformation
Else
MsgBox "図面の作成に失敗しました。", vbCritical
End If
End Sub4. 伝説のアーキテクトが教える「ここが重要！」
コードをコピーして動かすだけで終わってはもったいない。このコードの裏側にある「設計思想」を解説します。これを知っているかどうかが、初級者とプロフェッショナルの分かれ道です。
① オブジェクトの「代入」と「ライフサイクル」
コード内で `Set swApp = Application.SldWorks` と書いていますね。この `Set` は非常に重要です。
VBAにおいて、数値や文字列は `Set` なしで代入できますが、SolidWorksの機能（オブジェクト）を扱うときは 「これは単なる値ではなく、SolidWorksという巨大なシステムの『一部（参照）』ですよ」 と明示するために `Set` が必要になります。
また、`Set swModel = swApp.NewDocument(…)` の部分は、「新しく作った図面を、後で操作できるように `swModel` という名前の変数に紐付けておく」 という作業をしています。これを忘れると、図面を開いた瞬間にマクロが「あ、開いたけど、その図面をどう扱えばいいか分からなくなった！」と迷子になってしまいます。
② 「防御的プログラミング」の精神
コードの中に `If Dir(templatePath) = “”` という一文を入れました。
初心者はつい、「ファイルがある前提」でコードを書きがちです。しかし、現場では「サーバーの接続が切れた」「誰かがファイルを移動した」といったトラブルが日常茶飯事です。
「エラーが起きてから対処する」のではなく、「エラーが起きる可能性を事前に潰しておく」。これが、止まらない自動化システムを作るための鉄則です。
③ `Select Case` の活用
`If…ElseIf…Else` でも同じことはできますが、分岐条件が増える場合は `Select Case` を使いましょう。コードの可読性（読みやすさ）が劇的に向上します。読みやすいコードは、後で自分や同僚がメンテナンスする際に、最大の恩恵をもたらします。
5. 次のステップへ
今回のマクロは、まだ「入力」の部分が `InputBox` という非常にシンプルなものでした。
次のステップとしては、以下のような挑戦をしてみてください。
- ユーザーフォームの作成: ボタン一つで「A案件」「B案件」を選べる綺麗な画面を作る。
- フォルダ構成の自動取得: 現在開いているパーツファイルのフォルダを読み取り、その中にあるテンプレートを自動的に探す。
一歩ずつで大丈夫です。SolidWorks VBAの世界は、正しく学べばあなたの設計業務を劇的に、そして魔法のように変えてくれる強力な武器になります。
「マクロを記録する側」から、「システムを設計する側」へ。
あなたの挑戦を、心から応援しています！
