Course Example

Course Example

Sub Example_Course()

    ' This example returns the Course for the first entity in the

    ' first Parcel in the collection.

    Dim parcel As AeccParcel

    Dim parcelEnt As AeccParcelEntity

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

    Set parcelEnt = parcel.ParcelEntities.Item(0)

    MsgBox "The Course of the first entity in the Parcel is: " & parcelEnt.Course, _

        vbInformation, "Course Example"

End Sub