(defun c:fs_mtxtunfmt (/ *error* ss)
  (setq *error* strcat)
  (princ "\n选择要去除格式的Mtext对象:")
  (setq ss (ssget '((0 . "mtext"))))
  (foreach en (fsxm-ss->enlist ss)
    (fsxm-setendxf
      en
      1
      (fsxm-mstr2str (fsxm-getendxf en 1))
    )
  )
  (princ "\n->本次共去除了")
  (princ (sslength ss))
  (princ "个文字的格式!")
  (princ)
)