AUTOCAD VBA: Cleanup your drawing tool: CLEAN UP XREF V1.1

[MarcooPoloo]

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!