バージョン差異の罠を越えろ：SolidWorks APIにおける「堅牢な抽象化レイヤー」の設計思想
現場で動く「ツール」を作っているつもりで、実は「特定の環境でしか動かない脆弱なコード」を量産していないか？
設計者として、あるいは自動化エンジニアとして、我々が直面する最大の敵は、APIの複雑さではない。「環境の不一致」だ。
クライアントの設計部門では、2022と2024が混在して運用されている。ある日、昨日まで完璧に動作していた図面自動生成マクロが、「メソッドが見つかりません」という無慈悲なエラーと共に停止する。この瞬間、エンジニアとしての信頼は失墜する。
なぜこのようなことが起きるのか？ 答えは単純だ。「Early Binding（事前バインディング）」に依存しすぎた設計に原因がある。
本稿では、SolidWorksのバージョン差異を完全に吸収し、将来的なアップデートにも動じない、プロフェッショナルなための「ラッパー設計（Wrapper Design）」と「動的バインディング（Late Binding）」の極意を伝授する。
1. なぜ「参照設定」が技術的負債になるのか
多くの開発者が、VBAエディタの「参照設定」から `SldWorks 202X Type Library` にチェックを入れる。IntelliSense（入力補完）が効くため、開発スピードは上がる。しかし、これは「特定のバージョンへの隷属」を意味する。
Early Binding の致命的なリスク
1. 互換性の欠如: 参照しているライブラリのバージョンが異なる環境で実行すると、実行時エラー、あるいは最悪の場合、予期せぬ挙動（メモリ破壊に近い状態）を引き起こす。
2. デプロイの困難さ: ユーザーの環境に合わせて、配布するたびに参照設定を書き換える作業は、自動化の目的である「効率化」に真っ向から対立する。
3. APIの進化への脆弱性: 新しいバージョンでメソッドの引数が変更されたり、列挙型（Enums）が追加されたりした際、コード全体が壊れるリスクがある。
プロフェッショナルは、APIを直接叩かない。「APIをラップした独自のインターフェース」を介して操作する。
2. アーキテクチャ設計：抽象化レイヤーの導入
堅牢なシステムを構築するためには、コードを以下の3つのレイヤーに分離すべきだ。
1. Business Logic Layer (BLL): 「図面を作成し、特定の部品の投影図を配置する」という業務フローを記述する層。ここではAPIの存在すら意識させない。
2. Wrapper Layer (Abstraction Layer): APIのバージョン差異を吸収する層。ここで `Object` 型を用いた動的バインディングを行う。
3. SolidWorks API Layer: 実際のSolidWorks API。
この設計の肝は、「BLLは、自作したラッパークラスのメソッドしか知らない」という状態を作ることにある。
3. 実装例：動的バインディングによる図面操作ラッパー
以下に、図面（Drawing）操作を例とした、プロフェッショナル仕様のラッパー設計を示す。
ステップ1：ラッパークラスの作成 (`CDrawingWrapper`)
まず、クラスモジュールを作成し、名前を `CDrawingWrapper` とする。ここでは、すべてのAPIオブジェクトを `Object` 型として定義し、参照設定に依存しない設計にする。
' Class Module: CDrawingWrapper
Option Explicit
' 内部保持するAPIオブジェクト（すべてObject型で定義）
Private pSwApp As Object
Private pDrawingDoc As Object
Private pSheet As Object
' 初期化メソッド
' 引数として渡されるのは、実行中のSolidWorksアプリケーションオブジェクト
Public Sub Initialize(ByRef swApp As Object)
Set pSwApp = swApp
End Sub
' 図面ドキュメントの取得
Public Function OpenDrawing(ByVal filePath As String) As Boolean
On Error Resume Next
Set pDrawingDoc = pSwApp.OpenDoc6(filePath, 3, 1, pSwApp.GetUserPreferenceStringValue(12), pDrawingDoc, 0) ' 3 = swDocDRAWING
If Err.Number <> 0 Or pDrawingDoc Is Nothing Then
OpenDrawing = False
Else
OpenDrawing = True
End If
On Error GoTo 0
End Function
' シートの切り替え（バージョン差異を吸収する設計）
Public Sub SwitchSheet(ByVal sheetName As String)
If pDrawingDoc Is Nothing Then Exit Sub
' 動的バインディングにより、メソッドが存在するかチェックしながら実行
On Error Resume Next
pDrawingDoc.ActivateSheet sheetName
If Err.Number <> 0 Then
' ここに、古いバージョンや特殊なエラーに対するフォールバック処理を記述できる
Debug.Print "Error switching sheet: " & Err.Description
End If
On Error GoTo 0
End Function
' 投影図の配置（高度な抽象化）
' 座標やスケールを引数にとり、APIの複雑な引数構成を隠蔽する
Public Sub PlaceViewAt(ByVal viewName As String, ByVal x As Double, ByVal y As Double)
If pDrawingDoc Is Nothing Then Exit Sub
Dim swView As Object
Set swView = pDrawingDoc.GetFirstView ' 実際にはルートビューの取得ロジックが必要
' 投影図の操作ロジック...
' APIの仕様変更（引数の追加など）があった場合、このメソッド内だけを修正すれば済む
Debug.Print "Placing view: " & viewName & " at " & x & ", " & y
End Sub
' プロパティ：DrawingDocへのアクセス（必要最小限に絞る）
Public Property Get DrawingDoc() As Object
Set DrawingDoc = pDrawingDoc
End Propertyステップ2：メインロジックの実装
次に、標準モジュールに業務ロジックを記述する。ここでは、`CDrawingWrapper` を通じてのみ操作を行う。
' Standard Module
Option Explicit
Sub Main_DrawingAutomation()
Dim swApp As Object
Dim dwgWrapper As CDrawingWrapper
Dim targetFile As String
' 1. SolidWorksへの接続（Late Binding）
' 参照設定を使わずにGetActiveObjectで取得する
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. ラッパーの初期化
Set dwgWrapper = New CDrawingWrapper
dwgWrapper.Initialize swApp
targetFile = "C:\Temp\SampleDrawing.SLDDRW"
' 3. 業務フローの実行（APIの詳細は一切書かない）
If dwgWrapper.OpenDrawing(targetFile) Then
Debug.Print "図面を開きました。"
dwgWrapper.SwitchSheet "Aサイズシート"
dwgWrapper.PlaceViewAt "Front View", 0.1, 0.1
MsgBox "処理が完了しました。", vbInformation
Else
MsgBox "図面のオープンに失敗しました。", vbExclamation
End If
Set dwgWrapper = Nothing
Set swApp = Nothing
End Sub4. 実務における「堅牢性」を担保する3つの鉄則
この設計を実戦投入する際、以下の3点を必ず遵守せよ。
① 列挙型（Enums）の定数化
Late Bindingを使用すると、`swDocDRAWING` などの組み込み定数が使えなくなる。これを解決するために、ラッパークラス内、あるいは専用の定数モジュールに、自前で定数を定義せよ。
- Bad: `pSwApp.OpenDoc6(path, swDocDRAWING, …)` → コンパイルエラー
- Good: `Const swDocDRAWING As Long = 3` を定義して使用。
② エラーハンドリングの「局所化」
`On Error Resume Next` をメインロジックに書くのは素人のすることだ。エラーハンドリングは、「APIを直接叩いているラッパーの内部」に閉じ込めろ。メインロジックは、ラッパーが返却する `Boolean` や `Error Code` を見て、ビジネス判断を下すことに集中すべきだ。
③ データベース・ファイル連携の整合性
図面自動生成において、ファイル名や属性（カスタムプロパティ）をデータベース（SQL ServerやExcel）から取得する場合、APIのバージョン差異による「保存形式の変更」に注意せよ。
特に、`SaveAs` メソッドの挙動はバージョンによって微妙に異なることがある。ファイル操作を行う際は、必ず `swApp.GetSaveAsVersion` 等を用いて、現在のセッションがサポートしている形式を動的に確認するロジックをラッパーに組み込むこと。
結論
「動けばいい」という思考は、エンジニアリングではない。それは単なる「一時的な解決」に過ぎない。
真に価値のある自動化ツールとは、「開発者が寝ている間も、次世代のSolidWorksがリリースされても、変わらずに動き続けるもの」である。
今回提示した、Late Bindingを用いたラッパー設計を、君のプロジェクトの標準アーキテクチャとして採用してほしい。それが、技術的負債を回避し、プロフェッショナルとしての地位を確立するための唯一の道だ。
