GridNorthing Example

Land Auto

GridNorthing Example

Sub Example_GridNorthing()
    
    ' This example returns the GridNorthing for the first CogoPoint in the collection.
    Dim cogoPnt As AeccCogoPoint
    Set cogoPnt = AeccApplication.ActiveProject.CogoPoints.Item(0)
    
    MsgBox "The GridNorthing for the first CogoPoint in the collection is: " & cogoPnt.GridNorthing, _
        vbInformation, "GridNorthing Example"
    
End Sub