Latitude Example

Land Auto

previous page next page

Latitude Example 

Sub Example_Latitude ()
    
    ' 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, "Latitude Example"
    
End Sub

previous page start next page