For deleting all ename in a choice, I - use:
(if (setq ss (ssget))
(mapcar (function entdel)
(vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss)))
) ;_ mapcar
) ;_ if
To create list VLA-OBJECTS, I - use:
(if (setq ss (ssget))
(mapcar (function vlax-ename->vla-object)
(vl-remove-if (function listp) (mapcar (function cadr) (ssnamex ss)))
) ;_ mapcar
) ;_ if