 ; Walt - rewidth all text and attdefs to 1.
 ; Copyright 2005 by Rocket Software Ltd.
 ; Intended for batch file use on prototype drawings.
 (DEFUN C:WALT (/ num ss lll llny)
  (setq num 0)
  (if (setq ss (ssget "x" '((-4 . "<or")
                            (0 . "text") (0 . "attdef") (-4 . "or>"))))
      (while (setq lll (ssname ss num))
             (setq num (1+ num))
             (setq lln (entget lll))
             (entmod (subst (cons 41 1) (assoc 41 lln) lln))))
 (princ))