리습파일 수정이 가능할까요?

숫자하나하나 쳐서 바꾸지않고
명령어 1 치고 숫자를 바꾸는 리습인데..
혹시 여기에 바꾼숫자가 레이어 색도 바뀌게 리습 업데이트 가능할까요?
지금껏 여기서 이 리습을 받아 너무 잘 이용하고있는데
혹시나 기능을 업데이트하고싶은데 제가 수정을 못하겠어요~

;;;;;;——————
(defun C:3(/ a b c d e dcl_id )
(setq dcl_id (LOAD_DIALOG “1ddedit.dcl”))
(prompt “nSelect text to edit: “)
(setq a (ssget))
(setq b (sslength a))
(setq c 0)
(while (<= 1 b)
(setq d (ssname a c))
(if (or (= (cdr (assoc 0 (entget d))) "TEXT") (= (cdr (assoc 0 (entget d)))
"DIMENSION") (= (cdr (assoc 0 (entget d))) "MTEXT"))
(progn
(redraw d 3)
(setq e (cdr (assoc 1 (entget d))))
(new_dialog "newddeditbox" dcl_id)
(set_tile "newddeditbox" e)
(MODE_TILE "newddeditbox" 2)
(action_tile "newddeditbox" "(setq e $value)")
(start_dialog)
(entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d)))
(redraw d 4)
)
)
(setq b (- b 1))
(setq c (+ c 1))
)
(princ)
)
;—————-
(defun C:1(/ a b c d e)
(prompt "nSelect text to edit: ")
(setq a (ssget))
(setq b (sslength a))
(setq c 0)
(while (<= 1 b)
(setq d (ssname a c))
(if (or (= (cdr (assoc 0 (entget d))) "TEXT") (= (cdr (assoc 0 (entget d)))
"DIMENSION") (= (cdr (assoc 0 (entget d))) "MTEXT"))
(progn
(redraw d 3)
(prompt "nNew text string :”)
(setq e (getstring T ))
(if (= e “”)
(setq e (cdr (assoc 1 (entget d))))
)
(entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d)))
(redraw d 4)
)
)
(setq b (- b 1))
(setq c (+ c 1))
)
(princ)
)
;—————–