EndEasting Example
Examples:
l AlignEntity, AlignCurve, AlignSpiral, AlignTangent
l ParcelEntity, ParcelCurve, ParcelLine
Sub Example_EndEasting_AlignEntity()
' This example returns the EndEasting for the first entity in the
' first Alignment in the collection.
Dim align As AeccAlignment
Dim alignEnt As AeccAlignEntity
Set align = AeccApplication.ActiveProject.Alignments.Item(0)
Set alignEnt = align.AlignEntities.Item(0)
MsgBox "The EndEasting of the first entity in the Alignment is: " & alignEnt.EndEasting, _
vbInformation, "EndEasting Example"
End Sub
Sub Example_EndEasting_ParcelEntity()
' This example returns the EndEasting 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 EndEasting of the first entity in the Parcel is: " & parcelEnt.EndEasting, _
vbInformation, "EndEasting Example"
End Sub