;; | -----------------------------------------------------------------------------
;; | SS_ss2pt
;; | -----------------------------------------------------------------------------
;; | Function : Convert Selection Set of points to Points List
;; | Arguments: 'ss'   - Selection Set to process
;; | Return   : A List of all DXF Code 10 values from the selection set entities
;; | Updated  : December 30, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_ss2pt ( ss / ssl cnt ename entl pt Lst )

(setq Lst '())
(if ss
(progn
	(setq
		ssl (sslength ss)
		cnt 0
	)
	(repeat ssl
		(setq
			ename (ssname ss cnt)
			entl (entget ename)
			pt (LI_item 10 entl)
			Lst (cons pt Lst)
			cnt (1+ cnt)
		)
	)
))
(if (> (length Lst) 0) (reverse Lst) nil)
)