(alert "Procedura squadratura foglio A4")
(setvar "TEXTSTYLE" "standard")
(setq larghezza 210)
(setq altezza  297)
(setq punto (strcat (itoa larghezza) "," (itoa altezza)))
(command "_rectang" "0,0" punto)
(setq larghezza (- larghezza 5))
(setq altezza (- altezza 5))
(setq punto (strcat (itoa larghezza) "," (itoa altezza)))
(command "_rectang" "5,5" punto)
(setq NomeDisegno (getvar "dwgname"))
(setq Percorso (getvar "dwgprefix"))
(setq NomeCompleto (strcat Percorso NomeDisegno))
(command "_text" "10,10" "2.5" "" NomeCompleto "" "")
(alert "Procedura conclusa con successo.")