Editing Attributes at once in multiple layouts

[Lucid]

I need to change a date on the titleblock in about 15 different layouts in the same dwg. However, there are additional layouts that do not need the date changed. The date that needs changing is in attribute form in in the "titleblock" block.

[f700es]

Try the "Find" command.

[hazardman]

also make sure you click on options and only have the check box for block attribute value only...

[Lucid]

alright now what if the particular attribute is empty, such that I have nothing to "find"?

[hazardman]

then you'll have to do it the hard way...type it in...

[BIGAL]

You could search for all the title block of a partivcular name in the drawing and change the one Attribute that would be easy but it would change every single one.

To change one and not another on a different sheet would require a lot more code.

here is an example of what you want
Public Sub issued_for_construction()
' This Updates the Issued for construction and sets rev 0

Dim SS As AcadSelectionSet

Dim Count As Integer
Dim FilterDXFCode(1) As Integer
Dim FilterDXFVal(1) As Variant
Dim attribs As Variant
Dim BLOCK_NAME As String

On Error Resume Next

FilterDXFCode(0) = 0
FilterDXFVal(0) = "INSERT"
FilterDXFCode(1) = 2
FilterDXFVal(1) = "DA1DRTXT"

BLOCK_NAME = "DA1DRTXT"

Set SS = ThisDrawing.SelectionSets.Add("issued")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal


For Cntr = 0 To SS.Count - 1

attribs = SS.Item(Cntr).GetAttributes


attribs(0).TextString = "ISSUED FOR CONSTRUCTION"
attribs(3).TextString = "0"

attribs(0).Update
attribs(3).Update

Next Cntr
ThisDrawing.SelectionSets.Item("issued").Delete

[f700es]

alright now what if the particular attribute is empty, such that I have nothing to "find"?

Well you did say "change" the text of an attribute and not enter text in an attribute.

[Raggi_Thor]

-ATTEDIT
Edit one at a time? NO
TAG? Your tag
Value? New value