在曲面物件插入节点。
Rhino.InsertSurfaceKnot (strObject, arrParameter, intDirection [, blnSymmetrical)
strObject |
Required.字符串。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 |
可选参数。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
End If
End If