Alignments Example

Land Auto

previous page next page

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

previous page start next page