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