;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: ;;; EDITED: ;;; (DEFUN C:ATWID () (PROGN (IF ureal NIL (LOAD "ureal" "\nFile UREAL.LSP not loaded! ")) (SETQ attrwidth (ureal 1 "" "New attribute width factor" (IF attrwidth attrwidth 1.0))) ) (WHILE (AND (SETQ attrename (CAR(NENTSELP))) (EQ (TYPE attrename) 'ENAME) (EQ (CDR (ASSOC 0 (SETQ attrent (ENTGET attrename)))) "ATTRIB") ) (PROGN (SETQ attrent (SUBST (CONS 41 attrwidth)(ASSOC 41 attrent)attrent)) (ENTMOD attrent) (ENTUPD attrename) ) ) (PROGN (PRINC "\nNo ATTRIBUTE selected! ") (PRINC) ) (PRINC) )