アセンブリの深淵：指定サブアセンブリの「孤立」とSTEPエクスポートの極意
大規模アセンブリの設計データ管理において、特定のサブアセンブリだけを抽出し、サードパーティ向けの共通フォーマット（STEPなど）として切り出す作業は、サプライチェーン連携や保守において避けて通れないルーティンだ。
しかし、GUI操作でこれを手動で行うとどうなるか。親アセンブリを開き、対象のサブアセンブリを探し、コンテキストを維持したまま別名保存し、不要な構成要素を削ぎ落とし……この泥臭い作業は、ヒューマンエラーの温床であり、エンジニアの貴重な時間を無駄に消費する。
今回は、SolidWorks VBAの底力を限界まで引き出し、メモリ空間の制御からファイルシステム操作までを完全に掌握した「指定サブアセンブリの単体抽出・STEP自動エクスポートシステム」のアーキテクチャを解説する。
—
1. 現場が直面する技術的障壁とアーキテクチャの選定
SolidWorks APIを用いたアセンブリ操作において、アマチュアとシニアの決定的な違いは「コンテキストの理解」と「メモリのライフサイクル管理」にある。
サブアセンブリを単体でSTEP出力するアプローチとしては、大きく分けて二つの方法が存在する。
1. セッション外別名保存アプローチ：対象サブアセンブリをメモリ上で独立させ、不要なリンクを断ち切ってエクスポートする。
2. 一時ファイル生成アプローチ：対象を一時ディレクトリにコピー（または仮想参照のまま）し、サイレントモードで開いてエクスポートする。
大規模アセンブリのメモリフットプリントと、外部参照（External References）の汚染を防ぐ観点から、実務上最も堅牢なのは「対象コンポーネントを一時的に別ウィンドウでサイレントロードし、純粋なドキュメントとしてSTEP変換する」手法である。
—
2. 実装コード：極限まで最適化されたVBAモジュール
以下のコードは、アクティブなアセンブリから指定されたコンポーネント名（サブアセンブリ）を特定し、親アセンブリのコンテキストから切り離した状態で、指定パスへSTEPファイルとして一撃で書き出す実務仕様のプロシージャである。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportSubAssemblyToStep
‘ 概要: アクティブアセンブリから指定サブアセンブリを抽出し、STEP形式で出力する
‘ 備考: メモリリーク防止のため、オブジェクトの即時解放とサイレント処理を徹底
‘ ==============================================================================
Sub ExportSubAssemblyToStep()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssDoc As SldWorks.AssemblyDoc
Dim swComp As SldWorks.Component2
‘ — 設定エリア —
Const TARGET_COMP_NAME As String = “SubAssembly_A-1” ‘ 抽出対象のコンポーネント名（FeatureManager上の名前）
Const EXPORT_PATH As String = “C:\Output\SubAssembly_A.step”
‘ ——————
Set swApp = Application.SldWorks
If swApp Is Nothing Then Exit Sub
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbCritical
Exit Sub
End If
‘ アセンブリコンテキストの検証
If swModel.GetType <> swDocASSEMBLY Then
MsgBox “アクティブなドキュメントはアセンブリではありません。”, vbCritical
Exit Sub
End If
Set swAssDoc = swModel
‘ コンポーネントの取得（ルートアセンブリからの再帰的検索を推奨するが、ここでは簡略化のため直下を想定）
‘ 実務では、深い階層に対応するGetFirstComponent2からの走査ロジックを組み込むこと
Set swComp = swAssDoc.GetComponentByName(TARGET_COMP_NAME)
If swComp Is Nothing Then
MsgBox “指定されたコンポーネントが見つかりません: ” & TARGET_COMP_NAME, vbCritical
Exit Sub
End If
‘ サブアセンブリのドキュメントパスを取得
Dim compModelDocExt As SldWorks.ModelDocExtension
Dim subModel As SldWorks.ModelDoc2
Dim subPath As String
subPath = swComp.GetPathName
If subPath = “” Then
MsgBox “対象コンポーネントが仮想コンポーネント（Virtual Component）であるか、保存されていません。”, vbCritical
Exit Sub
End If
‘ バックグラウンド（サイレントモード）で対象サブアセンブリを開く
Dim errors As Long, warnings As Long
Set subModel = swApp.OpenDoc6(subPath, swDocASSEMBLY, swOpenDocOptions_Silent, “”, errors, warnings)
If subModel Is Nothing Then
MsgBox “サブアセンブリのサイレントロードに失敗しました。Error Code: ” & errors, vbCritical
Exit Sub
End If
‘ STEPエクスポートの実行
Dim exported As Boolean
Set compModelDocExt = subModel.Extension
‘ STEPファイル出力のオプション設定（AP214をデフォルトとする）
‘ ※SolidWorksのバージョンによるAPI仕様の差異に注意
exported = compModelDocExt.SaveAs(EXPORT_PATH, swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, errors, warnings)
If exported Then
MsgBox “STEPエクスポートが完了しました。” & vbCrLf & EXPORT_PATH, vbInformation
Else
MsgBox “エクスポートに失敗しました。Error Code: ” & errors, vbCritical
End If
‘ — 厳格なメモリ解放（Garbage Collectionの強制） —
‘ 開いたサブアセンブリをメモリからアンロードする（親アセンブリを汚染しないため）
swApp.CloseDoc subModel.GetTitle
‘ オブジェクト参照の完全破棄
Set compModelDocExt = Nothing
Set subModel = Nothing
Set swComp = Nothing
Set swAssDoc = Nothing
Set swModel = Nothing
Set swApp = Nothing
MsgBox “プロセスが正常終了しました。”, vbInformation
End Sub
—
3. チーフアーキテクトが教える「現場の地雷」と回避策
上記のコードは基本形だが、実際の現場（特に数千点規模の巨大アセンブリ）では、以下の罠に直面する。この知見を持たないエンジニアは、必ずメモリリークやファイル競合の障害に直面する。
① 仮想コンポーネント（Virtual Components）の罠
アセンブリ内部に埋め込まれた「仮想コンポーネント」は、独立したファイルパスを持たない（`GetPathName`が空を返す）。これをSTEP化するには、一度一時ディレクトリへ実ファイルとして強制保存（`SaveToFile`等）する前処理ロジックが必要となる。
② メモリリーク（COMオブジェクトのゾンビ化）
VBAのランタイムは、COMオブジェクトの参照カウントを裏で管理している。上記コードのように、処理の最後に明示的な `Set xxx = Nothing` を行わないと、SolidWorksのプロセス内にドキュメントの残骸が残り続け、やがて「Out of Memory」エラーを引き起こす。
特にループ処理内でドキュメントを開閉するバッチ処理を組む場合、この解放漏れは致命傷となる。
③ 階層構造（ネスト）の解決
`GetComponentByName` はルート直下のコンポーネントしか引けない。深い階層（アセンブリの中にアセンブリ、さらにその中…）にあるサブアセンブリを指名するためには、`GetChildren` メソッドを用いた再帰関数（Recursive Function）によるツリー走査が必須となる。
—
終わりに：自動化の先にあるもの
単なる「手作業のVBA化」にとどまらず、SolidWorks APIのライフサイクルを完全に理解した上でシステムを構築すれば、ヒューマンエラーはゼロになり、設計データの品質は劇的に向上する。
アセンブリの構造をコードで支配し、必要なデータだけを正確に切り出す。
この領域に到達したとき、あなたのVBAコードは単なるマクロではなく、堅牢なCADインフラストラクチャへと昇華する。
さらなる高みを目指すエンジニア諸君の健闘を祈る。
