AutoCad - Atributo bloque a varible

Hola a todos. Quisiera saber si alguien me puede dar la rutina en lisp para capturar un atributo de un bloque, y pasarlo a una variable que voy a usar mas tarde.
Muchas gracias por adelantado.

Hola, la rutina es la siguiente:

(setq si (car (entsel)))
(setq T1 (cdr (assoc 1 (entget (entnext si)))))
(setq T2 (cdr (assoc 1 (entget (entnext ( entnext si))))))
(setq T3 (cdr (assoc 1 (entget (entnext ( entnext (entnext si)))))))
(princ T1) (terpri)
(princ T2) (terpri)
(princ T3) (terpri)

donde si es el nombre de la entidad,
T1, T2 T3 son cada uno de los atributos del bloque en cuestion

Saludos,
Rafael.

Muchisimas gracias Rafael!!! Me fue de muchisima utilidad!!!
(claro esta que esta, que una respuesta buena, siempre genera mas preguntas!!!)

Te agradezco un monton!!!