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