print routine problem

Hi,
I wrote this autolisp program:
---------
(alert (strcat "Verranno cancellati tutti i files nella cartella
C:\PDFTemp per poter eseguire il processo di stampa!"))
(alert "Selezionare il punto in basso a sinistra della prima tavola da
stampare")
(setq puntoinizio (getpoint ""))
(alert "Selezionare il punto in basso a destra dell'ultima tavola da
stampare")
(setq puntofine (getpoint ""))
(setq len (distance puntoinizio puntofine))
(alert "Selezionare il punto in basso a destra della prima tavola")
(setq dxbotavola (getpoint ""))
(alert "Selezionare il punto in alto a destra della prima tavola")
(setq dxtotavola (getpoint ""))
(setq Xspacing (distance puntoinizio dxbotavola))
(setq Yspacing (distance dxbotavola dxtotavola))
(setq numerotavole (fix (+ (/ len Xspacing) 0.5)))
(alert (strcat "Devono essere stampate " (itoa numerotavole) "
tavole"))
(setq P1 puntoinizio)
(setq P2 dxtotavola)
(setq nome "C:\\PDFTemp\\")
(setq nome1 (getvar "dwgname"))
(setq lungh (- (strlen nome1) 4))
(setq nome1 (substr nome1 1 lungh))
(setq nome1 (strcat nome1 "Model (1)"))
(setq nome1 (substr nome1 1 6))
(setq nome1 (strcat nome nome1 "~1.pdf"))
(command "_.SHELL" (strcat "del /Q " "C:\\PDFtemp\\*.*"))
(setq nome2parte (getstring "Inserire il nome del file da creare: "))
(setq pltstyle "ETEA Sicurezza - Zonizzazione.ctb")
(setq numero 0)
(repeat numerotavole
(progn
(setq numero (+ numero 1))
(setq nomepdf (strcat nome2parte (itoa numero) ".pdf"))
(command "-stampa" "S" "Modello" "CutePDF Writer" "A4" "M" "V" "N"
"F" P1 P2 "A" "C" "S" pltstyle "S" "N" "N" "N" "S")
(command "_DELAY" 2000)
(setq esiste (findfile nome1))
(while (= esiste nil)
(progn
;(print "aspetto")
(command "_DELAY" 5000)
(setq esiste (findfile nome1)))
)
)
(command "_DELAY" 2000)
(command "_.SHELL" (strcat "RENAME " nome1 " " nomepdf))
(setq P1 (list (+ Xspacing (car P1)) (cadr P1) (caddr P1)))
(setq P2 (list (+ Xspacing (car P2)) (cadr P2) (caddr P2)))
)
)
------------
but doesn't work.
My platform is Autocad2002 LT with LTextender.
The problem is the rename command...
Probably the program is very bad, bat I don't know which is the problem
and what I must to do.
I would like the program print automatically a lot of drawing part
renaming the pdf file (one by one) when it's created.
Thank's You very mutch