;; | -----------------------------------------------------------------------------
;; | SS_ss2pt&rot
;; | -----------------------------------------------------------------------------
;; | Function : Convert Selection Set of points to Points and rotation angle List
;; | Arguments: 'ss'   - Selection Set to process
;; | Return   : A List of all DXF Code 10 & 50 values from the selection set
;; |            entities
;; | Updated  : July 14, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_ss2pt&rot ( ss / ssl cnt ename entl pt ang 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)
			ang   (LI_item 50 entl)
			Lst   (cons (list pt ang) Lst)
			cnt   (1+ cnt)
		)
	)
))
(if (> (length Lst) 0) (reverse Lst) nil)
)