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