Scale, Rotate and Translate (Move) in RhinoScript vbScript

Posted by admin - 28/08/09 at 10:08:47 am

Un ejemplillo de como rotar, trasladar y escalar objetos en rhinoceros con vbscript.
Por cierto, tambien se puede usar la función Rhino.TransformObject que usa las matrices de transformación con coordenadas homogeneas, ya escribiré algo sobre esto :) . 

Sub ScaleAndMove()
	Dim idBox, idBoxNew

	' MOVER/TRASLADAR
	idBox = DrawCube(20, 0, 0, 10)
	idBoxNew = DrawCube(20, 0, 0, 10)
	Rhino.ObjectColor idBoxNew, RGB(200, 0, 0)
	Rhino.MoveObject idBox, Array(0, 0, 0), array(0, 10, 0)

	'ESCALAR
	idBox = DrawCube(20, 0, 0, 10)
	Rhino.ScaleObject idBox, Array(0, 0, 0), array(0.95,0.95,0.95)

	' ROTAR
	idBoxNew = Rhino.RotateObject(idBox, Array(0, 0, 0), 45, array(1, 0, 0), True)
	Rhino.ObjectColor idBoxNew, RGB(200, 0, 0)
End Sub

No Comments yet »

RSS feed para los comentarios de esta entrada. TrackBack URI

Deja un comentario

XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Powered by WordPress with GimpStyle Theme design by Horacio Bella.
Entries and comments feeds. Valid XHTML and CSS.