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