Search the Community

Explanation: To clean up consultant drawings I explode everything multiple times, move all objects to 0 layer, change all properties to By Layer (or equivalent), and purge the file. Then I Ctrl+Shift+C to select base point and in my file Ctrl-Shift+V to create a clean block that serves as the base for our drawings. Goal: LISP that does all the cleaning! Including: 1. Explode everything multiple times 2. Select everything in file and layer --> 0 color -->By Layer linetype --> By Layer lineweight --> By Layer 3. Purge everything (to be left with only 0 layer) I've found bits and pieces in different posts, but I am hoping to get some more comprehensive help. Thank you for your time, in advance!

Hello all .. new to the board, my first post. I am cleaning up a number of drawings (sometimes 100 or 150 at a time) and am trying to set up a couple LISP routines to help. Can anyone help with creating a routine that combines the Lengthen command with a total distance of 30. Also, Lengthen, straight to the dynamic setting. The second would be to combine the Circle command with a radius of 30 and then being able to trim objects to the newly created circle. There are only a few keystrokes for each command to start with but when I have to preform them 4 or 5 times for each drawing x 100 or 150 drawings it would save a tremendous amount of time to be able to just have 1 keystroke. I am new to writing/editing LISP routines so any help would be greatly appreciated.

The Solution For Your Large Cad File Problem. DOWNLOAD CLEAN YOUR DRAWINGS [CLEAN] .rar

Hello, This is a very strange behavior as sometime it appears and sometimes it doesn't. Anyway what I do is draw some walls, add them to a new block, save and then edit-in-place. What I might be missing?

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