Adds a cone-shaped polysurface to the document.
Rhino.AddCone (arrBase, arrHeight, dblRadius [, blnCap])
Rhino.AddCone (arrPlane, dblHeight, dblRadius [, blnCap])
arrBase |
Required. Array. The 3-D origin point of the cone. |
arrPlane |
Required. Array. The cone's base plane. The apex of cone is at plane's origin and the axis of the cone is plane's Z axis. |
arrHeight |
Required. Array. The 3-D height point of the cone. The height point defines the height and direction of the cone. |
dblHeight |
Required. Number. The height of the cone. If arrPlane is specified, then the center of the arrPlane is height * the plane's Z axis. |
dblRadius |
Required. Number. The radius at the base of the cone. Note, tan(cone_angle) = dblRadius/ dblHeight. |
blnCap |
Optional. Boolean. Cap the base of the cone. The default is to cap the cone (True). |
String |
The identifier of the new object if successful. |
Null |
If not successful, or on error. |
Dim arrBase, arrHeight, dblRadius
dblRadius = 5.0
arrBase = Rhino.GetPoint("Base of cone")
If IsArray(arrBase) Then
arrHeight = Rhino.GetPoint("Height of cone", arrBase)
If IsArray(arrHeight) Then
Rhino.AddCone arrBase, arrHeight, dblRadius
End If
End If