Change Labels of SOLIDWORKS Triad Example (VBA)

This example shows how to change the labels of the SOLIDWORKS triad.

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

'

' Preconditions: SOLIDWORKS model document is open.

'

' Postconditions: The labels of the triad are

'                 changed and then changed back to

'                 their original values.

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim rVal As String

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    rVal = swApp.SetUserPreferenceStringValue(swReferenceTriadXLabel, "AltX")

    If rVal = False Then swApp.SendMsgToUser ("ERROR: Unable to change triad label.")

    rVal = swApp.SetUserPreferenceStringValue(swReferenceTriadYLabel, "AltY")

    If rVal = False Then swApp.SendMsgToUser ("ERROR: Unable to change triad label.")

    rVal = swApp.SetUserPreferenceStringValue(swReferenceTriadZLabel, "AltZ")

    If rVal = False Then swApp.SendMsgToUser ("ERROR: Unable to change triad label.")

    swApp.SetUserPreferenceToggle swReferenceTriadUseAlternateLabels, True

    swModel.GraphicsRedraw2

    Stop 'Labels are changed

    swApp.SetUserPreferenceToggle swReferenceTriadUseAlternateLabels, False

    swModel.GraphicsRedraw2

    'Stop 'Labels are changed back to original

End Sub