Insert block to existing block insertion points

[Anonymous]

Hello everyone 

I have these dynamic blocks (blk01, blk02, blk03) scattered all over the drawing.

I need to insert a new block (blkAA) from C:\folder1\folder\blkAA.dwg into each found dynamic blocks (blk01, blk02, blk03) insertion point.

Its kinda like block replace routine but I'm still keeping the existing blocks in the drawing.

Please help! Thanks in advance 

[hmsilva · Accepted solution]

Hi JCprog,

untested...

(defun c:demo (/ ss blk obj)
  (if (and (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 "BLK01,BLK02,BLK03,`*U*") (cons 410 (getvar 'CTAB)))))
           (setq blk (findfile "C:\\folder1\\folder\\blkAA.dwg"))
      )
    (repeat (setq i (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
      (if (wcmatch (strcase (vla-get-effectivename obj)) "BLK01,BLK02,BLK03")
        (command "-insert" blk "_S" 1 "_R" 0 "_NONE" (vlax-get obj 'InsertionPoint))
      )
    )
  )
  (princ)
)

Henrique

[Anonymous]

That works perfectly!!!!!!!!! 

Thanks a million Henrique!

[hmsilva]

You're welcome, JCprog
Glad I could help

Henrique