Verifies a polysurface object is planar.
Rhino.IsPolysurfacePlanar (strObject)
strObject |
Required.字符串。The object's identifier. |
Boolean |
True if successful, otherwise False. |
Null |
On error. |
Const rhObjectPolySurface = 16
Dim strObject
strObject = Rhino.GetObject("Select a polysurface", rhObjectPolySurface)
If Rhino.IsPolysurfacePlanar(strObject) Then
Rhino.Print "The polysurface is planar."
Else
Rhino.Print "The polysurface is not planar."
End If