MarcooPoloo 发表于 2022-7-6 22:00:46

Cleanup your drawing tool: CLE

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

Jos vd Heijden 发表于 2022-7-6 22:53:45

It's not working on 64 Bit system

rexxitall 发表于 2022-7-6 23:09:18

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.
页: [1]
查看完整版本: Cleanup your drawing tool: CLE