Topic: Inserting Blocks within other drawings

[MSTG007]

I am trying to figure out by using a script setup (command line); If I have a drawing that has several blocks in it, I want to write a script that can find that drawing and look for the name of the requested block and insert it into the current drawing. I know you can do it thru the tool palette but again, (automating it, is what I am hoping for).
thanks for all your help!

[mjfarrell]

design center is your friend <CTRL+2>

[MSTG007]

I know that the design center is the way to go; but can I access that command from a command line?

[ChrisCarlson]

You can do it through the insert dialog IF the directory where the block is stored is in your support path. Also going this route each block needs it's own .dwg file.

You could use this routine to extract each block to it's own file.

Based off Ron's routine

Code - Auto/Visual Lisp: [Select]

1. ;;source http://www.theswamp.org/index.php?topic=47103.0
2. (defun c:exportblocks (/ blk blks x dir)
3.   (vl-load-com)
4.   (if (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
5.     (progn (setvar 'filedia 0)
6.            (setq dir (strcat (getvar 'dwgprefix) "_ExportedBlocks\\"))
7.            (vl-mkdir dir)
8.            (vlax-for blk blks
9.              (if (and (not (wcmatch (setq x (vla-get-name blk)) "*|*,*`**"))
10.                       (= (vla-get-isxref blk) :vlax-false)
11.                  )
12.                  (progn
13.                  (annotativeblock x)
14.                (command "._-wblock" (strcat dir x) x)
15.                    )
16.              )
17.            )
18.            (setvar 'filedia 1)
19.     )
20.   )
21.   (princ)
22. )
23.  
24. (defun annotativeblock ( blk )
25.     (and (setq blk (tblobjname "block" blk))
26.         (progn
27.             (regapp "AcadAnnotative")
28.             (entmod
29.                 (append (entget (cdr (assoc 330 (entget blk))))
30.                    '(
31.                         (   -3
32.                             (   "AcadAnnotative"
33.                                 (1000 . "AnnotativeData")
34.                                 (1002 . "{")
35.                                 (1070 . 0)
36.                                 (1070 . 0)
37.                                 (1002 . "}")
38.                             )
39.                         )
40.                     )
41.                 )
42.             )
43.         )
44.     )
45. )
46.  

[MSTG007]

Awesome!

I also stumbled on this... Thought I share.

http://www.cadtutor.net/forum/archive/index.php/t-55084.html?s=441b729217477d67f32aa206ececea1b