문자 선택후 똑같은 문자로 일괄변경 리습 없나요?

크오오!!!
감사합니다!!!!
너무 감사해요
정말 잘되네요 🙂

정말 제가 원하던 리습입니다.
상큼메론님 너무너무 감사합니다.
저 죄송하지만 부탁이 하나 더있습니다..;;
텍스트 줄간격으로 정렬하는 리습이있는데.
소수점으로 간격을 정리하고싶은데 소수점은 기입이 안됩니다.
소수점 기입할수있게 리습 수정이 가능할까요?
ex)3.6 이렇게 입력하고싶은데 안되네요..
;;; 텍스트 줄간격 맞추기 ;;;;
(defun c:tdd ( / sel_txt al_pt1 al_pt2 al_pt3 index n ch_txt1 ch_txt2 ins_pt ref_pt  sort sorti m i ins_ypt)
(prompt “n정렬할 문자 선택 : “)
  (setq sel_txt (ssget ‘((-4 . “<or”)
    (0 . “TEXT”) (0 . “MTEXT”)
    (-4 . “or>”)
   )
  )
  )

 (or  ##txtline_gap (setq ##txtline_gap 10))

 (setq ##txtline_gap
  (cond
   ((getint (strcat “nSpecify Text offset  <” (vl-princ-to-string ##txtline_gap) “>: “)))
   (##txtline_gap)
  )
 )
(setq index 0)
(setq n (sslength sel_txt))
(repeat n
    (setq ent (ssname sel_txt index))
    (setq prop_ent (entget ent))
    (setq in_point (cdr (assoc 10 prop_ent)))
    (setq sort (append sort (list in_point)))
  (setq index (1+ index))
  )
  (vl-load-com)
  (setq sorti
  (vl-sort-i sort
      (function (lambda (e1 e2) (> (cadr e1) (cadr e2))))
  )
  )
 (setq m 0)
  (repeat n
    (setq i (nth m sorti))
    (setq ch_txt1 (ssname sel_txt i))
    (setq ch_txt2 (entget ch_txt1))
 
    (setq al_pt1 (cdr (assoc 72 ch_txt2)))
    (setq al_pt2 (cdr (assoc 73 ch_txt2)))
   
    (if (and (= al_pt1 0) (= al_pt2 0))
    (setq ins_pt (cdr (assoc 10 ch_txt2)))
    (setq ins_pt (cdr (assoc 11 ch_txt2)))
    )
  (if (= m 0)
    (progn
    (setq ins_xpt(car ins_pt))
    (setq ins_ypt(cadr ins_pt))
    ) 
    (princ)
)
    (setq ins_pt (- ins_ypt (* ##txtline_gap m)))
    (setq ins_pt (list ins_xpt ins_pt ))
   
    (if (and (= al_pt1 0) (= al_pt2 0))
      (progn
    (setq ch_txt2 (subst (cons 10 ins_pt) (assoc 10 ch_txt2) ch_txt2)) ;;; 이게 중요함 10코드를 뽑아서 11번 코드로 넣어줘야 됨 ;;;
    (entmod ch_txt2)
    )
     
        (progn
    (setq ch_txt2 (subst (cons 11 ins_pt) (assoc 11 ch_txt2) ch_txt2)) ;;; 이게 중요함 10코드를 뽑아서 11번 코드로 넣어줘야 됨 ;;;
    (entmod ch_txt2)
    )
   )
        (setq m (1+ m)) 
)
  )

원본문자와 교체문자를 선택해서 변경하거나 올드문자 신규문자 찾아서 변경하는건 있는데..
여러문자 선택해서 다 똑같은 글씨로 그냥 뿅 바꾸는건없더라고요.
원본문자와  교체문자 선택해서 변경하는 리습을 사용해도되지만
교체문자가 도면상에없어 도면상에 교체문자를 기입해야하는 번거로움을 줄이고자 찾아보고있습니다.
구글 검색해서 한번 찾아보겠습니다.
감사합니다. ^^