(defun C:ow (/ strdim); (c) 2001 Andy Leisk
  (princ "OVERWRITE")
  (setq cmdechostatus (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq x (ssget))
  (setq count 0)
  (setq changed 0)
  (command "undo" "begin")
  (if (/= x nil) 
    (repeat (sslength x)
      (progn
        (setq klaatu (entget (ssname x count)))
        (if (= (cdr(assoc 0 klaatu)) "DIMENSION")
          (progn
            (setq verada(tblsearch "BLOCK" (cdr(assoc 2 klaatu))))
            (setq niktu(entnext (cdr(assoc -2 verada))))
            (while (boundp 'niktu)
              (setq niktuent (entget niktu))
              (if (and(= (cdr(assoc 0 niktuent))"MTEXT")(> (strlen (cdr(assoc 1 niktuent)))0))
                (setq strdim (cdr(assoc 1 niktuent)))
              )
              (setq niktu(entnext niktu))
            )
            (if (/= strdim nil)
	      (progn
	        (COMMAND ".DIM1" "NEW" strdim (ssname x count) "")
		(setq changed (1+ changed))
	      )
            )
	    (setq strdim nil)
	  )
        )
        (setq count (1+ count))
      )
    )
  ;else
    (princ "No objects were selected. ")
  )
  (if (/= x nil)
    (progn
      (princ (sslength x))
      (if (= 1 (sslength x))
        (princ " object was selected. ")
        (princ " objects were selected. ")
      )
    )  
  )  
  (if (= 0 changed)
    (princ "No dimensions were overwritten.")
    (progn
      (princ changed)
      (if (= 1 changed)
        (princ " dimension was overwritten.")
        (princ " dimensions were overwritten.")
      )
    )
  )  
  (command "undo" "end")
  (setvar "cmdecho" cmdechostatus)
  (princ)
)
(princ "\nOVERWRITE by Andy Leisk is now loaded.")
(princ "\nType OW to select dimensions.")
(princ)