topic Re: Insert block from memory in VBA Forum

Insert block from memory

Anonymous — Thu, 01 Jun 2006 14:13:41 GMT

Hi!
I have a VBA program that insert many copy of a block. I would like to know how I can check if the block is already in the drawing and if it is use the same block.

if blockxxx is in memory
insert from memory
else
insert from the server
endif

Right now my program takes 30 seconds to execute, I have 395 "duplicate definition of block _archtik ignored"

Thx!

Re: Insert block from memory

Anonymous — Thu, 01 Jun 2006 14:42:20 GMT

You check AcadDocument.Blocks collection to see if the block definition is
already in drawing or not:

Dim blk As AcadBlock
Dim bolExist As Boolean
For Each blk In ThisDrawing.Blocks
If UCase(blk.Name)=Ucase(theBlockName) THEN
bolExist=True
Exit For
End
Next

If bolExist Then
''Do insertion by passing BlockName
ThisDrawing.ModelSpance.InsertBlock theBlockName,....
Else
''Do insertion by passing full block file name
ThisDrawing.ModelSpace.InsertBlock "\\TheServer\BlockLibrary\" &
theBlockName & ".dwg",....
End If

wrote in message news:5192143@discussion.autodesk.com...
Hi!
I have a VBA program that insert many copy of a block. I would like to know
how I can check if the block is already in the drawing and if it is use the
same block.

if blockxxx is in memory
insert from memory
else
insert from the server
endif

Right now my program takes 30 seconds to execute, I have 395 "duplicate
definition of block _archtik ignored"

Thx!

Re: Insert block from memory

Anonymous — Thu, 01 Jun 2006 14:48:16 GMT

Thx Norman, I will give it a try!

Pierre D.