Value of Attribute tag selected

Hi

How can I return the value of an attributted tag selected?

So far I can only return the block name.

(defun c:ATTvalue (/ blk tag val tg )
 (setq ESel (entsel "\nSelect attribuite tag: "))
 (setq EL (entget (car ESel)));Entity list
 (setq blk (cdr (assoc 2 EL)));block name
  
 (princ)
 )

thanks

Hi

use nentsel:

(cdr (assoc 1 (entget (car (nentsel)))))

merci beaucoup! Gile

S.F.