Convert MANY blocks to Layer0

[jontramos]

I have a about 40 .dwg files, each with dozens of basic 2D blocks. Each block has only basic line content that I would like to change to Layer 0. (I think these .dwg's were exported from another application)

Does anyone know of a way to automate this?

EDIT: I don't want to explode the blocks, just change their content to Layer 0

Thanks,
Jon

[dzatto]

I found this doing a search. See if it works.

http://forums.augi.com/showthread.ph...A+nested+block

[jontramos]

hmmm... this is a great lsp routine, but it would require me to pick one block at a time. I just did a filter and found that one drawing has over 700 blocks... and each block has its own unique name. (which makes me cry on the inside)

Any other thoughts? I would love to be able to deal with this as a batch.

Thanks,
Jon

[dkoch]

The SetNestedObjectsByBlock command will do what you want, but will also change all of the subentities to ByBlock color, linetype, lineweight and plot style. It will work on a selection set of multiple blocks.

[dzatto]

The SetNestedObjectsByBlock command will do what you want, but will also change all of the subentities to ByBlock color, linetype, lineweight and plot style. It will work on a selection set of multiple blocks.

But will that also set all the entities to layer 0? I thought it just changed all the colors to ByBlock?

[dkoch]

But will that also set all the entities to layer 0? I thought it just changed all the colors to ByBlock?

Yes sir, it goes the whole 9 yards and sets the nested objects to Layer 0 and the color, linetype, lineweight and plot style to "ByBlock".

[manojmadhavan58]

You can use Laymrg command

Example:
Command: laymrg
Select object on layer to merge or [Name]:
Selected layers: Layer1.
Select object on layer to merge or [Name/Undo]:
Selected layers: Layer1,Layer2.
Select object on layer to merge or [Name/Undo]:
Selected layers: Layer1,Layer2,Layer3.
Select object on layer to merge or [Name/Undo]:
Selected layers: Layer1,Layer2,Layer3,Layer5.
Select object on layer to merge or [Name/Undo]:
Selected layers: Layer1,Layer2,Layer3,Layer5,Layer7.
Select object on layer to merge or [Name/Undo]:
Selected layers: Layer1,Layer2,Layer3,Layer5,Layer7,Layer8.
Select object on layer to merge or [Name/Undo]:

Select object on target layer or [Name]:
******** WARNING ********
You are about to merge 6 layers into layer "0". ----------- (ENTER LAYER NAME "0")

Do you wish to continue? [Yes/No] <No>: y


Deleting layer "Layer1".

Deleting layer "Layer2".

Deleting layer "Layer3".

Deleting layer "Layer5".

Deleting layer "Layer7".

Deleting layer "Layer8".
6 layers deleted.

[jontramos]

I have been meaning to say thank you to everyone for their solutions. The SetNestedObjectsByBlock command is exactly what I needed, and the laymrg command has come in handy too.

Thank you,
Jon

[CAtDiva]

The SetNestedObjectsByBlock command will do what you want, but will also change all of the subentities to ByBlock color, linetype, lineweight and plot style. It will work on a selection set of multiple blocks.

WOW!!!!! That SetNestedObjectsByBlock command is genius!!! I'd found the FixBlock LISP Dzatto linked to and tweaked it for some things, but this is much better!

Thanks, dkoch!

[ameador]

See, now I was going to mention the "laytrans" command.
If everything was set to bylayer, you could just translate all the layers over to the "0" layer.

I'll have to check out the "SetNestedObjectsByBlock" command sometime. Sounds like fun.