 ; Dimf - restore the default text to a dimension.
 ; Copyright 1994 by Rocket Software
 ; Dimensions - a concession made by CAD to the less precise world of reality.
 (DEFUN C:DIMF (/ enam entt one)
  (if (setq enam (entsel "\nPick a dimension: "))
      (progn
           (setq entt (entget (car enam)))
           (setq one (assoc 1 entt))))
  (cond ((null entt))
        ((/= (cdr (assoc 0 entt)) "DIMENSION")
         (write-line "\nThat wasn't a dimension."))
        ((and one (/= (cdr one) ""))
         (entmod (subst (cons 1 "") one entt)))
        ((or (not one) (= (cdr one) ""))
         (write-line "\nThat is already the default text.")))
 (princ))