LayoutCurve Example
Examples:
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