Mes: julio 2009

Sub 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

 
' 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

Bueno, 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 .