(defun C:convert_text_to_mtext (/ OBJ-LIST SSNABOR)
    (setq ssnabor (ssget '((0 . "TEXT"))))
  (setq obj-list (convert_ss_to_list ssnabor))
  (foreach x obj-list
    (command "txt2mtxt" x "")
    )
  (princ)
  )