리습수정 하고싶습니다. 도와주세요.

(defun c:bcrr()
 (bkee)
 (setvar "cmdecho" 0)
 (setvar "regenmode" 0)
 (setq BBB bna)
 (command "insert" BBB ptins "" "" "")
 (command "explode" (entlast))
 (command "chprop" "p" "" "layer" la "c" "bylayer" "")
 (command "block" BBB "yes" ptins "p" "")
 (prin1)
)

제가 위의 레이어를 사용하려고 하는데요.
이 레이어는 블럭의 레이어를 한번에 선택한 레이어로 바꿔주는 리습입니다.
그런데 블럭이 한번에 한번에 하나씩 밖에 선택이 안되요…
블럭을 다 깨부시고 레이어를 수정하자니 용량이 너무 커지고
블럭을 하나하나 찾아서 수정하자니 블럭이 수없이 많고…
제가 리습에 무뇌한이라 수정이 가능하지부터 알고 싶습니다.
1번 요구사항
선택한 블럭이 선택됬다고 표시가 됬으면 좋겠습니다.(cad 뭔가를 선택했을때 점선으로 보이는것 처럼..)
2번 요구사항
선택이 한번에 한개가 아닌 드래그로 전체 블럭을 잡을수 있도록 할수 있으면 좋겠습니다.

아니면 다른 리습이나 다른 방법이 있으면 추천해 주셨으면 좋겠습니다.
고수님들 도와주세요.