Verifies that a point lies on a surface.
Rhino.IsPointOnSurface (strObject, arrPoint [, dblTolerance])
strObject |
Required. String. The object's identifier. |
arrPoint |
Required. Array. The test, or sampling, point. |
dblTolerance |
Optional. Number. A tolerance to test against. Of omitted, Rhino's internal tolerance is used. |
Boolean |
True if successful, otherwise False. |
Null |
On error. |
Dim strObject, arrPoint
strObject = Rhino.GetObject("Select a surface")
If Rhino.IsSurface(strObject) Then
arrPoint = Rhino.GetPoint("Pick a test point")
If IsArray(arrPoint) Then
If Rhino.IsPointOnSurface(strObject, arrPoint) Then
Rhino.Print "The point is on the surface."
Else
Rhino.Print "The point is not on the surface."
End If
End If
End If