Преобразование объекта или именованного набора в список

(defun ru-conv-select-to-list (select / item tmp)
;;;* Аргумент - VLA-OBJECT IAcadSelectionSet или строка - имя набора.
;;;* Возвращает список примитивов набора VLA-OBJECT или NIL.
    (if	(= (type select) 'str)
	(setq select
		 (vl-catch-all-apply
		     'vla-item
		     (list (vla-get-selectionsets (ru-obj-get-active-document)) select)
		 ) ;_ end of vl-catch-all-apply
	) ;_ end of setq
    ) ;_ end of if
    (if	(not (vl-catch-all-error-p select))
	(vlax-for item select (setq tmp (cons item tmp)))
    ) ;_ end of if
) ;_ end of defun