(defun c:SMTall (/ T1) ; entfernt alle MTextformatierungen welche in den ETools berücksichtigt werden (zB. bei TCASE)
  (load "tcase.lsp")
  (foreach T1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "MTEXT"))))))
    (entmod(subst(cons 1 (car(acet-mtext-format-extract (cdr(assoc 1 (setq T1 (entget T1)))))))(assoc 1 T1)T1))
  )
 (princ)
)