레이어 명칭 변경 리습에 관련하여 질문드립니다.

도무지 일을하다 손에 안잡혀 질문드립니다.

도면 층에 있는 모든 레이어 이름을 예를 들어.. abc ...abcd ..abcde 이런 이름에 수많은 레이어 명들을
 앞에 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)
)
이건 하나 하나 객체를 클릭해서 바꾸는 리습인데 다중 객체를 할려면 어떻게 해야 하나요?

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