Precision Example

Precision Example

Sub Example_Precision()

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

    Dim parcel As AeccParcel

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

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

        & parcel.Precision, vbInformation, "Precison Example"

End Sub