CentroidNorthing Example

Land Auto

CentroidNorthing Example

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