Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swMotionMgr As SwMotionStudy.MotionStudyManager

Dim swMotionStudy1 As SwMotionStudy.MotionStudy

Dim swMotionStudy2 As SwMotionStudy.MotionStudy

Dim swMotionStudy3 As SwMotionStudy.MotionStudy

Dim swSaveAVIData As SwMotionStudy.AVIParameter

Dim boolstatus As Boolean

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    Set swSaveAVIData = swMotionMgr.CreateAVIParameter()

    swSaveAVIData.FramePerSecond = 7.5

    swSaveAVIData.SaveEntireAnimation = True

    swSaveAVIData.OutputType = 1 ' Save as an .avi file

End Sub