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