PlaneFitFromPoints

Returns a plane that was fit through an array of 3D points.

Rhino.PlaneFitFromPoints (arrPoints)

strObject

Required. Array. An array of 3D points.

Array

The plane if successful. The elements of a plane array are as follows:

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

Null

If not successful, or on error.

Dim arrPoints, arrPlane, dblDX, dblDY

arrPoints = Rhino.GetPoints

If IsArray(arrPoints) Then

arrPlane = Rhino.PlaneFitFromPoints(arrPoints)

If IsArray(arrPlane) Then

dblDX = VectorLength(arrPlane(1))

dblDY = VectorLength(arrPlane(2))

Rhino.AddPlaneSurface arrPlane, dblDX, dblDY

End If