LayoutCurve Example

LayoutCurve Example

Examples:

l AecLayoutCurveNode

l AecLayoutCurveNodes

---

Sub Example_LayoutCurve_AecLayoutCurveNode()

  'This example displays the color of the nodes owner layout curve
  
  Dim obj As Object
  Dim pt As Variant
  Dim layoutCurve As AecLayoutCurve
  Dim node As AecLayoutCurveNode
  
  ThisDrawing.Utility.GetEntity obj, pt, "Select a Layout Curve"
  
  If TypeOf obj Is AecLayoutCurve Then
      Set layoutCurve = obj
      Set node = layoutCurve.nodes.Item(0)
      MsgBox "Color is: " & node.layoutCurve.Color, vbInformation, "LayoutCurve Example"
  Else
      MsgBox "Not a Layout Curve", vbExclamation, "LayoutCurve Example"
  End If

End Sub

---

Sub Example_LayoutCurve_AecLayoutCurveNodes()

  'This example displays the color of the node collections owner curve
  
  Dim obj As Object
  Dim pt As Variant
  Dim layoutCurve As AecLayoutCurve
  Dim nodes As AecLayoutCurveNodes
  
  ThisDrawing.Utility.GetEntity obj, pt, "Select a Layout Curve"
  
  If TypeOf obj Is AecLayoutCurve Then
      Set layoutCurve = obj
      Set nodes = layoutCurve.nodes
      MsgBox "Color is: " & nodes.layoutCurve.Color, vbInformation, "LayoutCurve Example"
  Else
      MsgBox "Not a Layout Curve", vbExclamation, "LayoutCurve Example"
  End If

End Sub

---