Function CreateByRotateModel( _
   ByVal DeleteExistingPath As Boolean, _
   ByVal Axis As Integer, _
   ByVal RotationCount As Integer, _
   ByVal Direction As Integer, _
   ByVal Duration As Double, _
   ByVal StartTime As Double _
) As Boolean

Dim instance As IMotionStudy
Dim DeleteExistingPath As Boolean
Dim Axis As Integer
Dim RotationCount As Integer
Dim Direction As Integer
Dim Duration As Double
Dim StartTime As Double
Dim value As Boolean
 
value = instance.CreateByRotateModel(DeleteExistingPath, Axis, RotationCount, Direction, Duration, StartTime)

bool CreateByRotateModel( 
   bool DeleteExistingPath,
   int Axis,
   int RotationCount,
   int Direction,
   double Duration,
   double StartTime
)

bool CreateByRotateModel( 
&   bool DeleteExistingPath,
&   int Axis,
&   int RotationCount,
&   int Direction,
&   double Duration,
&   double StartTime
) 

Parameters

DeleteExistingPath

True to delete any existing animation sequences, false to not

Axis

Axis about which to rotate the model as defined by swAnimatorAxisOfRotation_e

RotationCount

Number of rotations

Direction

Direction of rotation as defined by swAnimatorDirectionOfRotation_e

Duration

Length of time of the animation in seconds

StartTime

Time to start this animation (see Remarks)

Return Value

If you have existing animation sequences, then the start time of this animation should account for the total time of all previous sequences. If this is a new animation sequence, set StartTime to 0 to start the animation immediately, or type a value to delay the start of the sequence.

Example:

' Precondition: Active document contains a part or an assembly.

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swMotionMgr As SwMotionStudy.MotionStudyManager

Dim swMotion As SwMotionStudy.MotionStudy

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

'

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

Set swMotionMgr = swModelDocExt.GetMotionStudyManager

' Create a new motion study

Set swMotion = swMotionMgr.CreateMotionStudy

' Delete any existing animation sequences,

' set the animation duration to 5 seconds, and play

' the animation immediately when IMotionStudy::Play is called

boolstatus = swMotion.CreateByRotateModel(True, swRotationAboutXAxis, 1, swRotationClockwise, 10, 0)

' Play the animation

swMotion.Play

End Sub