문자폭 요인 바꾸기 mtext객체선택질문

아래 리습을 사용하였는데 mtext 선택이 안되네요.
mtext 문자가 선택 가능하게 수정하능한가요?


(defun c:tww(/ ss tg1 ed k x41)
(princ "   -> Text Width Factor")
(prompt "n>>>> 문자 폭 요인 바꾸기(Text Width Factor)…")
(setq ss (ssget (list (cons 0 "text"))))
(if (not tg) (setq tg 1.00))
(setq tg1 (getreal (strcat  "n문자 폭 용인 입력 <" (rtos tg 2 2) " >:")))
(if tg1 (setq tg tg1))  
(setq k 0)
(repeat (sslength ss)
  (setq ed (entget (ssname ss k)))
  (setq x41 (cdr (assoc 41 ed)))
  (entmod (subst (cons 41 tg) (assoc 41 ed) ed))
  (setq k (1+ k))
)
(princ)
)