Lisp to clean up drawing

[barry2104]

I'm aware there are similar requests on this forum but as far as I know/can find, nothing that fits my exact requiremenst.

I often get .dwg/.dxf files from architects which have been created in non-AutoCAD software (revit, microstation, etc.) and have a lot of useless information which bloats the file. I would like to use a single-command (lisp) to carry out the following on the (opened) .dwg file:

1) explode all blocks repeatedly, until there are no more blocks in the drawing

2) turn all layers to Layer=0 and colour=ByLayer and line weight = ByLayer

3) purge to remove any now unused layer, unused blocks, unused scales, etc.

4) overkill to remove any duplicate elements (to an accuracy of 0.0001)

5) check drawing units and change to METER if not already set to METER

6) zoom extents

Does anyone have something like this handy or can write a lisp up for me?

Ultimately I want to convert that lisp into a clickable icon/command to put inside a ribbon, but that's a different topic / for another day

[hak_vz]

I have put in a single file solutions for particular task and joined all to command "Cleanex".

It needs a bit of polishing but I don't have time to do it.

I have omitted "zoom - extends" since one dislocated point  can extend zoom to maximum.

It's not tested just on a sample drawing, so use it carefully.

[pbejse]

or you use this..

Also not  not tested just on a sample drawing, so use it carefully.

[Sea-Haven]

This has been commented before rather than explode blocks reset them to layer 0, bylayer and bylayer. exploding blocks makes the dwg bloated and more difficult to work on.

[barry2104]

Thanks, yes that is probably a good point. Not sure if "reset them to layer 0, bylayer and bylayer" would also be possible if the block had blocks within itself though? And if those inner blocks also had further blocks within themselves? Could all of these blocks even get reset easily or only the blocks in the highest level?

[barry2104]

That lisp doesn't seem to work, not sure why though as I'm not a lisper

[Sea-Haven]

Try https://forums.autodesk.com/t5/autocad-mep-forum/convert-all-objects-and-nested-blocks-to-1-layer/td...

[barry2104]

I found (and read through) that thread before posting here. It's not quite what I'm after unfortunately

[devitg]

Would you, please, upload such dwg??