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

' This script shows how to use the copy command.

Sub Main()
	Dim strObject, dblSize, intDir, i, intCount, dblpos

	strObject = Rhino.GetObject( "Select an object to copy" )
	If IsNull(strObject) Then Exit Sub
	
	dblSize = Rhino.GetReal("enter distance to copy", 2)

	' We will copy the box in the X direction.
	' The copy command is scripted exactly the same as the move command - copy, identifier, start, end.
	Rhino.CopyObject strObject, Array(0,0,0), Array(dblPos,0,0)

End Sub