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