PerpIntersection Example

PerpIntersection Example

Sub Example_PerpIntersection()

    ' This example gets the PerpIntersection from a user supplied point

    ' for the first Alignment in the collection..

    Dim align As AeccAlignment

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

    Dim returnPnt As Variant

    Dim coords As Variant

    ' Get the point

    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point near the first alignment: ")

    ' Get the perpendicular intersection location

    coords = align.PerpIntersection(returnPnt(0), returnPnt(1))

    MsgBox "The PerpIntersection for the first Alignment is:" & vbCrLf & _

        "   Station: " & coords(0) & vbCrLf & _

        "   Direction: " & coords(1) & vbCrLf & _

        "   Easting: " & coords(2) & vbCrLf & _

        "   Northing: " & coords(3), vbInformation, "PerpIntersection Example"

End Sub