글자 찾기 리습 수정 도와 주세요~

안녕하세요

아래 리습은 글자 찾기 리습입니다.
글자를 입력하면 그 글자가 포함된 TEXT를  0.0에서 선으로 표시 해주는 리습인데요

아쉬운 부분이 있다면 , MTEXT는 인식을 못하는거 같아요
MTEXT도 인식 할수 있게 변경이 가능한가요??
고수님들의 도움 부탁드립니다.


(defun c:FT()
 (setvar "cmdecho" 0)
 (setq imsi (getvar "clayer"))
 (setq ob (ssget "x" '((0 . "text"))))
 (setq count (sslength ob))
 (setq a5 (getstring T "찾고 싶은 텍스트 전체를 입력해주세요 ==> "))
 (setq num 0)
   (repeat count
    (setq name (ssname ob num))
    (setq xxlist (entget name))
     (progn
       (setq enti1  (cdr (assoc -1 xxlist)))
       (setq text2  (cdr (assoc 1 xxlist)))
       (setq dxy (assoc 10 xxlist))
       (setq x (nth 1 dxy))
       (setq xx (rtos x))
       (setq y (nth 2 dxy))
       (setq yy (rtos y))
       (setq xy (strcat xx "," yy))
       (if (= text2 a5)
        (progn
         (command "pline" "0,0″ xy "")
        );progn
       );if
      );progn
     (setq num (+ num 1))(princ)
    );repeat
);end_defun