Adds curvature curves at the evaluated point on a surface. For more information, see the Rhino help file for the Curvature command.
Rhino.SurfacePrincipalCurvature (strObject, arrParameter)
|
strObject |
Required. String. The object's identifier. |
|
arrParameter |
Required. Array. An array containing the UV parameter to evaluate. |
|
Array |
An array of two string that identify the Maximum and Minimum principal curvature curves, respectively, if successful. |
|
Null |
If not successful, or on error. |
Sub TestSurfacePrincipalCurvature
Dim strSurface, arrPoint, arrResult
strSurface = Rhino.GetObject("Select surface for curvature measurement", 8)
If IsNull(strSurface) Then Exit Sub
arrPoint = Rhino.GetPointOnSurface(strSurface, "Select point on surface for curvature measurement")
If Not IsArray(arrPoint) Then Exit Sub
arrResult = Rhino.SurfacePrincipalCurvature(strSurface, arrPoint)
If Not IsArray(arrResult) Then Exit Sub
Rhino.ObjectName arrResult(0), "Maximum principal curvature"
Rhino.ObjectName arrResult(1), "Minimum principal curvature"
Rhino.SelectObjects arrResult
End Sub