블록 이름선택 및 내보내기 리습 문의

안녕하십니까~?

예전에 받아 사용중인 리습 변경을 좀 원합니다.
현재 리습은 글자를 선택하면 선택한 글자 그대로 블럭으로 저장이 됩니다.
이것을 아래처럼 될 수 있을까요 ?
예) AA 10T 1EA <– 있다고 하면 블럭이름저장시 1EA-AA-10T-(자동순번)
     여기서 AA는 다른 몇가지 지정으로 SS, 304, 316, GI, 등등
이게 가능 할까요 ?

(defun c:wbl(/ os cm ss en1 en2 bn1 bn2 bn ins path) ; eazy wblock
;->*error* start
 (defun *error* (msg)(princ “error: “)(princ msg)
 (setvar “osmode” os) (setvar “cmdecho” cm)
 (if en1 (redraw en1 4)) (if en2 (redraw en2 4))
 (princ))
;-<*error* end
 (prompt “n>>wblock 쉽게 만들기..”)
 (setq os (getvar “osmode”)
       cm (getvar “cmdecho”))
 (setvar “cmdecho” 0)
 (setq ss (ssget))
;————————————
 (setq en1 nil en2 nil)
 (while (= en1 nil) (setq en1 (car (entsel “n파일이름 텍스트선택<도면번호>:”))))
 (redraw en1 3)
 (setq bn (cdr (assoc 1 (entget en1))))
;————————————
 (setq ins (getpoint “nBase point Click :”))
 (redraw en1 4)
 (setq path (strcat “d:/block/” bn “.dwg”))
 (setvar “osmode” 0)
 (command “wblock” path “” ins ss “”)
 (command “insert” path ins 1 1 0)
 (command “explode” (entlast))
 (setvar “osmode” os)
 (setvar “cmdecho” cm)
(princ)
);defun