Topic: Explode unexploded blocks

[Andrea]

Code: [Select]

(defun c:kaboum (/ it)
(setq it (vlax-ename->vla-object (car (entsel))))
(vlax-safearray->list (variant-value (vlax-invoke-method it "Explode")))
(vla-delete it)
)
just sharing..

[Lee Mac]

Sorry to criticise Andrea, but this doesn't seem like your usual standard of coding... variable 'it' isn't defined, and no error trapping should the user miss...

EDIT: I see you fixed 'it'

[ronjonp]

Also you could shorten a bit. 

(vlax-invoke it 'Explode)

returns the same as this:

(vlax-safearray->list (variant-value (vlax-invoke-method it "Explode")))

[Matt__W]

And you can also use QSELECT to select all blocks then..... KA-BOOOOOMMM!!!!!

[alanjt]

And you can also use QSELECT to select all blocks then..... KA-BOOOOOMMM!!!!!

Yeah, the routine. 

[Matt__W]

And you can also use QSELECT to select all blocks then..... KA-BOOOOOMMM!!!!!

Yeah, the routine. 

Just t'rowin' out anudder option, dat's all.

[alanjt]

And you can also use QSELECT to select all blocks then..... KA-BOOOOOMMM!!!!!

Yeah, the routine. 

Just t'rowin' out anudder option, dat's all.

Just trollin.

[Matt__W]

And you can also use QSELECT to select all blocks then..... KA-BOOOOOMMM!!!!!

Yeah, the routine. 

Just t'rowin' out anudder option, dat's all.

Just trollin.

[Andrea]

Thank you Ronjonp for the shorter way.

Lee, I was typing during talking on phone...I was distracted.

Have a nice one guys.

[ronjonp]

Thank you Ronjonp for the shorter way.

Lee, I was typing during talking on phone...I was distracted.

Have a nice one guys.

No prob ... although thinking about it more it does not really matter what is returned since it's not being fed to anything. 

[vnanhvu]

 Hi all !
Can you help me covert Unexplode Blocks to Allow exploding Blocks and reverse.
Thanks all !

[kruuger]

Hi all !
Can you help me covert Unexplode Blocks to Allow exploding Blocks and reverse.
Thanks all !

try this
http://www.theswamp.org/index.php?topic=38488.msg436115#msg436115
inside is routine to do this BX
k.