Пример:

dcl:
...
opup_list {label="Ввод:"; key="b1s";
list=
"куст\nдерево\nдом";
edit_width=40;
edit_limit=24;}
...

lsp:
...
(action_tile...)
...
(setq x_p 0.)
(setq y_p 0.)
(setq pt (list x_p y_p))
(setq ang 0)
(setq h 3.)
(vl-cmdf "_.text" "_j" "_m" pt h ang b1) ;где b1 это текст выбранный в диалоге

Вопрос: Подскажите по лиспу, построить текст из списка. (необходимо построить текст либо куст, либо дерево, либо дом, а именно что будет выбрано)
спс. за понимание.