ExtendCurvePoint

Extends a non-closed curve object by smooth extension to a point.

Rhino.ExtendCurvePoint (strObject, intSide, arrPoint [, intType])

strObject

Required. String. The object's identifier.

intSide

Required. Number. The size to extent.

Value	Description
0	Extend from the start of the curve.
1	Extend from the end of the curve.

arrPoint

Required. Array. The 3-D point.

intType

Optional. Number. Type of extension.

Value	Description
0	Line - Creates an line extension tangent to the original curve.
1	Arc - Creates an arc extension tangent to the original curve.
2 (Default)	Smooth - Creates a smooth curve extension curvature continuous with the original curve.

String	The identifier of the extended object if successful.
Null	If not successful, or on error.

Const rhObjectCurve = 4

Dim strCurve, arrPoint,

strCurve = Rhino.GetObject("Select curve to extend", rhObjectCurve)

If Not IsNull(strCurve) Then

arrPoint = Rhino.GetPoint("Point to extend to")

If IsArray(arrPoint) Then

Rhino.ExtendCurvePoint strCurve, 1, arrPoint

End If