Digital Design Processes
Processos digitais de projecto
Escola Superior Artística do Porto, Portugal
24 Setembro a 5 Outubro, 2007
Este es el Tercer Workshop en el cual participo y el segundo Internacional, junto al arquitecto Gonçalo Castro Henriques de Portugal.
Este año el trabajo estará dividido en dos fases: la primera dedicada a la fabricación por tecnología CAD / CAM a cargo de Marta Malé-Alemany y José Pedro Sousa del grupo ReD y nosotros que exploraremos la programación por medio de RVB. Carlos de la Barrera y Gonçalo Castro Henriques del grupo X-Ref.
Para el Workshop Hemos preparado un breve tutorial, con simples ejercicios para poder practicar y entender el lenguaje RhinoScript.
Estos son los ejercicios del Tutorial
Option Explicit
'ejercicio 1, declaracion de variables
Call main()
Sub main()
Dim mensaje
mensaje = "Hello World(s)"
Rhino.messageBox mensaje
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'ejercicio 2, condicionales
Call condicional()
Sub condicional()
Dim var1, var2, Result
Dim numberX
numberX = 6
var1 = 9
var2 = 3
Result = (var1+var2)/2
If result = numberX Then
Rhino.print "yes igual"
Else
Rhino.print "no igual"
End If
Rhino.messagebox "siempre sucede"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'ejercicio 3, looping
Call looping()
Sub looping()
Dim i
For i = 0 To 1000
Rhino.Print "number count= " & i
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'ejercicio 4, ejemplo de arrays
Call arrthings()
Sub arrthings()
Dim example(9), i
example(0) = 22
example(1) = 31
example(2) = 43
example(3) = 36
example(4) = 76
example(5) = 32
example(6) = 12
example(7) = 43
example(8) = 66
For i = 0 To 8
Rhino.print example(i)
Next
Rhino.messagebox _
"la posición 4 en la matriz example es " & example(4)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'ejercicio 5, ejemplo de funcion
Call subfunciones()
Sub subafunciones()
ReDim point(2), point2(2)
point(0) = 0
point(1) = 0
point(2) = 0
point2(0) = 5
point2(1) = 5
point2(2) = 0
Rhino.AddPoints Array(point,point2)
Dim linea: linea = mifuncionLinea(point,point2)
End Sub
Function mifuncionLinea(point,point2)
Rhino.Addline point, point2
End Function
II INTERNATIONAL WORKSHOP
Publicado por Grupo de Diseño Emergente Sudamericano
Etiquetas: Script
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario