리습 변경 요청드립니다~

아래 리습은 어떤분이 올려주신 치수내에 text 색깔 변환하는 리습인대요
저걸 응용해서 색깔변환말고 제가 입력하는 숫자나 문자로 치수 text 변경하게 가능할까요?

부탁드립니다.

(vl-load-com)
(defun c:te (/ dim_text_color_1 ss p n)
  (if (= dim_text_color nil)
    (setq dim_text_color_1 0)
    (setq dim_text_color_1 dim_text_color)
  )
  (setq dim_text_color
  (getint (strcat “n색깔 번호입력/<<“
    (rtos dim_text_color_1)
    “>>:”
   )
  )
  )
  (if (= dim_text_color nil)
    (setq dim_text_color dim_text_color_1)
  )
  (prompt “n치수 선택:”)
  (setq ss (ssget ‘((0 . “DIMENSION”))))
  (if ss
    (progn
      (setq p 0)
      (while (ssname ss p)
 (setq n (ssname ss p)
       p (+ 1 p)
 )
 (vla-put-textcolor
   (vlax-ename->vla-object n)
   dim_text_color
 )
      )
    )
  )
  (princ)
)