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