;Show attribute tag and value of picked attribute.
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
(defun c:shatr ( / )
  (setq attrs (entget(car(nentsel))))
  (princ (strcat(cdr(assoc 2 attrs))" = "(cdr(assoc 1 attrs))))
  (princ)
);defun