TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: HasanCAD on November 28, 2016, 06:31:46 AM

Title: Wblock to export a block and its layer
Post by: HasanCAD on November 28, 2016, 06:31:46 AM
This lisp export blocks for files perfectly but the block is exploded
I am wondering is there a way to export blocks as it is and its layer?
Code - Auto/Visual Lisp: [Select]
  1. (defun c:bwblock (/ ss cntr bn)
  2.   (setq ss (ssget "x" '((0 . "INSERT"))))
  3.   (setq cntr 0)
  4.  
  5.   (mapcar 'setvar '(filedia cmddia) '(0 0))
  6.  
  7.   (if (not (zerop (sslength ss)))
  8.         (while (setq ent (ssname ss cntr))
  9.            (setq bn (cdr (assoc 2 (entget ent)))
  10.                          cntr (1+ cntr)
  11.                          )
  12.           ;; wblock each block in the current dwg prefixed with "BLOCK_"
  13.           ;; and sent to c:\temp which must exist
  14.           ;(command "_wblock" (strcat "c:\\temp\\BLOCK_" bn) bn "NO"); for Map
  15.           (command "_wblock" (strcat "c:\\temp\\" bn) bn)
  16.           )
  17.     (princ "no blocks found")
  18.         )
  19.   (mapcar 'setvar '(filedia cmddia) '(1 1))
  20.   )
Title: Re: Wblock to export a block and its layer
Post by: ChrisCarlson on November 28, 2016, 08:56:13 AM
WBLOCK is working as it is intended. The program is initiated in drawing "A", the block is saved as drawing "B", upon inserting drawing "B" into drawing "C" the entities will be inserted as a block identical to the one in drawing "A".
Title: Re: Wblock to export a block and its layer
Post by: Marc'Antonio Alessi on November 28, 2016, 01:24:35 PM
You should not have a file that contains a block that has the same name, you may have the "circular reference" problems...
Title: Re: Wblock to export a block and its layer
Post by: danallen on November 28, 2016, 07:26:00 PM
Quote from: HasanCAD on November 28, 2016, 06:31:46 AM
This lisp export blocks for files perfectly but the block is exploded
I am wondering is there a way to export blocks as it is and its layer?

I agree with previous comments, but to do what you want, revise code during WBLOCK command to select entities such as the already inserted block, instead of using blockname (bn).
Title: Re: Wblock to export a block and its layer
Post by: HasanCAD on November 29, 2016, 05:54:48 AM
Thanks all for quick reply
this final (up to my knowladge)
Code - Auto/Visual Lisp: [Select]
  1. (defun c:WBlockTest (/ blk blkins blknm cntr dr ent ss )
  3.  
  4.   (if (and
  5.         (setq ss (ssget "_X" '((0 . "INSERT"))))
  6.         (setq cntr 0)
  7.         (mapcar 'setvar '(filedia cmddia) '(0 0))
  8.         (setq dr "c:\\TEMP") ;folder for extraction
  9.         (if (not (vl-file-directory-p dr)) (vl-mkdir dr)) ; if
  10.         ) ; and
  11.     (progn
  12.       (if (not (zerop (sslength ss)))
  13.         (while
  14.           (setq ent (ssname ss cntr))
  15.           (setq BlkIns (cdr (assoc 10 (entget ent))))
  16.           (setq BlkNm (vla-get-effectivename (vlax-ename->vla-object ent)))
  17.           (setq cntr (1+ cntr))
  18.           (setq blk (ssget "_X" (list '(0 . "INSERT") (cons 2 BlkNm))))
  19.           (vl-cmdf "_wblock" (strcat dr "\\" BlkNm)  "" BlkIns blk "")
  20.           ) ; while
  21.         (princ "no blocks found")
  22.         ) ;if
  23.       (mapcar 'setvar '(filedia cmddia) '(1 1))
  24.       ) ;progn
  25.     ) ;if
  26.   )
Title: Re: Wblock to export a block and its layer
Post by: ronjonp on November 29, 2016, 10:33:10 AM
FWIW, Your make directory within the AND statement will always return nil after the directory exists.
Maybe use: (or (findfile (setq dir "C:\\Temp")) (vl-mkdir dir))
Also, don't set variables until you actually get into your program ( PROGN ).
Title: Re: Wblock to export a block and its layer
Post by: Tharwat on November 29, 2016, 03:25:19 PM
* Dynamic Blocks can not be selected the same way that regular blocks being selected with ssget function.
* There is no need to test if the variable ss has selected objects tow times since it is already tested that in the first part with and function.
Title: Re: Wblock to export a block and its layer
Post by: Grrr1337 on November 29, 2016, 04:41:34 PM
I think you could wrap the entire thing with a single and function, after following ronjonp and Tharwat's advices.
Title: Re: Wblock to export a block and its layer
Post by: HasanCAD on December 03, 2016, 04:33:41 AM
Thanks all I'll follow
Title: Re: Wblock to export a block and its layer
Post by: HasanCAD on December 05, 2016, 06:50:25 AM
In some cases There are blocks not inserted
So How to modify this lisp to insert all blocks even not inserted?
Title: Re: Wblock to export a block and its layer
Post by: ronjonp on December 05, 2016, 10:02:10 AM
Iterate the block table.
Title: Re: Wblock to export a block and its layer
Post by: ChrisCarlson on December 05, 2016, 10:28:32 AM
Ron wrote this years ago

Code - Auto/Visual Lisp: [Select]
  1. (defun c:exportblocks (/ blk blks x dir)
  2. ;;Ronjonp 5/20/14
  3. ;;https://www.theswamp.org/index.php?topic=47103.msg521360#msg521360
  6.     (progn (setvar 'filedia 0)
  7.            (setq dir (strcat (getvar 'dwgprefix) "_ExportedBlocks\\"))
  8.            (vl-mkdir dir)
  9.            (vlax-for blk blks
  10.              (if (and (not (wcmatch (setq x (vla-get-name blk)) "*|*,*`**"))
  11.                       (= (vla-get-isxref blk) :vlax-false)
  12.                  )
  13.                (command "._-wblock" (strcat dir x) x)
  14.              )
  15.            )
  16.            (setvar 'filedia 1)
  17.     )
  18.   )
  19.   (princ)
  20. )

Still use it