Nodes Example

Nodes Example

Sub Example_Nodes()

  'This example displays the number of nodes on the layout curve
  
  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 "Number of nodes is: " & layoutCurve.nodes.Count, vbInformation, "Nodes Example"
  Else
      MsgBox "Not a AEC Layout Curve", vbExclamation, "Nodes Example"
  End If

End Sub