为什么一次只能替换一个

adc

这是一个字符替换的程序，请问当文字里同时有多个要替换的字符时，为什么一次只能替换一个？
(vl-load-com)
(defun c:tt (/ ss n ent obj txt i)
  (if (setq ss (ssget '((0 . "*TEXT") )))
    (repeat (setq n (sslength ss))
      (setq ent (ssname ss (setq n (1- n))))
      (setq obj (vlax-ename->vla-object ent))
      (setq txt (vla-get-textstring obj))
      (cond
((wcmatch txt "*a*")
  (setq txt (ReplaceText "%%130" "a" txt))
)
((wcmatch txt "*d*")
  (setq txt (ReplaceText "%%131" "d" txt))
)
((wcmatch txt "*f*")
  (setq txt (ReplaceText "%%132" "f" txt))
)
((wcmatch txt "*A*")
  (setq txt (ReplaceText "%%130" "A" txt))
)
((wcmatch txt "*D*")
  (setq txt (ReplaceText "%%131" "D" txt))
)
((wcmatch txt "*F*")
  (setq txt (ReplaceText "%%132" "F" txt))
)
      )
      (vla-put-textstring obj txt)
    )
  )
  (princ)
)
(defun ReplaceText (NewStr oldstr string / txt)
  (setq txt string)
  (while (vl-string-search oldstr txt)
    (setq txt (VL-STRING-SUBST NewStr oldstr txt))
  )
  txt
)

adc

自己顶一个