;;; DimFillResize.lsp
;;;
;;; Michael Partenheimer                                     12 March 2012
;;;
;;;
;;; Change dimension "Fill Color" size from 1.25 text
;;; height to 1.12 text height. 
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(defun c:DFR (/ obj Fsize test1 fsn2)
   (if (= fsn nil)
      (setq fsn (getreal "\nEnter FILL COLOR size factor <1.12>: "))
      (progn
         (setq fsn2 fsn)
         (setq fsn (getreal (strcat "\nEnter FILL COLOR size factor <" (rtos fsn 2 2) ">: ")))
         (if (= fsn nil)(setq fsn fsn2))
      );end progn
   );end if
   (if (= fsn nil)(setq fsn 1.12))
   (setq obj nil)
   (setq obj (nentsel "\nPick the text portion of a dimension: "))

;If pick is missed early
   (while (= obj nil)
      (setq obj (nentsel "\nTry again Deadeye. You missed the dimension text: "))
   );end while

;If Non-Text Entity is picked
   (setq test1 (cdr (assoc 0 (entget (car obj)))))
   (while (/= test1 "MTEXT")
      (setq obj (nentsel "\nTry again. Pick a dimension text this time:"))
;If pick is missed late
         (while (= obj nil)
            (setq obj (nentsel "\nTry again. You picked air that time: "))
         );end while
      (setq test1 (cdr (assoc 0 (entget (car obj)))))
   );end while

   (setq obj (entget (car obj)))
   (setq Fsize (assoc 45 obj))
   (setq obj (subst (cons 45 fsn) Fsize obj))
   (entmod obj)
   (command "REGEN")
   (princ)
)