Rather than insert & explode, just set an Undo Begin, get the block name from a selection, get the block object from the block table, edit the block objects direct for color, linetype & layer, then Wblock out the block....bam, yer done. Then set Undo End then Undo Back.
Just my $0.02