Преобразование набора в список
(defun ru-conv-pickset-to-list (sel i / _tmp)
;;;* Аргументы - SelectionSet, номер элемента, после которого возвращать.
;;;* Возвращает список примитивов набора ENAME или NIL.
(if (setq _tmp (ssname sel i))
(cons _tmp (ru-pickset-to-list sel (1+ i)))
) ;_ end of if
) ;_ end of defun