🗊Презентация RhinoScript 101 Creativity "or how to do interesting things that are not easy to do with the mouse"

RhinoScript 101 Creativity "or how to do interesting things that are not easy to do with the mouse"

Nevermind the code… ' Copy And paste this code In your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This Is a basic script To draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start With it DrawCurve ' this tells the program what subroutine To run Sub DrawCurve ' this Is the code To Execute when “DrawCurve” Is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(1) ' controlpoints is an array of 3-D points (see next slide) controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(10,5,15) ' x = 10, y = 5, z = 15 Rhino.Print ( "Curve ID: " + Rhino.AddCurve(controlpoints) ) ' this draws the curve and prints its I.D. Rhino.Print ( "Sphere ID: " + Rhino.AddSphere (controlpoints(1), 1) ) ' this draws a sphere and prints its I.D. Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine

Hold on! What's an "array"?

An array is like a box

A box that holds 3D coordinates

' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(1) ' controlpoints is an array of 3-D points (see next slide) controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(10,5,15) ' x = 10, y = 5, z = 15 Rhino.Print ( "Curve ID: " + Rhino.AddCurve(controlpoints) ) ' this draws the curve and prints its I.D. Rhino.Print ( "Sphere ID: " + Rhino.AddSphere (controlpoints(1), 1) ) ' this draws a sphere and its I.D. Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine

Now some randomness… ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(1) ' controlpoints is an array of 3-D points (see next slide) controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-10,10),randomBetween(-10,10),15) ' x = random, y = random, z = 15 Rhino.Print ( "Curve ID: " + Rhino.AddCurve(controlpoints) ) ' this draws the curve and prints its I.D. Rhino.Print ( "Sphere ID: " + Rhino.AddSphere (controlpoints(1), 1) ) ' this draws a sphere and its I.D. Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

Now some recursion… ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(1) ' controlpoints is an array of 3-D points (see next slide) Dim i For i=0 To 100 controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-10,10),randomBetween(-10,10),15) ' x = random, y = random, z = 15 Rhino.AddCurve controlpoints ' this draws the curve Rhino.AddSphere controlpoints(1), 1 ' this draws a sphere Next Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

More interesting curves… ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(2), i ' controlpoints is an array of 3-D points (see next slide) For i=0 To 50 controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-5,5),randomBetween(-5,5),0) controlpoints(2) = Array(randomBetween(-10,10),randomBetween(-10,10),15) Rhino.AddCurve controlpoints, 2 ' this draws the curve of two degrees now Rhino.AddSphere controlpoints(1), 0.25 ' this draws a small sphere at second point Next Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(2), i ' controlpoints is an array of 3-D points (see next slide) For i=0 To 50 controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-5,5),randomBetween(-5,5),0) controlpoints(2) = Array(randomBetween(-10,10),randomBetween(-10,10),15) Rhino.AddCurve controlpoints, 2 ' this draws the curve Rhino.AddSphere controlpoints(1), 0.25 ' this draws a small sphere at second point Rhino.AddSphere controlpoints(2), 0.75 ' this draws a big sphere at third point Next Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

Time for a challenge… How do you achieve the following?

' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(3), i ' controlpoints is an array of 3-D points (see next slide) For i=0 To 50 controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-5,5),randomBetween(-5,5),0) controlpoints(2) = Array(randomBetween(-10,10),randomBetween(-10,10),15) controlpoints(3) = Array(randomBetween(-10,10),randomBetween(-10,10),20) Rhino.AddCurve controlpoints, 3 ' this draws the curve Rhino.AddSphere controlpoints(1), 0.25 ' this draws a small sphere at second point Rhino.AddSphere controlpoints(2), 0.25 ' this draws a big sphere at third point Rhino.AddSphere controlpoints(3), 0.75 ' this draws a big sphere at third point Next Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

Add another set of coordinates…

Rhino.Command "anycommand" Shift + Rightclick any tool icon to see its _Command

' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' Copy and paste this code in your RhinoScript Editor (Tools  RhinoScript  Edit…) ' This is a basic script to draw a curve with fixed coordinates (Not very useful, but a good starting point) Option Explicit ' nevermind this, just make sure that your scripts always start with it DrawCurve ' this tells the program what subroutine to run Sub DrawCurve ' this is the code to run when “DrawCurve” is called above Call Rhino.enableRedraw(False) ' nevermind this, it speeds up the execution of the code Dim controlpoints(3), i ' controlpoints is an array of 3-D points (see next slide) Dim strCmd, curveID For i=0 To 50 controlpoints(0) = Array(0,0,0) ' x = 0, y = 0, z = 0 controlpoints(1) = Array(randomBetween(-5,5),randomBetween(-5,5),0) controlpoints(2) = Array(randomBetween(-10,10),randomBetween(-10,10),15) controlpoints(3) = Array(randomBetween(-10,10),randomBetween(-10,10),20) curveID = Rhino.AddCurve(controlpoints, 3) ' this draws the curve Rhino.SelectObject(curveID) Rhino.Command "_Pipe " & 1.0 & " Enter " & 1.0 & " Enter" Next Call Rhino.enableRedraw(True) ' nevermind this, it refreshes the screen Rhino.ZoomExtents ' and this adjusts the zoom level End Sub ' this is the end of the "DrawCurve" subroutine Function randomBetween(min,max) ' this is the code to generate random numbers between limits randomBetween = Rnd*(max-min)+min ' returns a random number between the limits specified End Function ' end of the randomness function

After you add a curve, select it with: After you add a curve, select it with: Rhino.SelectObject(curveID) Then apply the command: Rhino.Command "_Pipe " & 1.0 & " Enter " & 1.0 & " Enter"

Due next class… Do something interesting of your own!