ExternalStaToInternal Example

Sub Example_ExternalStaToInternal()

    ' This example gets the ExternalStaToInternal of 100.0

    ' for the first Alignment in the collection..

    Dim align As AeccAlignment

    Set align = AeccApplication.ActiveProject.Alignments.Item(0)

    Dim intSta As Variant

    intSta = align.ExternalStaToInternal(100#)

    MsgBox "The ExternalStaToInternal of 100.0 for the first Alignment is: " & intSta(0), _

        vbInformation, "ExternalStaToInternal Example"

End Sub