;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-2001
;;;>		   EDITED: 09-26-2002
;;;
(defun c:attcol ()
  (setq modcnt 0)
  (setq batname (strcase (ustr 1 "Block name for new attribute color? " (if batname batname "") nil)))
  (setq newatthk (uint 1 "" (strcat "New attribute color for all " batname " attributes? ") (if newatthk newatthk 1)))
  (setq bmss (ssget "x" (list
                          (cons -4 "<and")
                            (cons 0 "INSERT")
                            (cons 2 batname)
                          (cons -4 "and>")
                        )
             )
  )
  (setq bmcnt (1- (sslength bmss)))
  (while (>= bmcnt 0)
    (setq bment (entget (ssname bmss bmcnt)))
    (while (/= (cdr(assoc 0 bment)) "SEQEND")
      (if (eq (cdr (assoc 0 bment)) "ATTRIB")
        (IF (assoc 62 bment)
          (progn
            (setq newent (subst (cons 62 newatthk)(assoc 62 bment) bment))
            (if
              (entmod newent)
              (setq modcnt (1+ modcnt))
            )
          )
          (progn
            (setq newent (append bment (list (cons 62 newatthk))))
            (if
              (entmod newent)
              (setq modcnt (1+ modcnt))
            )
          )
        )
      )
      (setq bment (entget (entnext (cdr(assoc -1 bment)))))
    )
    (setq bmcnt (1- bmcnt))
  )
  (princ (strcat "\nColor set to " (itoa newatthk) " for " (itoa modcnt) " attributes in " (itoa (sslength bmss)) " " batname " blocks."))
  (princ)
)