;      Written by: Shawn Kondas
;
;            Date: 4-5-89
;
;
(defun c:CHGDIM (/ )
(setq s2 "")
(setq n (car (entsel " : Pick text to change : ")))
(if (/= nil n)
  (progn
  (setq od (getvar "dimzin"))
  (setvar "dimzin" 4)
  (setq d (rtos (getdist "\nDigitize new distance : ") 2 5))
  (princ "\n\nThe distance is  ")(princ d)
  (setq on (cdr (assoc 1 (setq al (entget n)))))
  (setq i 1 sl (strlen on))
  (while (<= i sl)
   (if (= " " (substr on i 1))
         (progn
         (setq s2 (substr on i))
         (setq i (1+ sl))
         )
    )
   (setq i (1+ i))
   (if (> i 7) (setq i (1+ sl)))
   )
(setq nd (rtos (atof d) 2 3))
(setq d (strcat nd s2))
  (setq e (subst (cons 1 d)(assoc 1 al) al))
  (entmod e)
  (setvar "dimzin" od)
  )
)
(princ)(princ)
)