Adds a spherical surface to the document.
Rhino.AddSphere ( arrCenter, dblRadius)
Rhino.AddSphere ( arrPlane, dblRadius)
|
arrCenter |
Required. Array. The center point of the sphere. |
|
arrPlane |
Required. Array. An equatorial plane. The origin of the plane will be the center point of the sphere. |
|
dblRadius |
Required. Number. The radius of the sphere in current model units. |
|
String |
The identifier of the new object if successful. |
|
Null |
If not successful, or on error. |
Dim arrCenter, dblRadius
dblRadius = 2
arrCenter = Rhino.GetPoint("Center of sphere")
If IsArray(arrCenter) Then
Rhino.AddSphere arrCenter, dblRadius
End If