Option Explicit
'Script written by Russell Loveridge
'Script copyrighted by <RAL: lapa.epfl.ch>


Call Main()
Sub Main()
	' declare the variables that will be used in the script.
	Dim strObject, dblSize

	' as the user to chose a box to move (it could actually be any object....
	strObject = Rhino.GetObject( "Select a box" )
	' if the user does not choose anything - then exit the script
	If IsNull(strObject) Then Exit Sub

	' ask the user to input a value that will be used to move the box, 10 is the default value.
	dblSize = Rhino.GetReal("enter distance to move the box", 10)
	
	' move the selected object using the origin as the start point, in the X direction by the value entered.
	Rhino.MoveObject strObject, Array(0,0,0), Array(dblSize,0,0)
End Sub