일련번호 매기는 리습인데요..수정할수 있을까요?

예전에 transformer님이 댓글에 올렸던 리습인데요..
(defun c:12()
(setq n (getint “nStarting number : “))
(while (setq e (car(entsel “nSelect number to change..:”)))
(setq e (entget e))
(setq nn (itoa n))
(cond ((= 1 (strlen nn)) (setq nn (strcat “” nn)))
)
(setq old (assoc 1 e)
new (cons 1 nn)
)
(setq e (subst new old e))
(entmod e)
(setq n (1+ n))
)
)
여기에 바뀐번호가 다른색으로 변환되는것좀 추가할수 있을까요??

번호가 너무많아서 어디까지 했는지 헷깔리네요..ㅜㅜ

고수님들 부탁드립니다.(_ _)