Topic: blocks

[BREZI]

anybody got any lisps that will extract the blocks from a drawing file into wblocks?

[hendie]

try Blockwerx

Write Block(s) -
Use the BlockWerx write blocks dialog to write any number of blocks in the drawing out to file (into a Library or elsewhere) all at the same time.

[Mark]

try this on a copy of the original dwg first. You will need to create a folder called c:\temp if one does not exist.

Code: [Select]


(defun c:bwblock (/ ss cntr bn)
  (setq ss (ssget "x" '((0 . "INSERT")))
cntr 0
)

  (mapcar 'setvar '(filedia cmddia) '(0 0))

  (if (not (zerop (sslength ss)))
(while (setq ent (ssname ss cntr))
  (setq bn (cdr (assoc 2 (entget ent)))
cntr (1+ cntr)
)
 ;; wblock each block in the current dwg prefixed with "BLOCK_"
 ;; and sent to c:\temp which must exist
 ;(command "_wblock" (strcat "c:\\temp\\BLOCK_" bn) bn "NO"); for Map
 (command "_wblock" (strcat "c:\\temp\\BLOCK_" bn) bn)
 )
)
  (mapcar 'setvar '(filedia cmddia) '(1 1))
  )


[daron]

Brian, FYI, when asking for a lisp to be given or when asking for help you may be attempting, the Vlisp Hackers forum is the place for it. Thanks for understanding.

[BREZI]

that's great thanks mark, works a treat!

I have loads to do!!