List of available blocks in a drawing using VBA

[Anonymous]

I need to populate a list box with a list of available blocks in my drawing, however it is listing every block in the drawing one entry for each instance of the block. example if block "A" is present 100 times I've got 100 "A"'s in my list. How can I correct this. Some of my code is attached below.

'collect up list of all acad objects
For Each ObjEnt In ThisDrawing.ModelSpace
'sort out blocks
If ObjEnt.ObjectName = "AcDbBlockReference" Then
Set ObjBRef = ObjEnt
CmbBx_Blk_Fnd_Nm.AddItem ObjBRef.EffectiveName

[Anonymous]

Hi Steve,

Read the help files till you understand the difference between

AcadBlock

and

AcadBlockReference

An AcadBlock cannot be found in model space

An AcadBlockReference cannot be found in the drawings Blocks collection.


Regards,


Laurie Comerford


steve030373 wrote:
> I need to populate a list box with a list of available blocks in my drawing, however it is listing every block in the drawing one entry for each instance of the block. example if block "A" is present 100 times I've got 100 "A"'s in my list. How can I correct this. Some of my code is attached below.
>
> 'collect up list of all acad objects
> For Each ObjEnt In ThisDrawing.ModelSpace
> 'sort out blocks
> If ObjEnt.ObjectName = "AcDbBlockReference" Then
> Set ObjBRef = ObjEnt
> CmbBx_Blk_Fnd_Nm.AddItem ObjBRef.EffectiveName
>

[Mario-Villada]

Once you have followed Laurie's advice you may use this:

{code}
Private Sub CommandButton1_Click()

Dim B As AcadBlocks
Dim i As Integer
Set B = ThisDrawing.Blocks
For i = 0 To B.Count - 1
ListBox1.AddItem B(i).Name
Next i


End Sub
{code}

Regards,
Mario

[dm_salamania]

Mr. steve

can i get you code in " list of available blocks in a drawing using VBA "

i have also problem in this situation..

[Alfred.NESWADBA]

Hi,

the last post abive yours show how to collect the block-definitions from the drawing, what do you need more than that (or other than that)?

- alfred -

[dm_salamania]

Sir Good day

    I'm new in vba. I want to make a VBA in Autocad that can make the simple LINE into a 3d I-BEAM in just a single click.

PLease see attached file.that is the form of my VBA.

Please help me Sir.

[sanganaksakha]

dm_salamania,

This seems interesting.

Can you post a drawing that shows the original line and then the 3d I-BEAM AFTER conversion?