algorithmic modeling for Rhino
Tags:
AddCircle
Adds a circle curve to the document.
Syntax
Rhino.AddCircle (arrPlane, dblRadius)
Parameters
arrPlane
Required. Array. The plane on which the circle will lie. The origin of the plane will be the center point of the circle.
dblRadius
Required. Number. The radius of the circle.
Returns
String
The identifier of the new object if successful.
Null
If not successful, or on error.
Example
Dim arrPlane
arrPlane = Rhino.WorldXYPlane
Rhino.AddCircle arrPlane, 5.0
Call Circles()
Sub Circles()
Dim i, j
Dim arrPoints
Dim dblRadi
Dim strCir
dblRadi = 2.0
arrPoints = Rhino.GetPointCoordinates("Select points")
Call Print(UBOUND(arrPoints))
If IsNull(arrPoints) Then Exit Sub
For i = 0 To Ubound(arrPoints)
Call Rhino.Print("Point array (" & i & "): " & Pt2Str(arrPoints(i)))
strCir = Rhino.AddCircle(Rhino.WorldXYPlane, dblRadi)
Call Rhino.MoveObject(strCir,array(0,0,0), arrPoints(i))
Next
End Sub
Welcome to
Grasshopper
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
© 2024 Created by Scott Davidson. Powered by