Un ejemplo de if else anidados
Posted by admin - 27/07/09 at 08:07:15 amSub ComprobarCuadrante()
Dim x, y
x = Rhino.getreal("coordenada x:")
y = Rhino.getreal("coordenada y:")
If x = 0 And y = 0 Then
Rhino.Print "Origen"
Else
If x = 0 Then
If y > 0 Then
rhino.print "y +"
Else
rhino.print "y -"
End If
Else
If y = 0 Then
If x < 0 Then
rhino.print "x -"
Else
rhino.print "x +"
End If
Else
If x > 0 Then
If y > 0 Then
rhino.print "I"
Else
rhino.print "IV"
End If
Else
If y > 0 Then
rhino.print "II"
Else
rhino.print "III"
End If
End If
End If
End If
End If
End Sub
julio 27, 2009 | In vbscript Rhinoceros 4.0 | No Comments
arrays
Posted by admin - 26/07/09 at 06:07:24 pm
' Matrices o Arrays.
' Si declaras un array mediante el uso de Dim el tipo de cada
' elemento del array es generico (puede contener un valor de cualquier tipo).
' A cada posicion le puedes asignar un valor del cualquier tipo.
' Pero al array no se le puede asignar un array especifico
' como un rhpoint o un array(2, 2, 2). Estos son arrays de elementos de tipos concretos.
' En el momento de la declaración entre los parentesis se indica el indice máximo
' si el indice máximo es 2, iria de 0 a 2.
' Para crear una matriz, creamos un vector y luego le asignamos componente a componente.
Sub probe1()
Dim p1(2)
' error, no es lo mismo un array generico que un array punto.
' p1 = rhino.getpoint("un punto")
' p1 = array(2, 2, 2)
p1(0) = array(2, 2, 2) ' en la primera fila, 3 columnas todas con valor 2.
p1(1) = rhino.getpoint("un punto") ' en la segunda fila un punto de rhino.
rhino.print p1(0)(0) ' interesante forma de acceder al primer elemento de la primera fila
p1(2) = 6 ' en la tercera fila un entero
End Sub
julio 26, 2009 | In vbscript Rhinoceros 4.0 | No Comments
VBScript in Rhino
Posted by admin - 26/07/09 at 06:07:50 pmBueno, ahora me pongo a aprender programación en Rhinoceros, es bastante mas sencillo de lo que pensaba. El tema es que los tipos de datos van un poco a lo loco, ya que para las variables no se indica tipo en la declaracíon, solo hay que diferenciar si son vectores o no. Además, tampoco se indica el tipo de los elementos del vector y cada uno puede ser de un tipo u otro .
julio 26, 2009 | In vbscript Rhinoceros 4.0 | No Comments
Powered by WordPress with GimpStyle Theme design by Horacio Bella.
Entries and comments feeds.
Valid XHTML and CSS.