CurveArrows

Enables or disabled a curve object's annotation arrows.

Rhino.CurveArrows (strObject [, intStyle])

strObject

Required. String. The object's identifier.

intStyle

Optional. Number. The style of annotation arrows to be displayed. The styles are as follows:

Value	Description
0	No annotation arrows
1	Display an annotation arrow at the starting point of the curve
2	Display an annotation arrow at the ending point of the curve
3	Display an annotation arrow at both the starting point and the ending point of the curve

Number	If intStyle is not specified, the current annotation arrow style if successful.
Number	If intStyle is specified, the previous annotation arrow style if successful.
Null	If not successful, or on error.

Dim strObject, intStyle

strObject = Rhino.GetObject("Select a curve", 4)

If Rhino.CurveArrows(strObject) <> 3 Then

Rhino.CurveArrows strObject, 3

End If