Formatieren von String

[Angelo2449]

Hallo alle,
Ich würde einen alphanumerischen String nach einer Standardlänge formatieren, die die Differenz zwischen der tatsächlichen Länge des Strings und der Standardlänge ausfüllt.

(Setq Länge 30)
(setq string "point")
(seq string???????????? String)

Danke.

 

[rpor66]

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

 

[Angelo2449]

Danke rpor66,
so es funktioniert nicht, wie ich will, ich änderte den Code und jetzt ist das Ergebnis perfekt.

(defunc c:stringa (/)

(Setq Station "pippo")
(setq lung (- 30))

(Repeat)
(setq station (strcat " station)
;

(princ "\n")
(Prinzip "Station > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Hauptbahnhof)

;

Danke noch mal.