;; | -----------------------------------------------------------------------------
;; | SS_sslist
;; | -----------------------------------------------------------------------------
;; | Function : Return a list of entities in selection set
;; | Arguments: 'ss'   - Selection Set to process
;; | Return   : A List of all entities found in selection set
;; | Updated  : December 30, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_sslist ( ss / ssl cnt ELst)

(setq
	ssl (if ss (sslength ss) 0)
	cnt 0
	ELst '()
)

(repeat ssl
	(setq
		ELst (cons (ssname ss cnt) ELst)
		cnt (1+ cnt)
	)
)
(reverse ELst)
)