This routine runs a series of commands imposing a level of consistency to block drawings before they are uploaded to a Block Library on one of Icon's Specs & Standards websites.

The routine goes through the following process:

• Sets the Viewpoint to Plan World and then performs a Zoom Extents
• Thaws, Unlocks and turn On all Layers
• Sets Layer 0 to be Current
• Sets the drawing LIMITS to 2000,2000
• Sets GRID and SNAP Off
• Sets the variables LTSCALE to 100 and INSUNITS to 0
• Checks to see if this drawing contains a block of the same name as the drawing. If it does if displays the message "This drawing contains a block of the same name as the drawing! If you intend to use this drawing as a block, please resolve this before running this routine again..."
• Checks to see if this drawing contains nested Blocks; if any are found, they are listed to a new file created in the same directory the drawing is in: 'Drawings Containing Nested Blocks.txt'
• Removes any and all hyperlinks from entities
• Checks for anything that is not either MTEXT, TEXT, ATTDEF, HATCH and changes its colour to ByBlock
• Checks for anything that is not either MTEXT, TEXT, ATTDEF, HATCH that has a linetype of ByLayer and changes it to ByBlock
• Checks for anything that is not either MTEXT, TEXT, ATTDEF, HATCH that has a linetype of Continuous and changes it to ByBlock
• At this point certain client specific checks and changes might be made
• Purges the drawing
• Checks for any 3D items; if any are found, changes the viewpoint to a 3D view.

1.22 - 26/10/18: Added check to see if there's a block as the same name as the drawing in the drawing
1.21 - 17/08/17: Added IconSystem to list of blocks to be ignored
1.20 - 03/10/16: Added creation of a script file listing drawings containing nested blocks which can then be used to redefine the nested blocks; added a 'Super Purge' for AutoCAD 2017
1.19 - 25/06/16: All entities now have Elevation and Thickness set to 0
1.18 - 16/06/16: Additional minor amendments to client specific functionality
1.17 - 15/06/16: Minor amendments to client specific functionality
1.16 - 06/06/16: Reworked process for ignoring Blocks. The routine now ignores hatch, xrefs, Block created from bound xrefs, any Block name beginning with an underscore, any Block name beginning with TerminatorO and / or DimBlks.
1.15 - 25/05/16: Added a check to delete any existing IconSystem* attributes so that they (specifically IconSystemBlockVersion) do not confuse the Add / Update Links routine. Any / all existing hyperlinks are also now removed.
1.14 - 19/05/16: Set to ignore Blocks named: _ARCHTICK, _CLOSED, _CLOSEDBLANK, _NONE, _OBLIQUE, _OPEN, _OPEN90, _ORIGIN, DIMBLK, TERMINATOROPEN or TERMINATOROPEN_0.5
1.13 - 30/03/16: Stopped the changing of hatch to colour ByBlock and forces the change of any Hatch that's coloured ByBlock, to ByLayer
1.12 - 22/03/16: Stopped the changing of ATTDEFs to colour ByBlock
1.11 - 21/03/16: Stopped the changing of TEXT and MTEXT to colour ByBlock
1.10 - 21/03/16: Added feature to list nested Blocks to a text file of the same name as the drawing
1.09 - 14/03/16: Now changing LineTypes that were Continuous to ByLayer
1.08 - 24/02/16: Added full path .txt files and Delete PaperSpace Layouts feature
1.07 - 20/11/15: Added Extents Report.txt. Only change entities that are coloured ByLayer to ByBlock
1.06 - 06/03/12: Changing colour to ByBlock
1.05 - 14/09/11: IconSystem Version!
1.04 - 28/08/08: Added in INSUNITS.