ParcelEntities Example

Land Auto

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