Block Attribute VBA

[AutocadVBANewbie]

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.

[MakCADD]

if attribute(number).tagstring="tagname"

attribute(number).textstring="value"

[AutocadVBANewbie]

@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

[norman.yuan]

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)?

[AutocadVBANewbie]

@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.

[MakCADD]

attribute belongs to blockreference not to block

if blockreferencename=blockname then get attribute and then set attribute