(defun c:TBBB (/ text say text c teksecim tv liste)
  (setq text (ssget))
  (setq say (sslength text))
  (setq c 0)
  (setq liste (list ()))
  (repeat say
    (setq teksecim (ssname text c))
    (setq tv (cdr (assoc 1 (entget teksecim))))
    (cons liste tv)
    (setq c (+ c 1))
    (print tv)
  )
  (princ)
)