Perimeter Example

Land Auto

previous page next page

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

previous page start next page