블럭삽입리습 수정방법좀…

기본적으로 블럭 치수 스케일에 비례하게 조정해서 불러 들이는 형식으로 만들어져있습니다.
그런데 이걸 복수식…단축키 하나로 넘버를 부여해서 붙여 넣고 싶어서요
BL을 치면 <1-블럭1,  2-블럭2, 3-블럭3, 4-블럭4>이런 명칭이 들어가서
 1,2,3,4번을 선택시 블럭 삽입이 가능하도록 하려면 어디를 손봐야 되나요?

(defun C:BL()
(setvar “cmdecho” 0)
(setq cs1 (getvar “dimscale“))
(setq cxy (getpoint “n블럭명칭 : “))
(command “insert” “저장위치” cxy cs1 cs1 “”)
)