연속문자 수정

구조도 작성시 연속문자 수정 리습입니다.
여기서 수정을 할려고하는데요.
한블럭으로 된 문자 수정시(L=10.200 –>>10.000) 숫자만 입력을 하면 L=10.000 변경되게 할수있나요?
(텍스트는 고정이고  숫자만 변경되는 방법이 있는지?) 

(defun c:tt (/ txt txt1 ntx a1)
  (setq txt (ssget)
        txt1 (sslength txt))
   (setq index 0)
 (repeat txt1
   (setq a (entget (ssname txt index))
         b (assoc 1 a)
         c (cdr b))

  (prompt (strcat “old text:” c )) (terpri)
  (setq ntxt (getstring  “new text:”)) (terpri)
  (if (= ntxt “”)
      (setq ntxt c)
      )
  (setq ntx (cons (car b) ntxt))
  (setq a1 (subst ntx b a))
  (entmod a1)
  (setq index (1+ index))
  )
)