;;;http://ww3.cad.de/foren/ubb/Forum54/HTML/024664.shtml

(defun C:DIMOverrideMARKER(/ AWS COUNT I OV RET1 RET2)
  (vl-load-com)
  (setq RET1 0 RET2 0)
  (if(and(setq AWS(ssget "_x" (list '(0 . "DIMENSION")(cons 410(getvar"CTAB")))))
         (> (setq COUNT(sslength AWS))0)
     )    
    (progn
      (setq I -1)      
      (repeat COUNT
        (and(setq OBJ(ssname AWS (setq I (1+ I))))
            (setq OBJ(vlax-ename->vla-object OBJ))
            (not(vl-catch-all-error-p
                 (setq OV(vl-catch-all-apply
                           'vla-get-TextOverride (list OBJ)
                         )
                 )
                )
            )
            (/= OV "")
            (setq RET1 (1+ RET1))
            (/=(substr OV 1 3)"%%u")
            (not(vl-catch-all-error-p
                 (vl-catch-all-apply
                   'vla-put-TextOverride (list OBJ (strcat "%%u" OV))
                 )
                )
            )
            (setq RET2 (1+ RET2))
        )    
      )  
    )  
  )
  (princ (strcat "\n"(itoa RET1) " Maßüberschreibungen gefunden und davon "(itoa RET2)" gekennzeichnet"))
  (princ)
)