StartOffset Example

AEC Auto

StartOffset Example

Sub Example_StartOffset()

  'This example displays the start 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 "StartOffset is: " & layoutCurve.StartOffset, vbInformation, "StartOffset Example"
  Else
      MsgBox "Not a AEC Layout Curve", vbExclamation, "StartOffset Example"
  End If

End Sub