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