CurrentAlignment Example
Sub Example_CurrentAlignment()
' This example returns the CurrentAlignment Value.
Dim aligns As AeccAlignments
Set aligns = AeccApplication.ActiveProject.Alignments
MsgBox "The CurrentAlignment for alignments is " & aligns.CurrentAlignment, _
vbInformation, "CurrentAlignment Example"
End Sub