【安全なドキュメント操作】ActiveDocへの依存を脱却しSldWorksとDocumentCollectionで文書を確実に制御する方法
SolidWorks VBAの自動化において、多くの開発者が最初に犯す、そして最も致命的な過ちは、`SldWorks.IApplication.ActiveDoc` への依存である。
「今、画面にアクティブ表示されているドキュメントを操作する」というアプローチは、一見すると直感的で分かりやすい。しかし、それはマルチタスク環境や大規模アセンブリのバッチ処理、さらにはバックグラウンド実行を想定したエンタープライズシステムにおいて、時限爆弾を抱えることを意味する。
ユーザーが意図せず別ウィンドウをクリックした瞬間、SolidWorksが裏で重い図面の再構築を行っている最中、あるいは複数ドキュメントが非表示のままロードされている状況下において、`ActiveDoc` は平然と意図しないオブジェクトを返し、デバッグ不可能なサイレントエラーやSolidWorks自体のクラッシュを引き起こす。
真に堅牢なSolidWorks自動化システムを構築するためには、UIのスレッドやアクティブウィンドウの概念から完全に脱却し、`SldWorks` ルートオブジェクトと `DocumentCollection` を通じた「文脈に依存しない確実なドキュメント制御」を習得しなければならない。
—
1. なぜ `ActiveDoc` は実務で使ってはならないのか
SolidWorks APIのオブジェクトモデルの頂点には `SldWorks`（SldWorks.ISldWorks）が存在する。すべての操作はこのインスタンスから派生するが、初心者が乱用するのが以下のコードだ。
‘ 【アンチパターン】絶対に書いてはならないコード
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc ‘ ←ここでUIの状態に依存している
アクティブドキュメント依存の3大リスク
1. フォーカスの喪失: マクロ実行中にユーザーが別のSolidWorksウィンドウに触れただけで、`ActiveDoc` が指す実体が変わり、処理対象がすり替わる。
2. NULL参照と実行時エラー: 対象ドキュメントが開いていても、何らかの理由でアクティブになっていない場合、`ActiveDoc` は `Nothing` を返し、次のメソッド呼び出しで `Error 91 (オブジェクト変数または With ブロック変数が見つかりません)` が発生する。
3. ドキュメントタイプの不一致: 意図したアセンブリではなく、裏で開いていた図面（Drawing）がアクティブだった場合、アセンブリ特有のAPIメソッド（Component関連など）が誤動作を起こす。
プロフェッショナルなエンジニアであれば、「UIの表示状態と、メモリ上のドキュメント操作ロジックは完全に分離されていなければならない」という原則を厳守すべきである。
—
2. `GetDocuments` と DocumentCollection による全数走査
UIのアクティブ状態に頼らないためには、SolidWorksのプロセス空間（メモリ上）に現在ロードされているすべてのドキュメントの配列を取得し、その中から目的のファイル名やドキュメントタイプを持つインスタンスをプログラム側で明示的に特定・取得するアプローチをとる。
ここで使用するのが `SldWorks.GetDocuments` メソッドである。
安全なドキュメント取得の基本アルゴリズム
`GetDocuments` は、現在メモリ上に展開されているすべての `ModelDoc2` オブジェクトの配列を返す。これに対し、ファイル名やパス、あるいはドキュメント種別（部品・アセンブリ・図面）でフィルタリングを行うことで、UIのフォーカスに一切左右されない確実な制御が可能になる。
以下のコードは、メモリ上から特定名称のドキュメントを安全にキャプチャする実践的なモジュールである。
‘ ==============================================================================
‘ Module: ModDocControl
‘ Description: UIに依存せず、メモリ上のドキュメントを安全に制御するモジュール
‘ ==============================================================================
Option Explicit
Public Sub SafeDocumentOperationExample()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
If swApp Is Nothing Then
MsgBox “SolidWorksが起動していません。”, vbCritical
Exit Sub
End If
‘ 1. メモリ上の全ドキュメントを取得（バリアント型配列として返される）
Dim vDocs As Variant
vDocs = swApp.GetDocuments
If IsEmpty(vDocs) Then
MsgBox “現在、開かれているドキュメントはありません。”, vbExclamation
Exit Sub
End If
Dim i As Long
Dim swModel As SldWorks.ModelDoc2
Dim targetDocTitle As String
targetDocTitle = “engine_assy.sldasm” ‘ 制御対象のファイル名
Dim foundFlag As Boolean
foundFlag = False
‘ 2. コレクション（配列）をイテレートして目的のモデルを特定
For i = LBound(vDocs) To UBound(vDocs)
Set swModel = vDocs(i)
If Not swModel Is Nothing Then
‘ 大文字小文字を区別せずにファイル名を比較
If StrComp(swModel.GetTitle(), targetDocTitle, vbTextCompare) = 0 Then
foundFlag = True
Exit For
End If
End If
Next i
‘ 3. 発見したドキュメントに対する安全な処理の実行
If foundFlag Then
Call ProcessTargetDocument(swModel)
Else
MsgBox “対象のドキュメント [” & targetDocTitle & “] がメモリ上に見つかりません。”, vbCritical
End If
‘ 4. オブジェクト参照の明示的解放（メモリリーク防止）
Set swModel = Nothing
Set swApp = Nothing
End Sub
Private Sub ProcessTargetDocument(ByRef swModel As SldWorks.ModelDoc2)
‘ UIをアクティブに切り替えた上で操作したい場合は、ここで明示的にActivateDoc3を呼び出す
Dim errors As Long
Dim warnings As Long
‘ ウィンドウの前面化が必要な場合のみ、ここで明示的に制御する
Dim swFrame As SldWorks.Frame
Set swFrame = swModel.Extension.Frame
‘ ドキュメントのタイプに応じた安全なキャストと処理
Select Case swModel.GetType()
Case swDocPART
Debug.Print “部品ドキュメントを処理中: ” & swModel.GetPathName()
‘ 部品固有の処理…
Case swDocASSEMBLY
Debug.Print “アセンブリドキュメントを処理中: ” & swModel.GetPathName()
‘ アセンブリ固有の処理…
Case swDocDRAWING
Debug.Print “図面ドキュメントを処理中: ” & swModel.GetPathName()
‘ 図面固有の処理…
Case Else
‘ 不明なタイプ
End Select
Set swFrame = Nothing
End Sub
—
3. レガシー環境・外部システム連携におけるウィンドウ制御の極意
社内ニッチなPDMシステムや、Excelマクロ・C#製外付アプリケーションからSolidWorksを遠隔操作（Out-of-Process）する場合、`ActiveDoc` は文字通り「機能しない地雷」と化す。外部プロセスから起動・アタッチされたSolidWorksインスタンスは、人間が操作するUIスレッドとは非同期で動作することが多いためである。
この環境下でドキュメントを確実にアクティブ化し、あるいはバックグラウンドでサイレント処理するための鉄則を解説する。
`ActivateDoc3` による確実なウィンドウ切り替え
もしユーザーインターフェース（画面）上に指定したドキュメントを表示させる必要があるならば、`ActiveDoc` への代入ではなく、`SldWorks.ActivateDoc3` メソッドを使用する。
‘ 外部連携やマクロ内から、特定のドキュメントを確実にアクティブウィンドウにする
Public Function ForceActivateDocument(ByRef swApp As SldWorks.SldWorks, ByVal fullPath As String) As SldWorks.ModelDoc2
Dim errors As Long
Dim warnings As Long
Dim swModel As SldWorks.ModelDoc2
‘ まずすでに開かれているかチェック
Set swModel = swApp.ActivateDoc3(fullPath, False, swRebuildActiveDocAll, errors)
If swModel Is Nothing Then
‘ 開かれていない場合は新規オープンを試みる
Set swModel = swApp.OpenDoc6(fullPath, swDocNONE, swOpenDocOptions_Silent, “”, errors, warnings)
End If
Set ForceActivateDocument = swModel
End Function
ここで特筆すべきは `swOpenDocOptions_Silent` や `swRebuildActiveDocAll` といったオプションの選定である。システム間連携において、UIのポップアップエラーや不必要な再構築（Rebuild）はプロセスをフリーズさせる最大の原因となるため、常に「サイレントモード」と「必要最小限の再構築」を意識したフラグ設計を行わなければならない。
—
4. 厳格なメモリ管理：COMオブジェクトのライフサイクルと解放
VBAのランタイムはガベージコレクション（GC）を持たない。そのため、SolidWorks APIを操作する上で発生するCOM（Component Object Model）ラッパーオブジェクトは、開発者が手動でメモリから解放してやらなければならない。
これを怠ると、VBAのプロセス内にSolidWorksのCOM参照が残留し、マクロ終了後も `SLDWORKS.exe` のバックグラウンドプロセスがゾンビのように残り続け、次回のマクロ実行時にファイルロックやメモリリークを引き起こす。
オブジェクト解放の鉄則
1. ローカル変数としてのスコープ限定: APIオブジェクトは可能な限りプロシージャ内で完結させ、グローバル変数への保持は避ける。
2. 明示的な `Nothing` 代入: プロシージャの終了直前、取得した順序とは逆の順序で `Set obj = Nothing` を実行する。
3. Variant配列の破棄: `GetDocuments` で取得したバリアント配列自体も、使用後は適切にメモリを解放する。
‘ 徹底的なメモリ解放の模範例
Public Sub RobustMemoryManagementSample()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
On Error GoTo ErrorHandler
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then GoTo CleanUp
Set swSelMgr = swModel.SelectionManager
‘ — ここに実際の処理を記述 —
CleanUp:
‘ 取得した逆順に明示的解放を実施
Set swSelMgr = Nothing
Set swModel = Nothing
Set swApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
5. チーフアーキテクトからの提言
実務で稼働するSolidWorksマクロ、あるいは他システムと連携するアドイン・VBAツールにおいて、「画面が見えているから動く」という甘えは許されない。現場のエンジニアが求めるのは、夜間バッチであれ、数千部品を抱える巨大アセンブリの自動処理であれ、1ミリの狂いもなく動作し続ける堅牢性である。
`ActiveDoc` という脆弱な依存関係を断ち切り、`SldWorks` からのコレクション走査と厳格なライフサイクル管理を手に入れた時、あなたの書くコードは「ただ動くマクロ」から、工場全体の生産性を担保する「ミッションクリティカルな自動化システム」へと進化する。
妥協なきアーキテクチャで、真のSolidWorks自動化を極めてほしい。
