topic Re: Insert block at each insertion of a different block in Visual LISP, AutoLISP and General Customization Forum

Insert block at each insertion of a different block

bsanada — Tue, 16 Feb 2016 23:02:34 GMT

I have a block with several insertions of a non-dynamic block (Block A). I'm looking for a way to insert a dynamic block (block B) at each instance of block A. I'm not looking to replace the block, just insert block B over the top of block A.

Any help would be greatly appreciated!

Brad

Re: Insert block at each insertion of a different block

hmsilva — Tue, 16 Feb 2016 23:44:03 GMT

@Anonymous wrote:

I have a block with several insertions of a non-dynamic block (Block A). I'm looking for a way to insert a dynamic block (block B) at each instance of block A. I'm not looking to replace the block, just insert block B over the top of block A.

Any help would be greatly appreciated!

Brad

Hi Brad,

this might help...

EDIT: as your 'Block A' is not dynamic, there's no need to select all dynamic blocks and get the 'effectivename' property for each one...

Revised code:

(vl-load-com)
(defun c:demo (/ ss blk obj)
   (if (and (setq ss (ssget "_X" (list '(0 . "INSERT") '(2 . "Block A") (cons 410 (getvar 'CTAB)))))
            (setq blk (findfile "C:\\folder1\\folder\\Block B.dwg"))
       )
      (repeat (setq i (sslength ss))
         (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
         (command "-insert" blk "_S" 1 "_R" 0 "_NONE" (vlax-get obj 'InsertionPoint))
      )
   )
   (princ)
)

Hope this helps,
Henrique

Re: Insert block at each insertion of a different block

bsanada — Wed, 17 Feb 2016 00:04:16 GMT

Thanks, this is what I was looking for.

Re: Insert block at each insertion of a different block

hmsilva — Wed, 17 Feb 2016 00:05:05 GMT

@Anonymous wrote:
Thanks, this is what I was looking for.

You're welcome, Brad!
Glad I could help

Henrique