Function CreateByCollapse( _
   ByVal DeleteExistingPath As Boolean, _
   ByVal Duration As Double, _
   ByVal StartTime As Double _
) As Boolean

Dim instance As IMotionStudy
Dim DeleteExistingPath As Boolean
Dim Duration As Double
Dim StartTime As Double
Dim value As Boolean
 
value = instance.CreateByCollapse(DeleteExistingPath, Duration, StartTime)

bool CreateByCollapse( 
   bool DeleteExistingPath,
   double Duration,
   double StartTime
)

bool CreateByCollapse( 
&   bool DeleteExistingPath,
&   double Duration,
&   double StartTime
) 

Parameters

DeleteExistingPath

True to delete any existing animation sequences, false to not

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 an exploded view of 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.CreateByCollapse(True, 5, 0)

' Play the animation

swMotion.Play

End Sub