EGProfiles Example

EGProfiles Example

Sub Example_EGProfiles()

    ' This example returns the number of existing ground profiles for the

    ' first alignment in the collection.

    Dim align As AeccAlignment

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

    MsgBox "The number of existing ground profiles in first alignment is: " & _

        align.EGProfiles.Count , vbInformation, "EGProfiles Example"

End Sub