SurfaceCurvatureAnalysis - PYTHON 不支持

返回曲面的曲率数据。See the Rhino help file for details on surface curvature analysis.

语法

Rhino.SurfaceCurvatureAnalysis (strObject)

参数

strObject

Required.字符串。The object's identifier.

返回值

Array

An array of curvature information if successful.The array will contain the following information:

Element	Type	描述
0	Array	An array containing three values: the min Gaussian curvature, the max Gaussian curvature, and the infinity status.
1	Array	An array containing three values: the min unsigned mean curvature, the max unsigned mean curvature, and the infinity comparison.
2	Array	An array containing three values: the min maximum unsigned radius of curvature, the max maximum unsigned radius of curvature, and the infinity comparison.
3	Array	An array containing three values: the min minimum unsigned radius of curvature, the max minimum unsigned radius of curvature, and the infinity comparison.

Null

如果执行不成功或出错，返回空值。

示例

Sub TestSurfaceCurvatureAnalysis

Const rhObjectSurface = 8

Dim strObject, arrAnalysis

strObject = Rhino.GetObject("Select a surface", rhObjectSurface)

If Rhino.IsSurface(strObject) Then

arrAnalysis = Rhino.SurfaceCurvatureAnalysis(strObject)

If IsArray(arrAnalysis) Then

PrintValues "Gaussian curvature:", arrAnalysis(0)

PrintValues "Unsigned mean curvature:", arrAnalysis(1)

PrintValues "Unsigned maximum radius of curvature:", arrAnalysis(2)

PrintValues "Unsigned minimum radius of curvature:", arrAnalysis(3)

End If

End Sub

Sub PrintValues(str, arr)

Dim s0, s1

CompareValues arr(0), arr(1), arr(2), s0, s1

Rhino.Print str & s0 & " to " & s1

End Sub

Sub CompareValues(ByVal mn, ByVal mx, ByVal infinity, ByRef s0, ByRef s1)

If Abs(mn) < infinity Then

s0 = CStr(mn)

ElseIf mn < 0.0 Then

s0 = "-infinity"

Else

s0 = "+infinity"

End If

If Abs(mx) < infinity Then

s1 = CStr(mx)

ElseIf mx < 0.0 Then

s1 = "-infinity"

Else

s1 = "+infinity"

End If

End Sub

同见

SurfaceCurvature