FGProfiles Example

FGProfiles Example

Sub Example_FGProfiles()

    ' This example returns the number of finished ground pofiles for the

    ' first alignment in the collection.

    Dim align As AeccAlignment

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

    MsgBox "The number of finished groung profiles in first alignment is: " _

        & align.FGProfiles.Count , vbInformation, "FGProfiles Example"

End Sub