CurveLength Example
Sub Example_CurveLength()
' This example returns the CurveLength value for the second PVI in the
' first finished ground of the first alignment in the collection.
Dim align As AeccAlignment
Dim FGProf As AeccFGProfile
Dim PVI As AeccPVI
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set FGProf = align.FGProfiles.Item(0)
Set PVI = FGProf.PVIs.Item(1)
MsgBox "The CurveLength of the second PVI is: " _
& Format(PVI.CurveLength, "0.000"), vbInformation, "CurveLength Example"
End Sub