Lisp for remove one line from mtext

[reza]

Why doesn't it work properly on my file?

 

(defun C:mtfr2 (/ ent strent ans newline x k ssmtxt removetxt)
  (setq ssmtxt (ssget '((0 . "Mtext"))))
  (setq x (getint "\nLine To Remove: "))
  (repeat (setq k (sslength ssmtxt))
    (setq strent (vlax-ename->vla-object (ssname ssmtxt (setq k (- k 1)))))
    (setq str (vla-get-textstring strent))
    (setq ans (LM:csv->lst str "\\" 0))
    (setq removetxt (nth (- x 1) ans))
    (setq newline "")
    (setq x 0)
    (repeat (length ans)
      (if (= (wcmatch (strcase (nth x ans)) (strcase removetxt)) T) ;doesn't need a wild card.
        (princ)
        (setq newline (strcat newline "\\" (nth x ans)))
      )
      (setq x (+ x 1))
    )
    (if (eq (vl-string-search "\\P" newline) 0) 
      (setq newline (substr newline 3))
      (setq newline (substr newline 2))
    )
    (vla-put-textstring strent newline)
  )  ; repeat
  (princ)
)

Test.dwg