format a text string

[Angelo2449]

Hello everyone,
how can you format a string so you have a default constant length?
example :
- constant length = 38
- actual length = 12
- spaces to be inserted = 26
Thank you.

 

[Cristallo]

(Sectq text (entget))
(setq string)
(setq l_eff (strlen string))
(setq l_cost (getint "continuous length:"))
(setq loop (- l_cost l_eff))
(setq stringa_rev string)
(repeat loop
(setq stringa_rev (strcat stringa_rev "))
); closure repeat
(setq text2 (subst (cons '1 stringa_rev) (assoc '1 text)))
(introduced text)