调节闭合曲面的接缝。For more information, see the Rhino help file for the SrfSeam command.
Rhino.SurfaceSeam (strObject, intDirection, dblParameter)
strObject |
Required.字符串。The object's identifier. |
intDirection |
Required.Number.The parameter direction, where 0 = U and 1 = V. |
dblParameter |
Required.Number.The parameter at which to place the seam. |
Boolean |
True of False indicating success or failure. |
Null |
On error. |
Dim strSurface, arrPoint, arrUV
strSurface = Rhino.GetObject("Select surface for seam adjustment", 8)
If Not IsNull(strSurface) Then
If Rhino.IsSurfaceClosed(strSurface, 0) Or Rhino.IsSurfaceClosed(strSurface, 1) Then
arrPoint = Rhino.GetPointOnSurface(strSurface, "Select new seam location")
If IsArray(arrPoint) Then
arrUV = Rhino.SurfaceClosestPoint(strSurface, arrPoint)
If Rhino.IsSurfaceClosed(strSurface, 0) Then
Rhino.SurfaceSeam strSurface, 0, arrUV(0)
Else
Rhino.SurfaceSeam strSurface, 1, arrUV(1)
End If
End If
End If
End If