formatting string

[Angelo2449]

Hello everyone,
I would format an alphanumeric string according to a default length filling the difference between the actual length of the string and the default length.

(setq length 30)
(setq string "point")
(seq string??????????????? string))

Thank you.

 

[rpor66]

(setq string (substr (strcat string ") 1 30))))
"point "
(setq string (substr (strcat " string) 1 30)))
"point"

 

[Angelo2449]

thanks rpor66,
so it doesn't work as I want, I changed the code and now the result is perfect.

(defunc c:stringa (/)

(setq station "pippo")
(setq lung (- 30 (strlen station)))

(repeat)
(setq station (strcat " station)
);

(princ "\n")
(princ "station > > > > > > )
(princ station)

);

Thanks again.