Explode LISP??

[~Jeff~]

Does any one have a lisp routine or can write a lisp routine that can explode a block to the current layer, linetype, and color? I spent a brief amount of time trying to find somthing like this.

Example: If I have a block that is originally drawn on layer 0, color = byblock, and linetype = byblock. If I need to explode the block the block returns the lines back to what they were drawn at. I need to explode the block to the current layer, color and linetype.

Reason: Have a client that does not want any attributes on the drawing for whatever reason they might have. I have many blocks that contain attributes.

Thanks for any help in advance!

 

[LARRY]

To go a different route
Tony Hotchkiss of Cadalyst wrote
a lisp that will purge selected attributes.
I believe you can get it from cadalyst.

 

[Levon-Austin]

If you have Express Tools use the Burst command.

 

[Tom Smith]

Or just make all the attributes invisible and forget about them.

 

[~Jeff~]

I have express tools for 2004, I do not see "Burst"

 

[~Jeff~]

nevermind, found it ....it isn't called burst in the pulldown.

 

[Scot-65]

:

Jeff,

Today is your lucky day.

Tailor this as needed and declare key in your utility
(we use "EX" as the routine name, but this program was
designed to explode blocks that were brought in via
the Screen Menu (yes, there are some symbols we use
that needs exploding...).

No error message here since there is no user interaction within the program itself.

(defun EX_L ( / a b ) ;Menu Function to explode blocks. (setq b (cdr (assoc 8 (entget (setq a (entlast)))))) (setvar "cmdecho" 0) (command ".explode" a) (command ".chprop" "p" "" "la" b "") (setvar "cmdecho" 1)(setq a nil b nil)(princ)
);endEX_L

Continue the chprop command to do the color and linetype.
Tailor entlast to entget...

GOOD LUCK !

Scot-65

 

[Tom Smith]

I think it's already been pointed out to him that this is a built-in capability in Acad and doesn't require customization.

It used to, but like so many formerly popular home-brew routines, the functionality eventually got added to the core product, I believe several releases ago. At each new release I've been able to discard several old favorite lisps that were no longer needed.

Granted, he might want to put together a function to supply the default responses to the XPLODE command prompts, to save some keypresses. But basically XPLODE followed by several returns will do exactly what the old EXPLODE/CHPROP sequence did, and there are also other options available.

 

[Scot-65]

:

Tom,

Try using your paintbrush on text objects, but do not let the text rotate...

Scot-65

 

[Tom Smith]

You point being ...?