Leaderboard

Image with transparent background for anyone adding JustifyBasePoint to their CUI attached.

_$ (apply 'append '(("Fax") ("HP LaserJet MFP M725 PCL 6") ("Microsoft Print to PDF") ("Microsoft XPS Document Writer") ("NEZH-HP725-02 (HP LaserJet MFP M725)"))) ("Fax" "HP LaserJet MFP M725 PCL 6" "Microsoft Print to PDF" "Microsoft XPS Document Writer" "NEZH-HP725-02 (HP LaserJet MFP M725)") I would strongly advise against assigning each element of a list to a separate variable in favour of manipulating the list using the wealth of list functions available in AutoLISP, but if you really must: _$ (setq l (apply 'append '(("Fax?") ("HP LaserJet MFP M725 PCL 6") ("Microsoft Print to PDF") ("Microsoft XPS Document Writer") ("NEZH-HP725-02 (HP LaserJet MFP M725)")))) ("Fax?" "HP LaserJet MFP M725 PCL 6" "Microsoft Print to PDF" "Microsoft XPS Document Writer" "NEZH-HP725-02 (HP LaserJet MFP M725)") _$ (setq s "a") "a" _$ (foreach x l (set (read s) x) (setq s (strcat s "a"))) "aaaaaa" _$ a "Fax?" _$ aa "HP LaserJet MFP M725 PCL 6" _$ aaa "Microsoft Print to PDF" _$ aaaa "Microsoft XPS Document Writer" _$ aaaaa "NEZH-HP725-02 (HP LaserJet MFP M725)"

Thanks both! There is also my Justify Block Base Point for exactly this task.