Topic: Create Block using other blocks

[David Hall]

Does anybody know how to create a block definition by using existing blocks?  What I want to do is insert a block, explode if necessary, and add it to a newly created block def.  Then insert a different block and add it to the new def, until I have a complete assembly of parts that I use to create the overall block.  I have gone through the .ADDDXXX methods, and there are not any for blocks, but there is 1 for MInsertBlock, which I think I could use, but wanted to ask before I go down that path

[David Hall]

Got it, nevermind.  Turns out to be super easy.

Code: [Select]

      Dim ObjectBlock As AcadBlock
      Set ObjectBlock = ThisDrawing.Blocks.Add(InsPt, "1phBS")
      ObjectBlock.InsertBlock InsPt, "TheBlockIWantedToInsert.dwg", 1, 1, 1, dblRotation

[Bryco]

Oh shiney, never noticed that one.

[David Hall]

I hadn't ever tought to use something like this either, but leave it to my Non-cad literate boss to ask for something that a regular block just wouldn't do.  The labs from C# made me think of this.