레이어 변경 리습좀 부탁드립니다..고수님들..제발

도면에 있는 레이어 TEXT를 앞에 123_abc….123_abcd….123_abcde 이렇게 바꿀수 있는 리습이 있나요?
앞에 동일한 명칭을 붙여야 하는데..어떻게 해야 하는지 하나 하나 다 클릭해서 바꿀려고 하니 도면이 1000장이 넘어서  제발 부탁좀 드리겠습니다.

(defun c:asd (/ en as nb lyn)
(setq en (entget (car (entsel “n기준선 선택: “))))
(setq as (cdr (assoc 8 en)))
(setq nb (getstring T “n앞글자 입력.: “))
(setq lyn (strcat nb as))
(command “rename” “la” as lyn)
(princ)
)
이건 하나 하나 객체를 클릭해서 바꾸는 리습인데 다중 객체를 할려면 어떻게 해야 하나요?

제가 리습을 어덯게 하는건지 잘 몰라서..부탁좀 드리겠습니다.