Cleanup your drawing tool: CLEAN UP XREF V1.1

Hi everyone,

Ive made a tool to cleanup your dwg-drawings: CLEAN UP XREF V1.1

I want to share it, to help each other! Send me your comment! You can download it below.

It contains the follow functions:

'************************************************************************

'--- SET_UP_DRAWING ---

'1 UCS_WORLD

'1 PLANVIEW_UCSWORLD

'2 SET_UP_VARIABLES

'2 SET_UP_UNITS

'3 SCALE_DRAWING

'4 LTSCALE_ALL_EXCLUDE_BLOCKS (30) 'WAARDE VAN LTSCALE MEEGEVEN

'5 LTSCALE_ALL_BLOCKS (15) 'WAARDE VAN LTSCALE MEEGEVEN

'6 FLATTEN_DRAWING

'--- SET_UP_LAYERS ---

'7 STORE_LAYERSTATE

'8 RESTORE_LAYERSTATE

'9 SET_LAYER_XREF_TEMP_CURRENT

'10 ALL_LAYERS_ON

'11 UNLOCK_ALL_LAYERS

'12 UNFREEZE_ALL_LAYERS

'13 LAYERS_LINEWEIGHT_DEFAULT

'14 REMOVE_LAYER_FILTERS

'--- CLEANING_STUFF ---

'15 PURGE_DRAWING

'16 AUDIT_MODELSPACE

'17 DELETE_LAYOUTS

'18 DELETE_VIEWPORTS

'19 DELETE_VIEWS

'20 DELETE_DIMENSIONS

'21 CLEAN_SCALELIST

'--- LAYER_STUFF ---

'22 CLEAR_LAYER0

' DELETE_LAYER ("E-61-ELEKTRISCHE BORDEN") 'HIER DIEN JE NAAM VAN LAYER IN TE VULLEN

'23 DELETE_FROZEN_LAYERS

'24 ALL_BY_LAYER1

'25 ALL_BY_LAYER2

'--- BLOCKS_STUFF ---

'26 ALL_BLOCKS_BY_LAYER

'27 BURST_EXPLODE_BLOCKS

'28 BURST_EXPLODE_DRAWING_DOWN (3)

'29 FIX_BLOCK

'--- XREF_STUFF ---

'30 TRY_TO_RELOAD_ALL_XREFS_UNLOADED

'31 TRY_TO_DETACH_ALL_XREFS_UNLOADED

'32 BIND_AND_EXPLODE_ALL_XREFS_LOADED

'33 DELETE_UNLOADED_IMAGES

'--- EXPORT_STUFF ---

'34 CREATE_BACKUP_FILE

' SAVE_AS_XREF

' CREATE_WBLOCK

'35 COPY_INTO_TEMPLATE

'************************************************************************

Help each other to be helped!

CLEAN_UP_XREFSv1.1.zip

It's not working on 64 Bit system

Jos so fix it

Usually the 64 systems are just a biot tricky

I suggest use at least acad 2014 or better (all 64 versioopns before are *zensored*)

then just rewrite the references to the optional calles libs

(in 64 bit they need a specuial threadsave flag)

Usually it works after that.