CurveLength Example

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