境界線を越える自動化：SolidWorksにおける図面エクスポート・アーキテクチャの極致
設計現場において、「保存」という行為は単なるデータの永続化ではない。それは、設計意図が製造、調達、そして顧客へと流れる「情報のゲートウェイ」を開く儀式である。
多くのエンジニアは、図面を保存した後に手動でPDFへ変換し、さらにCADデータ（DWG）として書き出す作業を「些細なルーチン」として片付ける。しかし、シニアエンジニアやシステム管理者の視点に立てば、その数秒の積み重ねが、命名規則の逸脱、出力形式の不一致、そしてヒューマンエラーによる誤納入という、致命的なリスクを孕んでいることが理解できるはずだ。
本稿では、単なる「マクロの書き方」を教えるのではない。SolidWorksのCOMインターフェースを制御し、メモリの挙動を理解した上で、堅牢かつスケーラブルな「図面エクスポート・エンジン」を構築するための、極限の知見を共有する。
1. アーキテクチャの設計思想：なぜ「スクリプト」では足りないのか
初心者が書くコードは「スクリプト」だ。特定の状況下で動けば満足する。しかし、我々が構築すべきは「システム」である。
システムとして設計する場合、以下の3点を設計要件に組み込まねばならない。
1. Single Source of Truth (単一の真実の源): ファイル名はユーザーの入力ではなく、モデルのカスタムプロパティ（図面番号、リビジョン）からのみ抽出する。
2. Atomic Operations (原子性): エクスポート処理は、失敗した際に中途半端なファイルが残らないよう、エラーハンドリングとクリーンアップが徹底されていなければならない。
3. Resource Management (リソース管理): SolidWorksは巨大なメモリを消費するアプリケーションである。COMオブジェクトの解放を怠れば、バックグラウンドで残存したプロセスがサーバーやワークステーションのメモリを食いつぶし、システム全体のパフォーマンスを低下させる。
2. 実装：堅牢なエクスポート・エンジンのコード
以下に、図面保存時に呼び出すことを想定した、プロフェッショナル仕様のコードを示す。ここでは、`FileSystemObject` によるパス制御と、`Extension.SaveAs` を用いた高精度なエクスポートを採用している。
' **
' Module: ExportEngine
' Description: 図面保存時のPDF/DWG自動生成エンジン
' Author: Legendary Chief Architect
' **
Option Explicit
' Windows APIの宣言（ファイル存在確認や高度な制御が必要な場合に使用）
' 今回はFSOを使用するため省略するが、システム連携時には必須となる
' Declare PtrSafe Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" ...
Sub Main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swExt As SldWorks.ModelDocExtension
' オブジェクトの初期化
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
' 1. ガード節：ドキュメントの妥当性確認
If swModel Is Nothing Then
MsgBox "アクティブなドキュメントが見つかりません。", vbCritical
Exit Sub
End If
If swModel.GetType <> swDocDRAWING Then
MsgBox "このマクロは図面ファイル専用です。", vbExclamation
Exit Sub
End If
Set swDraw = swModel
Set swExt = swModel.Extension
' 2. データの抽出（Custom Propertiesからの取得）
Dim strPartNo As String
Dim strRev As String
Dim strFileName As String
' カスタムプロパティから情報を取得（設計ルールに基づいた命名規則の核）
strPartNo = GetCustomProperty(swModel, "DrawingNumber")
strRev = GetCustomProperty(swModel, "Revision")
' 万が一プロパティが空の場合のフォールバック
If strPartNo = "" Then strPartNo = "UNKNOWN_NO"
If strRev = "" Then strRev = "0"
' 3. 出力パスの構築
' 保存先は元の図面と同じディレクトリとする
Dim strPath As String
Dim strFolder As String
Dim strBaseName As String
strPath = swModel.GetPathName
If strPath = "" Then
MsgBox "ファイルを一度保存してから実行してください。", vbCritical
Exit Sub
End If
' パスからフォルダ名と拡張子を除いたファイル名を取得
strFolder = Left(strPath, InStrRev(strPath, "\"))
strBaseName = Mid(strPath, InStrRev(strPath, "\") + 1)
strBaseName = Left(strBaseName, InStrRev(strBaseName, ".") - 1)
' 命名規則の定義: [図面番号]_[リビジョン].extension
' 例: ABC-12345_A.pdf
strFileName = strPartNo & "_" & strRev
' 4. エクスポート実行（PDF & DWG）
On Error GoTo ErrorHandler
' UIの更新を抑制し、処理速度を向上させる（プロのテクニック）
swApp.UserControl = False
' PDFエクスポート
Debug.Print "Exporting PDF: " & strFolder & strFileName & ".pdf"
Call ExportFile(swExt, strFolder & strFileName & ".pdf", swSaveAsPDF)
' DWGエクスポート
Debug.Print "Exporting DWG: " & strFolder & strFileName & ".dwg"
Call ExportFile(swExt, strFolder & strFileName & ".dwg", swSaveAsDWG)
' 5. 終了処理
swApp.UserControl = True
MsgBox "エクスポートが正常に完了しました。" & vbCrLf & "Name: " & strFileName, vbInformation
CleanUp:
' メモリの明示的解放（COMオブジェクトのライフサイクル管理）
Set swDraw = Nothing
Set swExt = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
swApp.UserControl = True
MsgBox "致命的なエラーが発生しました。" & vbCrLf & "Error: " & Err.Description, vbCritical
Resume CleanUp
End Sub
' --- ヘルパー関数: カスタムプロパティの取得 ---
Private Function GetCustomProperty(swModel As SldWorks.ModelDoc2, propName As String) As String
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim valOut As String
Dim resValOut As String
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
swCustPropMgr.Get4 propName, False, valOut, resValOut
GetCustomProperty = resValOut
End Function
' --- ヘルパー関数: 高精度エクスポートエンジン ---
Private Sub ExportFile(swExt As SldWorks.ModelDocExtension, fullPath As String, fileType As Long)
Dim errors As Long
Dim warnings As Long
' SaveAsOptions_e を使用して、バックグラウンドでの整合性を担保
' 2020年以降のAPI仕様に準拠した Extension.SaveAs を推奨
Dim status As Boolean
status = swExt.SaveAs(fullPath, fileType, swSaveAsOptions_Silent, Nothing, errors, warnings)
If Not status Then
Err.Raise vbObjectError + 513, "ExportFile", "SaveAs failed for: " & fullPath & " (Error: " & errors & ")"
End If
End Sub
' 列挙型の定義（SolidWorks APIの定数を使用）
Private Const swSaveAsPDF As Long = 0
Private Const swSaveAsDWG As Long = 1
Private Const swSaveAsOptions_Silent As Long = 13. 技術的深掘り：アーキテクトの視点
3.1. `ModelDoc2.SaveAs` ではなく `Extension.SaveAs` を選ぶ理由
多くの既存コードは `swModel.SaveAs` を使用している。しかし、現代的なSolidWorks APIアーキテクチャにおいては、`ModelDocExtension` オブジェクトを介した `SaveAs` が推奨される。これは、ファイル保存時のオプション制御がより細粒度であり、エラー情報の取得（`errors` および `warnings` 引数）が正確であるためだ。大規模な自動化システムにおいて、この「エラーの解像度」の差は、デバッグコストの差として直結する。
3.2. `swApp.UserControl = False` の魔力
これは、SolidWorksのUIスレッドとマクロの実行スレッドの優先順位を制御するテクニックだ。これを `False` に設定することで、SolidWorksは「ユーザーが操作していない」と判断し、画面の再描画（Repaint）を抑制する。これにより、大量のビューポート計算を伴うエクスポート処理において、目に見えるパフォーマンスの向上が得られる。ただし、例外発生時には必ず `True` に戻さなければならない。これを忘れると、SolidWorksが「操作不能」な状態でフリーズしたように見える現象を引き起こす。
3.3. メモリ管理：COMオブジェクトのライフサイクル
VBAの `Set obj = Nothing` は、単に参照カウントを減らすだけであり、真のメモリ解放を保証するものではない。特に、SolidWorksのような巨大なCOMサーバーを操作する場合、オブジェクトの依存関係（Dependency Graph）が複雑に絡み合う。
本コードでは、`CleanUp` ラベルを用いて、エラー発生時であっても必ずすべての主要オブジェクトを `Nothing` で上書きするように設計している。これは、長時間稼働するサーバーサイドの自動化タスクにおいて、メモリリークを防ぐための鉄則である。
4. 結論
自動化とは、単に「楽をするための手段」ではない。それは、「設計者が設計という本質的な業務に集中できる環境を、技術的整合性をもって構築すること」である。
今回提示したコードは、単なるコピー＆ペースト用の断片ではない。命名規則の変更、保存先ディレクトリの動的変更、あるいはネットワーク遅延を考慮したリトライ処理など、実戦的な拡張を前提とした「骨格」である。この骨格の上に、君たちの業務要件という肉付けを行ってほしい。
技術の真髄は、細部に宿る。エラーハンドリングの一行、オブジェクトの解放一つに、プロフェッショナルとしての誇りを込めよ。
