Formattazione stringa

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
vorrei formattare una stringa alfanumerica secondo una lunghezza predefinita riempiendo di spazi la differenza tra la lunghezza reale della stringa e la lunghezza predefinita.
Codice:
(setq Lunghezza 30)
(setq Stringa "Punto")
(setq Stringa (strcat ?????????  Stringa))
Grazie
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#2
(setq Stringa (substr (strcat Stringa " ") 1 30)) per ottenere
"Punto "
(setq Stringa (substr (strcat " " Stringa) 1 30)) per ottenere
" Punto"
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#3
Grazie rpor66,
così non funziona come voglio, ho modificato il codice ed ora il risultato è perfetto.
Codice:
(defun C:STRINGA (/)

    (setq Stazione "Pippo")
    (setq Lung (- 30 (strlen Stazione)))

    (repeat Lung
        (setq Stazione (strcat " " Stazione))
    );;repeat

    (princ "\n")
    (princ "Stazione >>>> ")
    (princ Stazione)

);;defun
Grazie ancora.