ParcelEntities Example
Sub Example_ParcelEntities()
' This example uses the ParcelEntities property to get the number of entities for the
' of entities for the first parcel in the collection.
Dim parcel As AeccParcel
Set parcel = AeccApplication.ActiveProject.parcels.Item(0)
MsgBox "The number of entites for the first Parcel in the collection is: " _
& parcel.ParcelEntities.Count, vbInformation, "ParcelEntities Example"
End Sub