PlaneClosestPoint

Returns the 3D point on a plane that is closest to a test point.

Rhino.PlaneClosestPoint (arrPlane, arrPoint)

arrPlane

Required. Array. The plane. The elements of a plane array are as follows:

0	Required. The plane's origin (3D point).
1	Required. The plane's X axis direction (3D vector).
2	Required. The plane's Y axis direction (3D vector).
3	Optional. The plane's Z axis direction (3D vector).

arrPoint

Required. Array. The 3D point to test.

Array	The 3D point on the plane, if successful.
Null	If not successful, or on error.

Dim arrPlane, arrPoint

arrPoint = Rhino.GetPoint("Point to test")

If IsArray(arrPoint) Then

arrPlane = Rhino.ViewCPlane

If IsArray(arrPlane) Then

MsgBox Rhino.Pt2Str(Rhino.PlaneClosestPoint(arrPlane, arrPoint))

End If