Get Equation Values Example (VBA)

This example shows how to get values of any equations.

'-----------------------------------------

'

' Preconditions: One or more equations exist in the active model document.

'

' Postconditions: None

'

'------------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swEqnMgr                As SldWorks.EquationMgr

    Dim i                       As Long

    Dim nCount                  As Long

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swEqnMgr = swModel.GetEquationMgr

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Status = " & swEqnMgr.status

    nCount = swEqnMgr.GetCount

    For i = 0 To nCount - 1

        Debug.Print "  Eqn(" & i & ")  = " & swEqnMgr.equation(i)

        Debug.Print "    Value  = " & swEqnMgr.Value(i)

        Debug.Print "    Supp   = " & swEqnMgr.Suppression(i)

    Next i

End Sub

'-----------------------------------------