Function CreateByExplode( _
   ByVal DeleteExistingPath As System.Boolean, _
   ByVal Duration As System.Double, _
   ByVal StartTime As System.Double _
) As System.Boolean

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

System.bool CreateByExplode( 
   System.bool DeleteExistingPath,
   System.double Duration,
   System.double StartTime
)

System.bool CreateByExplode( 
&   System.bool DeleteExistingPath,
&   System.double Duration,
&   System.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

'Active document contains an exploded view of an assembly

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.CreateByExplode(True, 5, 0)

' Play the animation

swMotion.Play

End Sub