【SolidWorks VBA極限の知見】「モデルが再構築できませんでした」例外を検知し、失敗フィーチャを特定するログ出力設計
SolidWorksマクロ開発の現場において、最もエンジニアを絶望させる瞬間とは何か。
それは、何百回とループするバッチ処理の最中、突如として画面に現れる冷酷なダイアログボックス――「モデルが再構築できませんでした」である。
このエラーに直面した瞬間、VBAの実行は停止し、デバッグ画面すら開かずにプロセスが沈黙する。どのコンフィギュレーションで、どのパラメータが干渉し、どのフィーチャがトポロジーエラーを引き起こしたのか。それを知る手立ては画面上の記憶以外に失われ、ログにはただ「マクロが異常終了した」という事実だけが残る。
本稿では、SolidWorks APIの深層を知り尽くしたチーフアーキテクトの視点から、この「再構築エラー」をプログラム側で完全に捕捉し、失敗したフィーチャの特定、さらにはWindows APIを活用した堅牢なログ出力設計までを実装レベルで解説する。
—
1. SolidWorks APIにおける「再構築エラー」のメカニズム
なぜ、VBAは「モデルが再構築できませんでした」というエラーを通常の `Err.Number` で捕らえられないのか。
答えは単純だ。SolidWorksにとって「再構築の失敗（Rebuild Error）」は、COMオブジェクトとしてのランタイムエラーではないからだ。 ジオメトリの数学的破綻、ゼロ厚みの壁、自己交差するサーフェスなどは、CADカーネル（Parasolid）の計算上の「戻り値（ステータス）」であり、VBAから見ればAPI関数自体は「正常に実行を完了した」とみなされる。
したがって、我々は以下の3つのレイヤーを監視しなくてはならない。
1. `ModelDoc2::Extension::Rebuild` の戻り値（ビットマスク）
2. Featureオブジェクトのステータス（Error / Warning）
3. COMイベント（`DPartDocEvents_RebuildNotify2` など）のフック
—
2. 失敗フィーチャを特定するアプローチ
再構築が失敗したドキュメントに対し、単にエラーを吐いて終了するシステムはアマチュアの産物である。プロの自動化システムは、「どのフィーチャがエラーフラグを持っているか」をツリーの根から末端まで走査し、特定しなければならない。
SolidWorksのフィーチャツリーは親子関係を持つ有向グラフ（DAG）である。`Feature::GetNextFeature` および `Feature::GetFirstSubFeature` を再帰的に走査し、各フィーチャの状態（ErrorState）を判定するロジックが必要となる。
—
3. 実装コード：堅牢なエラー検知とログ出力システム
以下に、実業務の夜間バッチ等でも耐えうる、極限まで最適化されたVBAコードを提示する。オブジェクトの明示的な解放、Windows APIによる高速なファイルI/O、そして例外の完全捕捉を網羅している。
Option Explicit
‘ ==============================================================================
‘ 伝説のチーフアーキテクトによる堅牢なエラーハンドリング＆ログ出力モジュール
‘ ==============================================================================
‘ Win32 API: 処理速度最適化のための高速ファイル書き込み（必要に応じ拡張）
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
‘ エラーログ構造体
Private Type RebuildErrorLog
Timestamp As String
DocumentName As String
FailedFeatureName As String
ErrorDescription As String
End Type
Public Sub ExecuteRobustRebuildProcess()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim logPath As String
‘ 1. SolidWorks アプリケーションの取得
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
‘ ログファイルのパス設定（デスクトップに吐き出す例）
logPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\SolidWorks_Rebuild_Error.log”
‘ 2. 再構築の実行とエラー検知
On Error GoTo ErrorHandler
Dim rebuildSuccess As Boolean
‘ swRebuildOptions_t: swForceRebuildAll = 4
rebuildSuccess = swModel.Extension.Rebuild(swForceRebuildAll)
If Not rebuildSuccess Then
‘ 再構築が失敗した場合のフィーチャ走査
Call AnalyzeAndLogRebuildFailure(swModel, logPath)
MsgBox “モデルの再構築に失敗しました。詳細はログを確認してください。”, vbExclamation, “致命的エラー検知”
Else
MsgBox “モデルの再構築が正常に完了しました。”, vbInformation, “成功”
End If
CleanUp:
‘ 3. メモリリーク防護：オブジェクトの明示的破棄
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
WriteLog logPath, “FATAL”, swModel.GetTitle, “VBA Runtime Error: ” & Err.Description & ” (Code: ” & Err.Number & “)”
Resume CleanUp
End Sub
‘ ==============================================================================
‘ 失敗フィーチャの特定とログ出力エンジンの核心
‘ ==============================================================================
Private Sub AnalyzeAndLogRebuildFailure(ByVal swModel As SldWorks.ModelDoc2, ByVal logPath As String)
Dim swFeat As SldWorks.Feature
Dim docName As String
docName = swModel.GetTitle
WriteLog logPath, “ERROR”, docName, “Rebuild operation returned false.”
‘ フィーチャツリーの根から走査開始
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
‘ 再帰的にフィーチャの状態をチェック
CheckFeatureState swFeat, logPath, docName
Dim nextFeat As SldWorks.Feature
Set nextFeat = swFeat.GetNextFeature()
Set swFeat = nextFeat
Loop
End Sub
‘ 再帰的フィーチャ状態チェック（サブフィーチャ、コンポーネント内も考慮）
Private Sub CheckFeatureState(ByVal swFeat As SldWorks.Feature, ByVal logPath As String, ByVal docName As String)
If swFeat Is Nothing Then Exit Sub
Dim featName As String
Dim featTypeName As String
Dim errorState As Long
Dim warningState As Long
featName = swFeat.Name
featTypeName = swFeat.GetTypeName2()
‘ フィーチャのエラー・警告ステータスを取得
‘ GetErrorCode2 または特定のエラーフラグを評価
Dim errorCodes As Variant
errorCodes = swFeat.GetErrorCode2(warningState)
‘ エラーが存在する場合（配列に要素が含まれるか判定）
If Not IsEmpty(errorCodes) Then
Dim i As Long
For i = LBound(errorCodes) To UBound(errorCodes)
Dim errDetail As String
errDetail = GetErrorDescriptionString(CInt(errorCodes(i)))
WriteLog logPath, “FEATURE_ERROR”, docName, “Feature: [” & featName & “] (Type: ” & featTypeName & “) -> Error Code: ” & errorCodes(i) & ” (” & errDetail & “)”
Next i
End If
‘ サブフィーチャ（パターン内、フィレット内部など）の再帰走査
Dim subFeat As SldWorks.Feature
Set subFeat = swFeat.GetFirstSubFeature()
Do While Not subFeat Is Nothing
CheckFeatureState subFeat, logPath, docName
Dim nextSubFeat As SldWorks.Feature
Set nextSubFeat = subFeat.GetNextSubFeature()
Set subFeat = nextSubFeat
Loop
Set subFeat = Nothing
End Sub
‘ ==============================================================================
‘ ログ出力およびエラーコード解説関数
‘ ==============================================================================
Private Sub WriteLog(ByVal logPath As String, ByVal level As String, ByVal target As String, ByVal message As String)
Dim fileNum As Integer
fileNum = FreeFile
Open logPath For Append As #fileNum
Print #fileNum, “[” & Format(Now, “yyyy-mm-dd hh:nn:ss”) & “] [” & level & “] [” & target & “] ” & message
Close #fileNum
End Sub
‘ SolidWorksの主要なフィーチャエラーコードを解釈するモック関数（必要に応じて拡張）
Private Function GetErrorDescriptionString(ByVal errorCode As Integer) As String
Select Case errorCode
Case 1: GetErrorDescriptionString = “一般的なエラー (General Error)”
Case 2: GetErrorDescriptionString = “ジオメトリの交差またはゼロ厚み (Zero thickness or Self-intersection)”
Case 3: GetErrorDescriptionString = “参照が見つからない (Missing reference)”
Case 4: GetErrorDescriptionString = “寸法拘束の矛盾 (Overdefined or conflicting dimensions)”
Case Else: GetErrorDescriptionString = “固有エラーコード: ” & errorCode
End Select
End Function
—
4. チーフアーキテクトからの実践的アドバイス：メモリ最適化と運用設計
大規模なアセンブリや数百点に及ぶパーツの自動バッチ処理を組む際、上記コードをさらに昇華させるための極意を授ける。
① オブジェクトの連鎖解放（Memory Leak Prevention）
VBAのガベージコレクションは非常に曖昧である。特に `GetFirstSubFeature` や `GetNextFeature` をループさせる際、取得したローカル変数の `Set xxx = Nothing` を怠ると、SolidWorksのプロセス（SLDWORKS.exe）にメモリリークが蓄積し、処理後半で突然のクラッシュ（OutOfMemory）を引き起こす。
ループの各ステップ、あるいはプロシージャの抜け際において、取得したCOMオブジェクトは必ず逆順または即座に `Nothing` 代号を付与して解放すること。
② 非同期・システム間連携への拡張
このログ出力設計を基盤として、出力されたログファイルを監視するPowerShellスクリプトやC#の常駐サービスを組み合わせることで、「CADが勝手に止まって朝に出社したら何も進んでいなかった」という悪夢を完全に排除できる。
エラーログに記録された `FeatureName` をパースし、自動的に該当スケッチの寸法を微調整するようなAI・アルゴリズム連携の足がかりとしても、この堅牢な例外検知モジュールは強力な武器となるはずだ。
妥協のないコードとアーキテクチャ設計によってのみ、真の業務自動化は達成される。あなたのSolidWorks環境に、この極限の知見を実装せよ。
