topic Re: List of available blocks in a drawing using VBA in VBA Forum

List of available blocks in a drawing using VBA

Anonymous — Thu, 28 Jan 2010 18:35:01 GMT

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

Re: List of available blocks in a drawing using VBA

Anonymous — Thu, 28 Jan 2010 18:52:16 GMT

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
>

Re: List of available blocks in a drawing using VBA

Mario-Villada — Mon, 08 Feb 2010 04:10:59 GMT

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

Re: List of available blocks in a drawing using VBA

dm_salamania — Sun, 16 Feb 2014 15:16:13 GMT

Mr. steve

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

i have also problem in this situation..

Re: List of available blocks in a drawing using VBA

Alfred.NESWADBA — Mon, 17 Feb 2014 11:59:01 GMT

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 -

Re: List of available blocks in a drawing using VBA

dm_salamania — Mon, 17 Feb 2014 14:32:44 GMT

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.

Re: List of available blocks in a drawing using VBA

sanganaksakha — Wed, 26 Feb 2014 07:51:32 GMT

dm_salamania,

This seems interesting.

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