;;;Show attribute tag and value of picked attribute.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;;>		   EDITED: 08-18-1999
;;;
(defun c:shatr ( / )
  (setq attrs (entget(car(nentsel))))
  (princ (strcat(cdr(assoc 2 attrs))" = "(cdr(assoc 1 attrs))))
  (princ)
);defun