(defun C:atrib()

	(princ "Zvolte blok s atributy:\n")
	(setq ss1 (ssget))
	(setq en (ssname ss1 0))
	(setq edata (entget en))
	(setq testentity "ATTRIB")
  
	(while (= testentity "ATTRIB")

		(setq edata (entget (entnext (cdr (assoc -1 edata)))))
		(setq testentity (cdr (assoc 0 edata)))
		
		(if (= testentity "ATTRIB")
		(progn
		  (setq tag (cdr (assoc 2 edata)))
		  (setq hodnota (cdr (assoc 1 edata)))
		  (princ (strcat "\nTag: " tag))
		  (princ (strcat "\nHodnota: " hodnota))
		))
	)
  
	(princ)
)