Get Precisions of Dimension Example (VBA)

This example shows how to get the precisions for a dimension.

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

'

' Preconditions:

'       (1) Part, assembly or drawing is open.

'       (2) Dimension is selected.

'

' Postconditions: None

'

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

Option Explicit

Public Enum swDimensionPrecisionSettings_e

    swDoNotChangePrecisionSetting = -1

    swPrecisionFollowsDocumentSetting = -2

    swTolerancePrecisionFollowsNominal = -3

End Enum

Sub main()

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.ModelDoc2

    Dim swSelMgr            As SldWorks.SelectionMgr

    Dim swDispDim           As SldWorks.DisplayDimension

    Dim swDim               As SldWorks.Dimension

    Dim bRet                As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swDispDim = swSelMgr.GetSelectedObject5(1)

    Set swDim = swDispDim.GetDimension

    Debug.Print "Dim = " & swDim.FullName

    Debug.Print "  Nominal:"

    Debug.Print "    Primary      = " & swDispDim.GetPrimaryPrecision2

    Debug.Print "    Alternate    = " & swDispDim.GetAlternatePrecision2

    Debug.Print "  Tolerance:"

    Debug.Print "    Primary      = " & swDispDim.GetPrimaryTolPrecision2

    Debug.Print "    Alternate    = " & swDispDim.GetAlternateTolPrecision2

End Sub

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