(defun c:TextMbreite()
  (setq as (ssget "X" '((0 . "MTEXT"))))
  (setq n 0 en (ssname as n))
  (while en
    (setq el (entget en))
    (setq el (subst (cons 41 0.0)(assoc 41 el) el))
    (entmod el)
    (entupd en)
    (setq n (1+ n))
    (setq en (ssname as n))
    ) ;endwhile
  ) ; enddefun