bopck 내 모든 block explode 하는 lisp 있나요?

(DEFUN c:back_ep3()
        (setq p1 (getpoint “nt First Point :”))
        (setq p2 (getcorner p1 “t Other Point :”))
        (repeat 3
                (SETQ A (SSGET “C” p1 p2 (list (cons 0 “INSERT”))))
                (setq n (sslength a))
                (setq i 0)
                (repeat n
                        (setq x (ssname a i))
                        (command “explode” x)
                        (setq i (1+ i))
                )
        )
)
=====================================================
위 lisp으로 수정을 해보려고 했는데요
너무나도 짧은 제 지식으로는 어떻게 수정을 해도 안되네요.

제발 가르쳐 주십시요. ㅜㅜ…

제가 할려고 하는거는요.
선택된 bolck(bolck내 block도 포함 입니다.) 모두 explode 하고
explode된 layer 검정색으로 변경한 후 복사해서 블럭으로 붙여넣기 입니다.

제가 하고 있는 일이 자동화 쪽인데요.
모든 단품을 블록화 시켜서 조립하고 레이아웃 작업할때는 모두 explode하고 난 다음에
색상변경해서 블럭으로 만들어서 레이아웃에 붙여넣기 하는 작업을 하거든요.

부탁드립니다. ^^;;;