topic Re: Block Attribute VBA in VBA Forum

Block Attribute VBA

AutocadVBANewbie — Thu, 17 Nov 2022 06:42:44 GMT

I am unable to change the TextString of a specific block on drawing using VBA.

I am trying to fetch the Tagstring and replace the Textstring with a new value.

Please guide.

Re: Block Attribute VBA

MakCADD — Thu, 17 Nov 2022 11:49:27 GMT

if attribute(number).tagstring="tagname"

attribute(number).textstring="value"

Re: Block Attribute VBA

AutocadVBANewbie — Fri, 18 Nov 2022 04:42:27 GMT

@MakCADD Thankyou for your response.

I am using a similar structure but it doesn't seem to work.

Dim attributeZ As Object
Dim blockZs As Object
Dim intX As Integer

intX = 95

Set blockZs = actDoc.blocks("Sheet_2")
Set attributeZ = blockZs.Item(intX)

If attributeZ.TagString = "Drawing_Name" Then
attributeZ.Textstring = "XXXXXX"

End If

attributeZ.Update

Re: Block Attribute VBA

norman.yuan — Fri, 18 Nov 2022 13:47:33 GMT

Do you want to change block definition, or block reference (blocks that user see in AutoCAD)?

1. What your code does is to change attribute definition in the block definition, where the attribute's TextString is the attribute's default value when a block with that attribute is inserted into drawing (as BLOCK REFERENCE!).

2. Changes made to attribute definition in a block definition will not show up in the block references of that block definition.

I suspect you actually want to do is change a block reference's attribute value. You may want to describe/explain in more details on what you are trying to do, against what (Block Definition, or Block Reference)?

Re: Block Attribute VBA

AutocadVBANewbie — Mon, 21 Nov 2022 05:17:19 GMT

@norman.yuan : This is a block on the drawing where I need to change attributes through VBA.

The code mentioned in my previous reply executes but no changes reflect on the drawing.

Re: Block Attribute VBA

MakCADD — Tue, 22 Nov 2022 06:02:05 GMT

attribute belongs to blockreference not to block

if blockreferencename=blockname then get attribute and then set attribute