Alignments Example

Alignments Example

Sub Example_Alignments()

    ' This example returns the tick increment for Alignments Preferences

    ' in the current project.

    Dim prefPrj As AeccPreferencesProject

    Set prefPrj = AeccApplication.ActiveProject.Preferences

    MsgBox "The tick increment for Alignments Preferences in the current Project is: " & prefPrj.Alignment.GetDouble(kStationTickIncrement) _

        , vbInformation, "Alignments Example"

End Sub