CourseOut Example
Sub Example_CourseOut()
' This example returns the CourseOut for the first curve 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)
Dim parcelMsg As String
parcelMsg = "There is no Curve entity in the first Parcel."
' Find first Curve in the parcel
For Each parcelEnt In parcel.ParcelEntities
If parcelEnt.Type = kParcelCurve Then
parcelMsg = "The CourseIn for the first Curve in the Parcel is: " _
& parcelEnt.CourseIn & vbCrLf _
& "The CourseOut for the first Curve in the Parcel is: " _
& parcelEnt.CourseOut
Exit For
End If
Next
MsgBox parcelMsg, vbInformation, "CourseOut Example"
End Sub