Get Parameters of Reference Axis Example (VBA)

This example shows how to get the parameters of a reference axis.

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

'

' Preconditions:

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

'       (2) Reference axis feature is selected.

'

' Postconditions: None

'

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swFeat                      As SldWorks.feature

    Dim swRefAxis                   As SldWorks.refAxis

    Dim vAxisParam                  As Variant

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swFeat = swSelMgr.GetSelectedObject5(1)

    Set swRefAxis = swFeat.GetSpecificFeature2

    vAxisParam = swRefAxis.GetRefAxisParams

    Debug.Print "Name = " & swFeat.Name

    Debug.Print "  Start    = (" & vAxisParam(0) * 1000 & ", " & vAxisParam(1) * 1000 & ", " & vAxisParam(2) * 1000 & ") mm"

    Debug.Print "  End      = (" & vAxisParam(3) * 1000 & ", " & vAxisParam(4) * 1000 & ", " & vAxisParam(5) * 1000 & ") mm"

End Sub

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