Returns a plane that was fit through an array of 3-D points.
Rhino.PlaneFitFromPoints (arrPoints)
arrPoints |
Required. Array. An array of 3-D points. |
Array |
The plane if successful. The elements of a plane array are as follows:
|
||||||||||
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 = Rhino.VectorLength(arrPlane(1))
dblDY = Rhino.VectorLength(arrPlane(2))
Rhino.AddPlaneSurface arrPlane, dblDX, dblDY
End If
End If