Perimeter Example

Perimeter Example

Sub Example_Perimeter()

    ' This example returns the Perimeter for the first parcel in the collection.

    Dim parcel As AeccParcel

    Set parcel = AeccApplication.ActiveProject.parcels.Item(0)

    MsgBox "The Perimeter for the first Parcel in the collection is: " _

        & Format(parcel.Perimeter, "0.00"), vbInformation, "Perimeter Example"

End Sub