Inserting a block in a drawing for the first time through vla methods. Possible?

[MJLM]

Hello,

 

I m looking for a way to import a drawing as block into an other drawing through activeX (vla, vl etc) methods. Is it possible? I am not talking about (re)inserting an already inserted block in the drawing. My intent is to insert it from a specific path on disk for the first time. Is it possible? An example, a snippet will be appreciated.

[Tharwat]

Hi,

Yes its possible.

(and (setq fnd (findfile DwgPath))
     (not (tblsearch "BLOCK" (vl-filename-base fnd)))
     (vla-insertblock
       (vlax-get (vla-get-activelayout
                   (vla-get-activedocument (vlax-get-acad-object))
                 )
                 'Block
       )
       (vlax-3d-point '(0.0 0.0 0.0))
       fnd
       1.0
       1.0
       1.0
       0.
     )
)

 

[rlx]

to make it easy for me :

 

http://www.lee-mac.com/copyblockdefinition.html

http://www.lee-mac.com/steal.html

 

oh darn , Tharwat was just a sec earlier

Edited May 31, 2019 by rlx

[BIGAL]

A bit more the standard insert command has the option to browse and insert a complete drawing. 

 

plain lisp (command "-insert" blockname pt x y ang atts atts atts) block name can be any dwg you have access to.

[MJLM]

Thank you all for your replies. I am familiar with the (command "insert"... technique. However, I though the vla method would be faster but to my surprise it is not. The vla method comes actually third when tested inside a loop of inserting 1000 times the block, after 'entmakex' and 'insert' options.