Community
Hi,
Here's a little C# sample.
Assuming:
myBlockRef is the block reference
myTag is the tag string
newValue is the attribute new value (string)
{code}AttributeCollection attCol = myBlockRef.AttributeCollection;
foreach (ObjectId attId in attCol)
{
AttributeReference att = tr.GetObject(attId, OpenMode.ForRead, false) as AttributeReference;
if (att.Tag == myTag)
{
att.UpgradeOpen();
att.TextString = newValue;
}
}{code}
Here's a little C# sample.
Assuming:
myBlockRef is the block reference
myTag is the tag string
newValue is the attribute new value (string)
{code}AttributeCollection attCol = myBlockRef.AttributeCollection;
foreach (ObjectId attId in attCol)
{
AttributeReference att = tr.GetObject(attId, OpenMode.ForRead, false) as AttributeReference;
if (att.Tag == myTag)
{
att.UpgradeOpen();
att.TextString = newValue;
}
}{code}
Hi,
No need to explode the block reference to edit attribute reference values.
There're many examples here and elsewhere.
The process is:
Open the BlockReference
For each ObjectId in the BlockReference.AttributeCollection:
Open the AttributeReference
If the AttributeReference.Tag matches:
Set the AttributeReference.TextString value
You should show what you have done so far, so that anyone over here (not only me) can help you.
@Anonymous wrote:
Public Function SetAttributeValue(ByVal btr As BlockTableRecord, ByVal tag As String, ByVal newValue As String) As Integer
Dim cnt As Integer = 0
Using tr As Transaction = btr.Database.TransactionManager.StartTransaction
Dim ids As ObjectIdCollection = btr.GetBlockReferenceIds(True, True)
If (Not ids Is Nothing) Then
Dim btrId As ObjectId
For Each btrId In ids
Dim blockref As BlockReference = TryCast(btrId.GetObject(OpenMode.ForRead, False), BlockReference)
If (Not blockref.AttributeCollection Is Nothing) Then
Dim attId As ObjectId
For Each attId In blockref.AttributeCollection
Dim att As AttributeReference = TryCast(attId.GetObject(OpenMode.ForRead, False), AttributeReference)
If String.Equals(att.Tag, tag, StringComparison.OrdinalIgnoreCase) Then
Try
att.UpgradeOpen()
MsgBox(newValue)
att.TextString = newValue
att.DowngradeOpen()
'att.Dispose()Catch ex As Global.Autodesk.AutoCAD.Runtime.Exception
If (ex.ErrorStatus <> ErrorStatus.OnLockedLayer) Then
Throw
End If
Exit For
End Try
cnt += 1
Exit For
End If
Next
blockref.ExplodeToOwnerSpace()
End If
Next
End If
tr.Commit()
'tr.Dispose()
End Using
Return cnt
End Function
Did you try removing: blockref.ExplodeToOwnerSpace()?
