こんにちは！SolidWorks自動化の現場で泥臭く、かつ優雅にシステムを作り続けている先輩エンジニアです。
マクロの記録ボタンを押して、ポチポチとアセンブリを組み、アニメーションのタイムラインをマウスでドラッグする……。そんな退屈な作業、もう終わりにしませんか？
今回は、「アセンブリの動的機構（アニメーション・動作スタディ）のキーフレームデータをVBAから直接生成・制御する高度な応用」というテーマに挑みます。
「マクロの記録ではアニメーションのキーフレームなんて記録できないよ……」と絶望したそこのあなた。ご安心ください。SolidWorks APIの深淵を覗けば、VBAから時間軸（タイムライン）を完全に支配し、数学的な回転マトリクスに基づいて滑らかな機構シミュレーションを爆速で生成することが可能です。
ここをクリアすれば、あなたも立派な「SolidWorks VBAのマスター」です。さあ、一緒にアセンブリ自動化の最高峰へ足を踏み入れましょう！
—
1. なぜ「動的機構のVBA制御」が必要なのか？
実務で複雑な機械装置やロボットアーム、多関節機構を扱うとき、手動でのアニメーション作成は苦行でしかありません。
- 角度を1度ずつ変えてキーフレームを打ち直す
- 設計変更が入るたびにアニメーションを作り直す
- レンダリングまでの待ち時間を手動で管理する
これらをVBAで完全自動化できれば、「パラメータ（数値）を入力するだけで、計算された完璧な動作アニメーションと動画ファイルが自動出力される」という、夢のような自動化パイプラインが完成します。
本記事でマスターするゴール
1. アセンブリ内のコンポーネントの位置・姿勢（変換行列）をVBAから直接書き換える概念を理解する。
2. 動作スタディのモーショングラフィック機能に対し、時間（秒）と位置のデータをプログラムから流し込む。
3. 実行から動画保存（レンダリング）までをワンクリックで完結させる。
—
2. 開発の前提：SolidWorks APIにおける「位置と姿勢」の支配
VBAからアセンブリ内の部品を動かす場合、単に「合致（Mate）の数値をいじる」アプローチは、実はアニメーションのキーフレーム生成においては悪手です。動作スタディの計算エンジンの挙動と干渉し、エラーを起こしやすいからです。
プロが使うアプローチは、「コンポーネントのトランスフォーム（変換行列：Transform）を直接操作する」、あるいは「モーションスタディスタディマネージャー（Motion Study Manager）経由でキーを打つ」という方法です。
今回は、時間軸ごとのマトリクスを直接ハックする、最高にエキサイティングな手法の核心部分をお見せしましょう。
—
3. 実践！キーフレームデータを生成するVBAコード
以下のコードは、指定したアセンブリ部品に対して、時間軸（例: 0秒、2秒、4秒）に応じた回転・移動のマトリクスを計算し、アニメーションのキーフレームを模した挙動をVBAからアセンブリに流し込むための骨組みです。
‘ ==============================================================================
‘ 開発現場で使える！SolidWorks VBA アニメーション制御の極意
‘ ==============================================================================
Sub Main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAsm As SldWorks.AssemblyDoc
Dim swComp As SldWorks.Component2
‘ 1. SolidWorksアプリケーションの取得
Set swApp = Application.SldWorks
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 swAsm = swModel
‘ 2. 操作対象のコンポーネントを取得（例としてアセンブリ内の1番目のコンポーネント）
‘ ※実務ではコンポーネント名（ファイル名）で検索して取得することを推奨します
Dim vComps As Variant
vComps = swAsm.GetComponents(False)
If UBound(vComps) < 0 Then
MsgBox "コンポーネントが存在しません。", vbCritical
Exit Sub
End If
Set swComp = vComps(0) ' 最初の部品
' 3. タイムライン（時間軸）に沿った動的制御のシミュレーションループ
Dim t As Double
Dim transform As SldWorks.MathTransform
Dim swMathUtil As SldWorks.MathUtility
Set swMathUtil = swApp.GetMathUtility
MsgBox "これより、VBAによる動的マトリクス制御でコンポーネントをアニメーションさせます。", vbInformation
' 0秒から5秒まで、1秒刻みで位置を変化させる（簡易キーフレーム演算）
For t = 0 To 5
' 時間 t に応じた位置・回転マトリクスを生成する関数を呼び出す
Set transform = CreateMatrixForTime(swMathUtil, t)
' コンポーネントに新しい位置・姿勢を適用
' ※注意: 外部参照や固定（Fixed）されている場合は事前に解除が必要です
Dim boolstatus As Boolean
boolstatus = swComp.SetTransform2(transform)
' 画面を強制更新（これがないと描画が追いつきません）
swModel.GraphicsRedraw2
' 動作を確認できるよう少しウェイトを入れる
DoEvents
Next t
MsgBox "アニメーション用のマトリクス制御が完了しました！", vbInformation
End Sub
' ------------------------------------------------------------------------------
' 補助関数: 時間 t に応じたMathTransform（3次元変換行列）を生成する
' ------------------------------------------------------------------------------
Function CreateMatrixForTime(swMathUtil As SldWorks.MathUtility, ByVal timeSec As Double) As SldWorks.MathTransform
Dim data(15) As Double
Dim i As Long
' 単位行列の初期化
For i = 0 To 15
data(i) = 0#
Next i
data(0) = 1#: data(5) = 1#: data(10) = 1#: data(15) = 1# ' スケーリングと対角成分
' 例：時間経過（timeSec）に応じてZ軸まわりに回転させるラジアンを計算
Dim angle As Double
angle = timeSec (3.14159265 / 180#) 15# ' 1秒あたり15度回転
' 回転行列の成分を設定（Z軸回転の簡易表現）
data(0) = Cos(angle)
data(1) = Sin(angle)
data(4) = -Sin(angle)
data(5) = Cos(angle)
' 平行移動成分（X, Y, Z）を必要に応じてここに加えることも可能
' data(12) = 移動X
' data(13) = 移動Y
' data(14) = 移動Z
' MathTransform オブジェクトを作成して返す
Set CreateMatrixForTime = swMathUtil.CreateTransform(data)
End Function
---
4. コードの解説と「陥りやすい罠」の回避策
上記のコードは一見シンプルですが、SolidWorks APIの裏側の仕組みを知らないと、以下のような「現場の罠」にハマります。先輩エンジニアからのアドバイスとして、しっかりと頭に入れておいてください。
罠その1：「固定（Fixed）」された部品は動かない
アセンブリを開いた初期状態では、原点に置いた最初の部品が「(f) 固定」状態になっていることがよくあります。固定されたコンポーネントに対して `SetTransform2` を実行しても、マトリクスは無視されるかエラーになります。
- 対策: プログラム側で `swComp.IsFixed` をチェックし、固定されている場合は一時的に解除するか、動作させる部品の固定を外した状態でマクロを実行してください。
罠その2：画面描画の遅延（GraphicsRedraw2の重要性）
VBAは非常に高速に処理を実行するため、画面の描画更新（GraphicsRedraw2）や `DoEvents` を挟まないと、ループが一瞬で終了し、部品がワープしたようにしか見えません。アニメーションとして目で追わせたい、あるいは動画キャプチャツールと連携させたい場合は、適切なウェイトと再描画が命となります。
罠その3：本格的な「モーションスタディ」との違い
今回のコードは、「アセンブリ内のコンポーネントのトランスフォームを直接時間経過で書き換える（キネマティックな力技）」というアプローチです。
もしSolidWorksの本格的な「モーションスタディ（Motion Study）」のタイムラインに正確にキーを打ち込み、重力やバネなどの物理演算結果としてレンダリングしたい場合は、`ISwMotionStudy` インターフェースを呼び出す、さらに高度なAPI群を使用する必要があります。まずは今回の「マトリクス制御の基本」をマスターすることが、そこへの最短ルートとなります。
—
5. おわりに：ここをクリアすれば、あなたもSolidWorks APIのプロだ
お疲れ様でした！今回は少し数学的な要素（変換行列：MathTransform）も交えながら、アセンブリの動的制御の裏側を覗いてみました。
「マクロの記録」の殻を破り、数学とコードでSolidWorksの空間を自在に支配できるようになると、設計自動化の世界は一気に広がります。毎日の退屈なルーティンワークをコードに置き換え、自分だけの最強の自動化システムを構築してください。
ここをクリアしたあなたなら、どんなに複雑なアセンブリ自動化も怖くありません。
それでは、次回のエンジニアリング解説もお楽しみに！バッチリ業務を効率化していきましょう！
