topic Re: Script to explode block and transfer to layer in Visual LISP, AutoLISP and General Customization Forum

Script to explode block and transfer to layer

Temssi.d — Tue, 14 Nov 2023 07:16:10 GMT

I am looking for a script that will explode a block and then transfer all its parts to a specific layer

(01_layer).

Thank you for your help!

Re: Script to explode block and transfer to layer

komondormrex — Tue, 14 Nov 2023 10:57:09 GMT

check this

(defun c:explode_to_layer (/ list_exploded last_ename sset_exploded) (setq target_insert (vlax-ename->vla-object (car (entsel "\nPick target insert: "))) last_ename (entlast) ) (if (setq list_exploded (vlax-invoke target_insert 'explode)) (mapcar '(lambda (object) (vla-put-layer object "01_layer")) list_exploded) (progn (setq sset_exploded (ssadd)) (while (setq last_ename (entnext last_ename)) (ssadd last_ename sset_exploded) ) (command "_chprop" sset_exploded "" "_la" "01_layer" "") ) ) (vla-erase target_insert) (princ) )

Re: Script to explode block and transfer to layer

Kent1Cooper — Tue, 14 Nov 2023 13:40:45 GMT

Since the result of an EXPLODE command simply becomes the Previous selection set, there's no need to save the last object, Explode, and then step through and find all newer objects. It can be simpler:

(defun C:X2L (/ ss) (prompt "\nTo Explode Block(s) to Layer 01_layer,") (if (setq ss (ssget "_:L" '((0 . "INSERT")))) (progn ; then (initcommandversion) (command "_.explode" ss "" "_.chprop" "_previous" "" "_layer" "01_layer" "" ); command ); progn ); if (prin1) )

which also prevents selection of inappropriate objects, and even lets you do it to as many Blocks as you want, all at the same time.

That assumes that the Layer in question exists in the drawing. If it might not, that can be accommodated.

Re: Script to explode block and transfer to layer

pendean — Tue, 14 Nov 2023 14:13:10 GMT

@Temssi.d XPLODE command (there is no E at the beginning) has been around for decades and does what you want, and more
https://help.autodesk.com/view/ACD/2023/ENU/?guid=GUID-FC4139AB-D527-4743-8E68-F83DA6E5D192#:~:text=SHARE-,XPLODE%20(Command),-Breaks%20a%20compound

It's even in the LT version of AutoCAD.

Re: Script to explode block and transfer to layer

Temssi.d — Tue, 14 Nov 2023 18:09:45 GMT

Thank you so much it works perfectly! ‌‌

Re: Script to explode block and transfer to layer

Temssi.d — Tue, 14 Nov 2023 18:10:18 GMT

Wow!
thanks:)

Re: Script to explode block and transfer to layer

Temssi.d — Tue, 14 Nov 2023 18:12:06 GMT

Awesome, thanks!