문자 똑같이 선택해서 바꾸기 리습 도와주세요~

안녕하세요
아래 리습은 문자를 선택해서 다른문자를 선택하면 똑같이 바뀌는 리습인데요
첫번째 문자를 선택하려고 하는데, 선택하는 느낌이 없는거 같아요
두번 마우스로 선택해야 선택이 되구요,,,
이거 한번에 선택이 안될까요?
고수님 도와주세요~

(defun c:ctt (/ #a #b #index e )
(vl-load-com)
(setq #a(vla-get-textstring(vlax-ename->vla-object(car(entsel “nSelect text to match:”)))))
(setq e (ssget))
(prompt “nSelect text to change”)
(setq #b(ssget ‘((0 . “text,mtext”))))
(setq #index 0)
(repeat (sslength #b)
(vla-put-textstring(vlax-ename->vla-object(ssname #b #index))#a)
(setq #index(1+ #index))
);;repeat
);;defun