Maxwell Render | Official public forum

Option Explicit

Sub main()

    ' create ScriptObject
    'Dim maxwell As New Maxwell_Script.scriptobject
    
    ' successfully created
    'If maxwell Is Nothing Then Exit Sub
    
    ' actually connected?
    'If Not maxwell.IsConnected Then Exit Sub

    Dim app As Object
    Set app = Application.SldWorks
    
    Dim model As Object
    Dim extension As Object

    Set model = app.ActiveDoc
    Set extension = model.extension
    
    Dim motionMgr As Object
    Dim motionStudy As Object

    ' Get the MotionManager

    Set motionMgr = extension.GetMotionStudyManager()
    
    ' motion study manager present?
    If (motionMgr Is Nothing) Then
        MsgBox "MotionStudyManager was not found."
        Exit Sub
    End If
    
    ' get motion study name
    Dim motionStudyName
    motionStudyName = InputBox( _
        "Enter the name of the Motion Study you would like to render.", _
        "Choose Motion Study", "Motion Study 1")

    ' cancelled?
    If motionStudyName = "" Then Exit Sub

    ' get motion study
    Set motionStudy = motionMgr.GetMotionStudy(motionStudyName)

    ' chosen study exists?
    If (motionStudy Is Nothing) Then
        MsgBox motionStudyName + " does not exist."
        Exit Sub
    End If
    
    Dim seconds, fps
    seconds = motionStudy.getduration
    
    
    ' get number of frames
    fps = InputBox( _
        "Enter the number of frames per second to export.", _
        "Frames per second", 25)
        
    If fps = "" Then Exit Sub

    If Not motionStudy.IsActive Then motionStudy.Activate
    
    motionStudy.settime 0
    'maxwell.Rendering.BeginAnimation
    
    Dim i
    For i = 0 To seconds * fps
       'maxwell.Rendering.RenderToMxs
       motionStudy.settime (i / fps)
    Next
    
    'maxwell.Rendering.EndAnimation
    motionStudy.settime 0

End Sub

Dim swApp As Object
Sub main()

Set swApp = Application.SldWorks
End Sub

Option Explicit

Sub main()

    ' create ScriptObject
    'Dim maxwell As New Maxwell_Script.scriptobject

   [etc.]
    
    'maxwell.Rendering.EndAnimation
    motionStudy.settime 0

End Sub