Topic: Multiple blocks to files

[Fitzandantilus]

Does anyone know of or have a lisp that will take all the blocks in a single drawings file and extract them to individual files?

I have a single file with all the standards blocks in it and I would like to wblock each block to individual files.

Any help would be appreciated.
 

[ChrisCarlson]

Code - Auto/Visual Lisp: [Select]

1. ;;                                                              ;;
2. ;;              By: Andrea Andreetti                            ;;
3. ;;                                                              ;;
4. (defun c:BLE (/ blocklist fextr)
5. (setq blocklist (ai_table "block" 8))
6. (setq fextr (acet-ui-pickdir "Select your folder for extraction:" "c:\\" "BLE BlockLIST Extractor"))
7. (if fextr (progn
8.       (foreach n blocklist
9.            (command "._-wblock" (strcat fextr "\\" n) n)
10.  ))
11. (alert "Please select a folder.")))
12. (c:BLE)

[danallen]

tip - in the routine, set current layer to 0, dim & text styles to standard to avoid embedding those items unnecessarily in the block files