Longitude Example

Longitude Example

Sub Example_Longitude ()

    ' This example returns the Latitude and Longitude

    ' for the first CogoPoint in the collection.

    Dim cogoPnt As AeccCogoPoint

    Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)

    MsgBox "The Latitude for the first CogoPoint in the collection is: " & cogoPnt.Latitude & vbCrLf & _

        "The Longitude for the first CogoPoint in the collection is: " & cogoPnt.Longitude, vbInformation, "Longitude Example"

End Sub