How to make bloks via VBA

[spown]

Hi,
I want to make bloks with several attributes. I use Bloks.add() metod and it's work but evry new block that I create is added in the same block collection. When marking one of them they have all marked.
I'm doing the same thing with autolisp routine. Inserting block via autocad command end it's work fine. But via VBA does not work.
Please heilp me!

 

[borgunit]

Are you giving each new block a unique name? Make sure any references to a block object in your routine is set to nothing before creating a new block.

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[spown]

NO. I use ThisDrawing.Blocks.Add(insertionPoint,"Eltablo") evry time.

 

[borgunit]

With the way you are doing it, you are redefining the block definition each time you do something to this named block. If you want to add different blocks in the drawing, you will have to name them uniquely when they are added.

"Everybody is ignorant, only on different subjects." — Will Rogers