SolidWorks VBAを掌握する極限の知見：バージョン差異の荒波を越える「ラッパー設計」の極意
こんにちは。設計自動化の世界へようこそ。
「マクロの記録」ボタンを押し、書き出されたコードを見て「ふむふむ、動いているな」と満足する。それは最初の一歩としては素晴らしいことです。しかし、あなたがもし「現場で、誰がどのバージョンを使っても、絶対に壊れない堅牢なツール」を作りたいと願うなら、その先に待っている「バージョンの壁」という巨大な試練に立ち向かう必要があります。
SolidWorksは進化し続けています。2022で完璧に動いていた図面生成マクロが、2024にアップデートした途端、「参照不可」のエラーを吐いて沈黙する……。これは、多くのエンジニアが経験する「洗礼」です。
今日は、そんな「バージョンという名の荒波」を軽やかに乗り越え、プロフェッショナルな自動化エンジニアへと昇華するための、動的バインディングとラッパー設計という魔法を伝授しましょう。
1. なぜ、あなたのマクロは「突然」壊れるのか？
まず、敵を知ることから始めましょう。なぜバージョンが変わるとエラーが出るのか？
その原因は、VBAの「参照設定（Early Binding）」にあります。
参照設定（Early Binding）の罠
マクロの記録や、初心者向けの解説では、VBAのメニューから「ツール」→「参照設定」で `SldWorks 2023 Type Library` などにチェックを入れます。これは「特定のバージョンの設計図（ライブラリ）を直接見に行く」という行為です。
- メリット: 入力補完（IntelliSense）が効く。動作がわずかに速い。
- デメリット: 設計図のバージョンが変わると、「そんな設計図は知らない！」とエラーになり、マクロが停止する。
プロの現場では、ユーザーがどのバージョンのSolidWorksを使っているか完全には制御できません。特定のバージョンに依存したコードを書くことは、「特定の道しか通れない車」を作っているのと同じなのです。
2. 武器を使い分けろ：Early Binding vs Late Binding
プロフェッショナルは、この性質を理解した上で、二つの手法を使い分けます。
| 特徴 | Early Binding（事前バインディング） | Late Binding（遅延バインディング） |
|---|---|---|
| 参照設定 | 必要（特定のバージョンを指定） | 不要（Object型を使用） |
| 開発効率 | 高い（入力補完が効く） | 低い（コードを暗記する必要あり） |
| 互換性 | 低い（バージョンが変わると壊れる） | 極めて高い（どんなバージョンでも動く） |
| 主な用途 | 開発中のデバッグ、単一環境での高速化 | 配布用ツール、マルチバージョン対応 |
「じゃあ、全部 Late Binding（Object型）で書けばいいじゃないか」と思うかもしれませんね。
鋭いですね。しかし、それだけだと開発中に「メソッド名が思い出せない」「引数の型がわからない」という地獄に陥ります。
そこで登場するのが、今回の本題である「ラッパー設計」です。
3. 究極の解：ラッパー（Wrapper）アーキテクチャ
「ラッパー」とは、いわば「万能アダプター」です。
SolidWorks APIという「不安定なコンセント」と、あなたのメインロジックという「精密な家電」の間に、「どのコンセントにも適合するアダプター（クラス）」を挟む設計手法です。
設計のイメージ図
1. Main Logic (あなたのメインプログラム)
- 「図面を作れ」「シートを置け」という抽象的な命令だけを出す。
2. Wrapper Class (ラッパー・クラス)
- ここで `Object` 型（Late Binding）を使い、SolidWorksの複雑な操作を隠蔽する。
- バージョン差異を吸収する「防波堤」の役割。
3. SolidWorks API (実体)
- 2022でも2024でも、背後で動いている。
4. 実践：図面操作を制御するラッパーの実装
それでは、実際に「図面（Drawing）の操作」を例に、プロ仕様のコードを書いてみましょう。
ここでは、「開発時は補完を効かせ、配布時は互換性を保つ」というハイブリッドな設計を行います。
Step 1: ラッパークラスの作成 (`clsDrawingManager`)
まず、クラスモジュールを新規作成し、名前を `clsDrawingManager` とします。
' ==========================================================
' Class Module: clsDrawingManager
' 役割: SolidWorksの図面操作を抽象化し、バージョン差異を吸収する
' ==========================================================
Option Explicit
Private swApp As Object ' SolidWorks Application (Late Binding)
Private swModel As Object ' Active Document
' 初期化メソッド
Public Sub Initialize(ByRef app As Object)
Set swApp = app
Set swModel = swApp.ActiveDoc
End Sub
' 図面ファイルかどうかを判定する
Public Function IsDrawing() As Boolean
If swModel Is Nothing Then
IsDrawing = False
Exit Function
End If
' Typeを直接比較せず、定数を使って判定（互換性のため）
' 2 = swDocDRAWING
If swModel.GetType = 2 Then
IsDrawing = True
Else
IsDrawing = False
End If
End Function
' 図面のシート名を取得する（API仕様変更への備え）
Public Function GetActiveSheetName() As String
On Error GoTo ErrHandler
Dim swDraw As Object
Dim swSheet As Object
Set swDraw = swModel
Set swSheet = swDraw.GetActiveSheet
GetActiveSheetName = swSheet.GetName
Exit Function
ErrHandler:
' 万が一、メソッドが存在しないバージョンでもエラーで止まらない
GetActiveSheetName = "Error: API Unreachable"
End Function
' ----------------------------------------------------------
' ここに、ビューの配置、フォーマット制御などのメソッドを
' どんどん追加していく。メインロジックはこれらを呼ぶだけ。
' ----------------------------------------------------------Step 2: メインロジック（標準モジュール）
次に、実際に使う側のコードです。見てください、この「美しさ」を。
' ==========================================================
' Standard Module: MainModule
' 役割: ビジネスロジック（何をしたいか）のみを記述
' ==========================================================
Option Explicit
Sub ProfessionalDrawingAutomation()
' 1. SolidWorksへの接続（ここはLate Bindingで安全に）
Dim swApp As Object
On Error Resume Next
Set swApp = GetObject(, "SldWorks.Application")
If swApp Is Nothing Then
MsgBox "SolidWorksが起動していません。", vbCritical
Exit Sub
End If
On Error GoTo 0
' 2. ラッパーのインスタンス化
Dim drawingMgr As New clsDrawingManager
drawingMgr.Initialize swApp
' 3. 図面チェック（ラッパーに任せる）
If Not drawingMgr.IsDrawing() Then
MsgBox "図面ファイルを開いた状態で実行してください。", vbExclamation
Exit Sub
End If
' 4. メイン処理（APIの細かいことは気にせず、目的の操作だけを書く）
Dim currentSheet As String
currentSheet = drawingMgr.GetActiveSheetName
MsgBox "現在のシート名は [" & currentSheet & "] です。" & vbCrLf & _
"バージョン差異を気にせず、安全に操作を継続できます。", vbInformation
End Sub5. なぜこれが「最強」なのか？（エンジニアの視点）
この設計には、3つの決定的な利点があります。
1. 「思考の分離」ができる
メインロジックを書いている時、あなたは「`swDraw.GetActiveSheet` の戻り値は何だったかな？」と悩む必要はありません。`drawingMgr.GetActiveSheetName` を呼ぶだけです。「何をしたいか」と「どう実現するか」が分離されているのです。
2. 「修正の局所化」ができる
もし、SolidWorks 2025で図面の取得方法が劇的に変わったとしても、修正が必要なのは `clsDrawingManager` クラスの中身だけです。メインロジック（業務ルール）は何百箇所あろうとも、一切書き換える必要はありません。
3. 「堅牢なエラーハンドリング」
クラス内で `On Error` を適切に管理することで、APIの欠落による「マクロの強制終了」を防ぎ、「エラーが発生しました」という丁寧な通知へと昇華させることができます。
最後に：次なるステップへ
「マクロの記録」は、いわば辞書を丸暗記することです。しかし、プロフェッショナルが目指すのは、辞書を使いこなす「言語の構築」です。
今回紹介したラッパー設計は、最初は少し手間（クラスを作る手間）がかかるかもしれません。しかし、一度この構造を身につければ、あなたの作るツールは「使い捨てのスクリプト」から「資産としてのソフトウェア」へと進化します。
大丈夫、一歩ずつ進めばいい。
コードの向こう側にある「安定した自動化の世界」へ、一緒に踏み出していきましょう。
応援していますよ。
