Inserts a knot into a curve object.
Rhino.InsertCurveKnot (strObject, dblParameter [, blnSymmetrical)
|
strObject |
Required. String. The identifier of the curve object. |
|
dblParameter |
Required. Number. The parameter on the curve. |
|
blnSymmetrical |
Optional. Boolean. If blnSymmetrical = True, then knots are added on both sides of the center of the curve. The default value is False. |
|
Boolean |
True of False indicating success or failure. |
|
Null |
On error. |
Const rhObjectCurve = 4
Dim strObject, arrPoint, dblParameter
strObject = Rhino.GetObject("Select curve for knot insertion", rhObjectCurve)
If VarType(strObject) = vbString Then
arrPoint = Rhino.GetPointOnCurve(strObject, "Point on curve to add knot")
If IsArray(arrPoint) Then
dblParameter = Rhino.CurveClosestPoint(strObject, arrPoint)
Rhino.InsertCurveKnot strObject, dblParameter
End If
End If