Change into current layer Even Block object also with support of EXPLODE

[akgbmb]

Is there any lisp to do the following?

> Select objects to be changed to the current layer

> if selected object is block then EXPLODE and change into current layer

> Select objects’s color change into ByLayer

[eldon]

Have you tried the existing command XPLODE?

[MSasu]

You may exploit the fact that the entities resulted by explode will be retained as Previous selection set:

(if (setq ssetBlock (ssget "_:S:E" '((0 . "INSERT"))))
(command "_EXPLODE" (ssname ssetBlock 0)
         "_CHPROP" "_P" "" "_LA" (getvar "CLAYER") "_C" "BYLAYER" "")
)

[akgbmb]

Dear eldon sir,

some time i have to select normal lines or circles or ellipses (non block items).

xplode for block only.

i have to change selected object into current layer & color change into ByLayer