동일한 이름 블록 선택 리습 변경 도와주세요

defun c:BC(/ ss ss1 ed bn)
  (prompt “n기준블록선택..”)
  (setq ss nil ss1 nil)
  (while (= ss nil) (setq ss (entsel “n기준블록을 선택하세요)))
  (setq ed (entget (car ss))
        bn (cdr (assoc 2 ed)))
  (setq ss1 (ssget “x” (list (cons 0 “insert”) (cons 2 bn))))
  (command “copy” ss1 “”)
(princ)
);defun

여기저기 리습을 모아서 해본 리습입니다.
같은 이름의 블록 객체를 선택하는것 까진 됐는데 esc를 누르면 선택한게 다 없어져요
command copy 명령을 없애고 선택후 명령어 대기상태로 만들수는 없을까요?
LT버전에 아이컴툴즈 사용하면서 하는거라 VBA는 안 먹힌다고 하네요
(ex. 선택후 copy 나 move 또는  list 명령을 내릴수 있게)

PS. 도움주지 않으시면서 핀잔주시는 분들은 정중히 거절합니다. 대안캐드,드림,써드파티 권하는 글도요