Alan ( CAB ) is right. You can't open a drawing, and then activate it with lisp, and expect it to run the remaining lines of the lisp code. You can open it, and then save it, all from the current drawing without having to activate the new drawing.
Or you can just copy the file to the new location, and rename it, without even opening it in Acad, and it can be done with lisp.