EndNorthing Example
Examples:
l AlignEntity, AlignCurve, AlignSpiral, AlignTangent
l ParcelEntity, ParcelCurve, ParcelLine
Sub Example_EndNorthing_AlignEntity()
' This example returns the EndNorthing 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 EndNorthing of the first entity in the Alignment is: " & alignEnt.EndNorthing, _
vbInformation, "EndNorthing Example"
End Sub
Sub Example_EndNorthing_ParcelEntity()
' This example returns the EndNorthing 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 EndNorthing of the first entity in the Parcel is: " & parcelEnt.EndNorthing, _
vbInformation, "EndNorthing Example"
End Sub