Deletes a knot-line from a surface object.
Rhino.RemoveSurfaceKnot (strObject, arrParameter, intDirection)
|
strObject |
Required. String. The identifier of the surface object. |
|
dblParameter |
Required. Array. An array containing a U,V parameter on the surface. Note, if the parameter is not equal to one of the existing knots, then the knot closest to the specified parameter will be removed. |
|
intDirection |
Required. Number. The direction for knot insertion, either 0 = U, or 1 = V. |
|
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 removal", rhObjectSurface)
If Not IsNull(strObject)Then
arrPoint = Rhino.GetPointOnSurface(strObject, "Point on surface to remove knot")
If IsArray(arrPoint) Then
arrParameter = Rhino.SurfaceClosestPoint(strObject, arrPoint)
Rhino.RemoveSurfaceKnot strObject, arrParameter, 0
End If
End If