CentroidEasting Example
Sub Example_CentroidEasting()
' This example returns the CentroidEasting and the CentroidNorthing
' for the first parcel in the collection.
Dim parcel As AeccParcel
Set parcel = AeccApplication.ActiveProject.parcels.Item(0)
MsgBox "The CentroidEasting for the first Parcel in the collection is: " _
& Format(parcel.CentroidEasting, "0.00") & vbCrLf & _
"The CentroidNorthing for the first Parcel in the collection is: " _
& Format(parcel.CentroidNorthing, "0.00"), vbInformation, "CentroidEasting Example"
End Sub