Verifies that a point is inside a closed surface or polysurface.
Rhino.IsPointInSurface (strObject, arrPoint [, blnStrictlyIn [, dblTolerance]])
strObject |
Required. String. The object's identifier. |
arrPoint |
Required. Array. The test, or sampling, point. |
blnStrictlyIn |
Optional. Boolean. If False (Default), then the test point is considered inside if it is truly inside or within tolerance of boundary. If True, then the test point must be inside by at least the tolerance. |
dblTolerance |
Optional. Number. The distance tolerance used for intersection and determining strict inclusion. If omitted, then Rhino's internal tolerance is used. |
Boolean |
True if successful, otherwise False. |
Null |
On error. |
Const rhObjectPolySurface = 16
Dim strObject, arrPoint
strObject = Rhino.GetObject("Select a polysurface", rhObjectPolySurface)
If Rhino.IsPolysurfaceClosed(strObject) Then
arrPoint = Rhino.GetPoint("Pick a test point")
If IsArray(arrPoint) Then
If Rhino.IsPointInSurface(strObject, arrPoint) Then
Rhino.Print "The point is inside the polysurface."
Else
Rhino.Print "The point is not inside the polysurface."
End If
End If
End If