Get and Set Material Density Example (VBA)

This example shows how to get and set the material density for a part.

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

'

' Preconditions: Part document is open.

'

' Postconditions: None

'

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

Option Explicit

Public Enum swUserPreferenceDoubleValue_e

    swMaterialPropertyDensity = 7

End Enum

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim nDensity                As Double

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Debug.Print "File   = " + swModel.GetPathName

    ' Density is returned in metric units, i.e., kg/m^3

    nDensity = swModel.GetUserPreferenceDoubleValue(swMaterialPropertyDensity)

    Debug.Print "  Get current density = " & nDensity & " kg/m^3"

    bRet = swModel.SetUserPreferenceDoubleValue(swMaterialPropertyDensity, nDensity / 2#): Debug.Assert bRet

    nDensity = swModel.GetUserPreferenceDoubleValue(swMaterialPropertyDensity)

    Debug.Print "  Set new density = " & nDensity & " kg/m^3"

End Sub

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