こんにちは。SolidWorks VBAの深淵へようこそ。
私はこれまで数えきれないほどの自動化システムを設計してきましたが、多くのエンジニアが最初に突き当たる「壁」があります。それが「アセンブリの中でのパーツ編集（インプレイス編集）」です。
マクロの記録を卒業し、一歩先の「設計意図を汲み取った自動化」を目指すあなたにとって、ここは避けては通れない、しかし最高に面白い領域です。
今日は、アセンブリという大きな宇宙の中で、特定のパーツに「魂」を吹き込むための、安全でスマートな制御手法についてお話ししましょう。ここをクリアすれば、あなたのSolidWorks VBAスキルは「単なる自動化」から「インテリジェントな設計システム」へと進化しますよ。
—
1. なぜ「パーツ単体」のコードでは動かないのか？
パーツ単体（.sldprt）を開いて動くマクロが、アセンブリの中でそのパーツをいじろうとするとエラーになる。あるいは、外部参照がうまく更新されない。そんな経験はありませんか？
その理由は、SolidWorksが持つ「コンテキスト（文脈）」にあります。
- 単体モード: パーツは自分の世界（原点や平面）しか見えていません。
- アセンブリ編集モード: パーツは他のパーツの顔やエッジを「参照」できる特殊な状態になります。
外部参照を持つスケッチやフィーチャをVBAで操作する場合、この「今、私はアセンブリの中で編集しているんだ」という状態をプログラムから明示的に作ってあげる必要があるのです。
—
2. インプレイス編集を掌握する3つの神器
アセンブリ内での編集を制御するために、私たちが使いこなすべきAPIは主に3つです。
1. `EditPart2`: アセンブリの中でパーツを「編集状態」にするコマンド。
2. `EditAssembly`: 編集を終えて、アセンブリ階層に戻るコマンド。
3. `ForceRebuild3`: 外部参照の依存関係を強制的に再計算させるコマンド。
これらを正しい順番で、かつ「エラーの隙を与えず」に実行するのがプロの技です。
—
3. 実践：安全にインプレイス編集を行う極限のテンプレート
では、実際に使えるコードを見てみましょう。このコードは、アセンブリ内の特定のコンポーネントを選択し、そのコンテキスト内で安全にスケッチやフィーチャを更新するための骨格です。
Option Explicit
‘ ==========================================================
‘ テーマ: アセンブリコンテキストでのパーツ編集制御
‘ 目的: 外部参照を持つパーツを安全に開き、更新して閉じる
‘ ==========================================================
Sub ModifyPartInAssemblyContext()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc
Dim swSelMgr As SldWorks.SelectionMgr
Dim swComp As SldWorks.Component2
Dim status As Long
Dim errors As Long
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
‘ 1. 現在開いているのがアセンブリかチェック
if swModel Is Nothing Then Exit Sub
If swModel.GetType <> swDocASSEMBLY Then
MsgBox “アセンブリファイルを開いた状態で実行してください。”, vbExclamation
Exit Sub
End If
Set swAssy = swModel
Set swSelMgr = swModel.SelectionManager
‘ 2. 編集したいコンポーネントを取得
‘ ここでは例として「最初に選択されているもの」を対象にします
Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)
If swComp Is Nothing Then
MsgBox “編集したいパーツを1つ選択してから実行してください。”, vbInformation
Exit Sub
End If
‘ — ここからが「インプレイス編集」の核心 —
‘ 3. パーツ編集モードに入る (EditPart2)
‘ 第1引数: 0 (通常は0), 第2引数: 真偽 (Trueで外観維持), 第3引数: エラー受け取り
swModel.ClearSelection2 True
status = swAssy.EditPart2(True, True, errors)
If status = swEditPart_NoError Then
Debug.Print “パーツ編集モードに移行しました: ” & swComp.Name2
‘ ————————————————–
‘ ここにジオメトリ生成やパラメータ変更の処理を書く
‘ 例: 外部参照を持つスケッチの再構築など
‘ ————————————————–
‘ 4. 強制再構築 (依存関係を解決させる)
‘ インプレイス編集中の更新は、この「TopLevelのみ再構築」が鍵
swModel.ForceRebuild3 True
‘ 5. 編集モードを抜けてアセンブリに戻る
swAssy.EditAssembly
Debug.Print “アセンブリコンテキストに戻りました。”
Else
MsgBox “パーツ編集モードへの移行に失敗しました。エラーコード: ” & errors
End If
‘ 最終的な全体再構築
swModel.EditRebuild3
End Sub
—
4. 伝説のチーフアーキテクトが教える「陥りやすい罠」
このコードを動かす上で、あなたが絶対に知っておくべき「現場の知恵」を授けます。
① 「選択」の落とし穴
`EditPart2`を呼び出す前に、編集したいコンポーネントが正しく選択されているか、あるいは内部的に特定できているかが重要です。マクロの記録では `SelectByID2` が多用されますが、実務では `swComp.Select4` を使い、確実にそのインスタンスを掴むようにしましょう。
② エラー回避の「ClearSelection」
アセンブリ編集モードに入る直前に `swModel.ClearSelection2 True` を入れるのは、古い選択状態が `EditPart2` の挙動を邪魔するのを防ぐためです。これは地味ですが、安定性を劇的に高める「おまじない」です。
③ 外部参照の「ゴースト」問題
アセンブリ内でパーツを編集している際、VBAからスケッチ面などを指定するとき、その面が「他のパーツの顔」である場合、`swEntity.GetSafeEntity` などを使って参照を安定させるテクニックが必要になることもあります。まずは「今、自分はどのドキュメントを操作しているのか（アセンブリなのか、中身のパーツなのか）」を常に意識してください。
—
5. まとめ：ここをクリアすれば基本はバッチリ！
アセンブリ依存関係の制御は、SolidWorks VBAの中でも「中級者への登竜門」と言える領域です。
- `EditPart2` で潜り込み
- 処理をして
- `EditAssembly` で戻ってくる
このリズムをマスターするだけで、あなたの作るマクロは「パーツ単体でしか動かないツール」から「設計変更に追従するインテリジェントなシステム」へと昇華されます。
最初はエラーが出るかもしれません。でも大丈夫、それはあなたが「複雑で高度な設計」に挑戦している証拠です。このテンプレートをベースに、一歩ずつジオメトリ生成のコードを組み込んでみてください。
もし道に迷ったら、いつでもここに戻ってきてください。あなたの自動化の旅が、素晴らしいものになることを願っています。
Happy Coding!
