-- Grab my current viewport selection into an array
myObjectsArray =selection as array

startFrame = 0
endFrame = 100
byFrame = 1 --set a keyframe for every frame

for item in myObjectsArray do
(
newObj = copy item
newObj.controller = PRS()
newObj.name += "_Bakeanim"
newObj.parent = undefined

for i = startFrame to endFrame by byFrame do
	(
	with animate on
	(
		at time i newObj.transform = item.transform
	)	
	)
)

del = (queryBox "Do you want to delete the original objects?" beep:false)
if del == true  then ( delete myObjectsArray )