PVIs Example

PVIs Example

Sub Example_PVIs()

    ' This example uses the PVIs property to get the number of PVIs for the

    ' finished ground profile in the first alignment in the collection.

    Dim align As AeccAlignment

    Dim FGProf As AeccFGProfile

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

    Set FGProf = align.FGProfiles.Item(0)

    MsgBox "The number of PVIs for the finished ground profile in the first alignment is: " _

        & FGProf.PVIs.Count, vbInformation, "PVIs Example"

End Sub