AnnotateCurveEndPoints

The following example demonstrates how to annotate the end points of a curve object.

Example

Option Explicit

'------------------------------------------------------------------------------

' Subroutine: AnnotateCurveEndPoints

' Purpose:    Annotates the endpoints of curve objects. If the curve is closed

'             then only the starting point is annotated.

'------------------------------------------------------------------------------

Sub AnnotateCurveEndPoints()

Const rhObjectCurve = 4

Dim strObject, arrPoint

' Get the curve object

strObject = Rhino.GetObject("Select curve", rhObjectCurve)

If IsNull(strObject) Then Exit Sub

' Add the first annotation

arrPoint = Rhino.CurveStartPoint(strObject)

Rhino.AddPoint arrPoint

Rhino.AddTextDot Rhino.Pt2Str(arrPoint, 3), arrPoint

' Add the second annotation if necessary

If Not Rhino.IsCurveClosed(strObject) Then

arrPoint = Rhino.CurveEndPoint(strObject)

Rhino.AddPoint arrPoint

Rhino.AddTextDot Rhino.Pt2Str(arrPoint, 3), arrPoint

End If

End Sub