Python for Rhino: What, Why, and How… The 101 Primer

Python for Rhino: What, Why, and How... The 101 Primer

Download

Sanghoon Yoon is a designer in Seoul. He has been kind enough to share many script and expertise on his blog sac3′s digital plastic.

You may be interested in  some of the topic.

* Grasshooper 
* RhinoScript
* HyperShot
* Other

Usage:

1. Save the script *.rvb file to a directory. For example: “C:\Program Files\Rhinoceros 3.0\Scripts\GearGen.rvb”
2. Create a new alias (e.g. GearGen) with a macro. Example: !_-loadscript “C:\………….\gearGen.rvb”

(Include dash and underscore. Replace the dots with your own directory path. Use double quotes for the path)
3. To run the script, type the alias name in the command line.

Url:
Rhino Wiki
Summary:
Demonstrates how to create Archimedean Spirals using RhinoScript. (Rhino 4.0)
Answer:
In polar coordinates (r, Θ), an Archimedean Spiral can be described by the following equation:
r = a + bΘ
with real numbers a and b. Changing the parameter a will turn the spiral, while b controls the distance between successive turnings.

Once the polar coordinates have been calculated, we can use RhinoScript’s Polar method to convert them to Cartesian coordinates, which will allow us to plot the curve using RhinoScript’s AddInterpCurve method.

The following sample script code demonstrates how to create an interpolated curve through the points that were calculated using the above equation:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ' ArchimedeanSpiral.rvb -- June 2008
  ' If this code works, it was written by Dale Fugier.
  ' If not, I don't know who wrote it.
  ' Works with Rhino 4.0.

  Option Explicit

  Sub ArchimedeanSpiral()

    Dim a_const, b_const, step_angle, num_points
    Dim curr_angle, base_point, radius, points(), i

    Rhino.Print "Archimedean Spiral (r = a + bΘ)"

    a_const = Rhino.GetReal("Value of 'A' constant", 1.0, 0.01)
    If IsNull(a_const) Then Exit Sub

    b_const = Rhino.GetReal("Value of 'B' constant", 1.0, 0.01)
    If IsNull(a_const) Then Exit Sub

    num_points = Rhino.GetInteger("Number of points to calculate", 10, 2)
    If IsNull(num_points) Then Exit Sub

    step_angle = Rhino.GetReal("Angle between points", 30.0, 1.0, 45.0)
    If IsNull(step_angle) Then Exit Sub

    curr_angle = 0.0
    base_point = Array(0.0, 0.0, 0.0)
    ReDim points(num_points - 1)

    For i = 0 To UBound(points)
      radius = a_const + (b_const * curr_angle)
      points(i) = Rhino.Polar(base_point, radius, curr_angle)
      curr_angle = curr_angle + step_angle
    Next

    Rhino.AddInterpCurve points
    'Rhino.AddPoints points

  End Sub