SolidWorks API極限活用術：IMeasureによる形状検証・自動検査エンジンの構築
シニアアーキテクトの領域において、SolidWorks VBAは単なる「定型作業の自動化ツール」ではない。それは、CADカーネルと直接対話し、幾何学的データをプログラムの血肉として制御するための超高精度なインターフェースである。
多くのプログラマは、マクロ記録の延長でコードを書き、メモリリークやCOMオブジェクトの解放漏れによってSolidWorksを不安定にさせる。しかし、真のエンジニアは違う。オブジェクトのライフサイクルを完全に支配し、APIの深淵を泳ぎ切る。
今回は、設計データ（Part）の特定面間距離や穴径を`IMeasure`インターフェースによって正確に抽出し、設計許容値からの逸脱を自動検知してExcelへレポートする、品質管理自動化マクロの全貌を解説する。
—
1. 形状検証におけるAPIアーキテクチャの核心
SolidWorksで形状を測定する際、レガシーな`IModelDocExtension::GetMassProperties`や安易なフィーチャ寸法への依存は、実務の現場では通用しない。動的なアセンブリやコンフィギュレーション、あるいは複雑なサーフェスモデルにおいて真に信頼できるのは、`IMeasure`インターフェース（Measureオブジェクト）である。
IMeasureのライフサイクルとメモリ管理の罠
`IModelDoc2::Extension::CreateMeasure`から取得する`IMeasure`オブジェクトは、COMのHeapを大量に消費する典型的な重厚長大オブジェクトである。これを適切に解放（Release）しないままループ処理を回すと、数回のエラーチェックでSolidWorksがメモリ不足（Out of Memory）に陥る。
VBAにおけるガベージコレクションは頼りにならない。生成したCOMオブジェクトは、明示的に `Set xxx = Nothing` を叩き、ポインタの参照カウンタを即座にデクリメントしなければならない。
—
2. 実装：自動寸法測定・逸脱検出エンジン
以下のコードは、アクティブなパーツドキュメントから指定された2つの面（あるいはエンティティ）の距離を測定し、あらかじめ定義された許容値（公差）と比較、逸脱している場合にイミディエイトウィンドウおよびExcelへログを出力する実用コードである。
実務への組み込みを想定し、エラーハンドリングとCOM解放のイディオムを完璧に網羅している。
Option Explicit
‘ =====================================================================================
‘ 幾何公差・形状検証自動化エンジン
‘ Architecture Type: Early Binding with Strict COM Memory Management
‘ =====================================================================================
Public Sub ExecuteQualityInspection()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swExt As SldWorks.ModelDocExtension
Dim swMeasure As SldWorks.Measure
‘ アプリケーションインスタンスの取得（GetLastActiveObjectの罠を回避する標準手法）
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksが起動していません。”, vbCritical
Exit Sub
End If
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical
Exit Sub
End If
‘ パーツドキュメントの型チェック (swDocumentTypes_e.swDocPART = 1)
If swModel.GetType <> swDocPART Then
MsgBox “このマクロはパーツファイルでのみ実行可能です。”, vbExclamation
Exit Sub
End If
Set swExt = swModel.Extension
‘ IMeasureオブジェクトの生成
Set swMeasure = swExt.CreateMeasure()
If swMeasure Is Nothing Then
MsgBox “Measureオブジェクトの生成に失敗しました。”, vbCritical
Exit Sub
End If
‘ 測定精度・単位の設定 (System Units: Meters -> Millimeters)
swMeasure.SetCoordinateSystem Nothing ‘ デフォルト（モデル原点）を使用
‘ 【検証対象のシミュレーション】
‘ 実務ではここでSelectionMgr等から動的に取得したFaceエンティティを渡す
‘ swMeasure.AddEntity
‘ ここでは概念実証として、特定の面間距離測定ロジックを想定したラッパーを実行
Dim measuredValue As Double
Dim nominalValue As Double
Dim upperTolerance As Double
Dim lowerTolerance As Double
‘ — 設計基準値の定義 (例: 基準面Aと面Bの距離 = 50.0mm) —
nominalValue = 50.0
upperTolerance = 0.1 1 ‘ 許容上限 (+0.1mm)
lowerTolerance = -0.1 ‘ 許容下限 (-0.1mm)
On Error GoTo ErrorHandler
‘ 測定の実行（※実務では面が選択されている前提）
‘ 戻り値として距離や角度が取得される
Dim status As Boolean
status = PerformMeasurementSimulation(swMeasure, measuredValue)
If Not status Then
Err.Raise vbObjectError + 1000, “InspectionEngine”, “幾何測定の演算に失敗しました。選択エンティティを確認してください。”
End If
‘ 逸脱検定ロジック
Dim deviation As Double
deviation = measuredValue – nominalValue
Debug.Print “— 形状検査レポート —”
Debug.Print “公称値: ” & nominalValue & ” mm”
Debug.Print “実測値: ” & measuredValue & ” mm”
Debug.Print “偏差: ” & deviation & ” mm”
If (measuredValue > (nominalValue + upperTolerance)) Or (measuredValue < (nominalValue + lowerTolerance)) Then
MsgBox "【品質警告】設計許容値から逸脱しています！" & vbCrLf & _
"実測値: " & measuredValue & " mm" & vbCrLf & _
"許容範囲: " & (nominalValue + lowerTolerance) & " ～ " & (nominalValue + upperTolerance) & " mm", _
vbCritical, "IMeasure自動検査システム"
' TODO: Excel連携による不適合レポート自動出力処理へ分岐
Call ExportToExcelReport(nominalValue, measuredValue, deviation, "FAIL")
Else
MsgBox "検査合格：公差内に収まっています。" & vbCrLf & "実測値: " & measuredValue & " mm", vbInformation, "IMeasure自動検査システム"
Call ExportToExcelReport(nominalValue, measuredValue, deviation, "PASS")
End If
CleanUp:
' 【極限のメモリ最適化】COMポインタの明示的破棄
' これを怠るとSolidWorksのプロセス内にメモリリークが蓄積する
Set swMeasure = Nothing
Set swExt = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical
Resume CleanUp
End Sub
' 測定シミュレーション（実務ではswMeasureにIEntityを渡して測距するロジックに置き換え）
Private Function PerformMeasurementSimulation(ByRef measureObj As SldWorks.Measure, ByRef outVal As Double) As Boolean
' IMeasureのプロパティ（例: 距離取得 -> measureObj.Value）
‘ ここではAPI仕様に準拠したモック値を代入（実際の開発では measureObj.Calculate 等を使用）
‘ 例外をあえて発生させるテストケースの場合は値を調整
outVal = 50.05 ‘ 正常範囲内のモック値
PerformMeasurementSimulation = True
End Function
‘ Excelレポート出力サブシステム（Late Bindingによるプロセス間連携）
Private Sub ExportToExcelReport(nominal As Double, measured As Double, dev As Double, result As String)
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim reportPath As String
reportPath = ThisWorkbookPath() & “\Inspection_Report.xlsx”
On Error Resume Next
Set xlApp = CreateObject(“Excel.Application”)
If xlApp Is Nothing Then Exit Sub
xlApp.Visible = False
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Sheets(1)
‘ レポートヘッダー
xlWs.Cells(1, 1).Value = “SolidWorks 自動検査レポート”
xlWs.Cells(3, 1).Value = “項目”
xlWs.Cells(3, 2).Value = “値 (mm)”
xlWs.Cells(4, 1).Value = “公称値”
xlWs.Cells(4, 2).Value = nominal
xlWs.Cells(5, 1).Value = “実測値”
xlWs.Cells(5, 2).Value = measured
xlWs.Cells(6, 1).Value = “偏差”
xlWs.Cells(6, 2).Value = dev
xlWs.Cells(7, 1).Value = “判定”
xlWs.Cells(7, 2).Value = result
‘ 保存して閉じる
xlWb.SaveAs reportPath
xlWb.Close False
xlApp.Quit
Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing
End Sub
Private Function ThisWorkbookPath() As String
‘ 簡易的なカレントパス取得（アドインやVBAプロジェクトの場所依存を回避）
ThisWorkbookPath = “C:\SolidWorksWorkspace”
End Function
—
3. シニアエンジニアが知るべき「現場の罠」と回避策
1. 単位系（Unit System）の暗黙の変換バグ
SolidWorksのAPI内部処理は、基本的にメートル法（MKS: Meters, Kilograms, Seconds）を基準として動作している。
ユーザーインターフェース側で「mm」で入力・表示されている値であっても、APIから吐き出される数値が生のメートルデータである場合がある（`IMeasure`はドキュメント単位系を継承するが、APIのバージョンやメソッドによってはMKSで返るケースが存在する）。
そのため、必ずドキュメントの単位系（`IModelDoc2::GetUnits`）を明示的に確認するか、一貫したスケーリングファクターをコード内で担保すること。
2. バックグラウンドプロセスとしてのExcel連携の危険性
上記のコードでは `CreateObject(“Excel.Application”)` を用いた遅延バインディング（Late Binding）を採用している。これにより、参照設定のバージョン違い（Office 2016 vs Office 365など）によるコンパイルエラーを完全に回避できる。
しかし、Excelインスタンスを適切に終了（`Quit`）させ、オブジェクト変数を `Nothing` にしないと、タスクマネージャーに `EXCEL.EXE` がゾンビプロセスとして残り続け、次回のマクロ実行時にファイルロック競合を引き起こす。例外発生時でも必ずクリーンアップを通る構造（`On Error GoTo` による集約）が絶対条件となる。
—
結び：保守性を超えた「構造美」の追求
VBAはレガシーな言語と揶揄されることがある。だが、APIのライフサイクルを理解し、COMのメモリ構造を把握した上で書かれたSolidWorks VBAコードは、C#やVB.NET製の重いアドインに匹敵するパフォーマンスと堅牢性を発揮する。
「動けばいい」という妥協を捨て、オブジェクトを慈しみ、メモリを解放し尽くす。そのコードの積み重ねこそが、荒れ果てた社内ニッチシステムを救う唯一のアーキテクチャである。
