Inserts a knot into a surface object.
Rhino.InsertSurfaceKnot (strObject, arrParameter, intDirection [, blnSymmetrical)
strObject |
Required. String. The identifier of the surface object. |
dblParameter |
Required. Array. An array containing a U,V parameter on the surface. |
intDirection |
Required. Number. The direction for knot insertion, either 0 = U, 1 = V, or 2 = both. |
blnSymmetrical |
Optional. Boolean. If blnSymmetrical = True, then knots are added on both sides of the center of the surface. The default value is False. |
Boolean |
True of False indicating success or failure. |
Null |
On error. |
Const rhObjectSurface = 8
Dim strObject, arrPoint, arrParameter
strObject = Rhino.GetObject("Select surface for knot insertion", rhObjectSurface)
If VarType(strObject) = vbString Then
arrPoint = Rhino.GetPointOnSurface(strObject, "Point on surface to add knot")
If IsArray(arrPoint) Then
arrParameter = Rhino.SurfaceClosestPoint(strObject, arrPoint)
Rhino.InsertSurfaceKnot strObject, arrParameter, 0
End If
End If