EndOffset Example

EndOffset Example

Sub Example_EndOffset()

  'This example displays the end offset of a selected AEC Layout Curve Object
  
  Dim obj As Object
  Dim pt As Variant
  Dim layoutCurve As AecLayoutCurve
  
  ThisDrawing.Utility.GetEntity obj, pt, "Select a Node on an AEC Layout Curve"
  
  If TypeOf obj Is AecLayoutCurve Then
      Set layoutCurve = obj
      MsgBox "EndOffset is: " & layoutCurve.EndOffset, vbInformation, "EndOffset Example"
  Else
      MsgBox "Not a AEC Layout Curve", vbExclamation, "EndOffset Example"
  End If

End Sub