Community
Hi,
I`ve written some code that changes the layer of selected blocks & nested blocks. Blockreference(s) containing attributes needs to be synced (attsync). What`s the best way of doing an attsync in .Net? I`ve look at the following Brute force method from Gile (NET BLOCK Routines), but I`m getting some intellisense error:
'GetAttributes' is not a member of 'BlockTableRecord'
'ResetAttributes' is not a member of 'BlockReference'
My target framework in set to 4.5
My AcCoreMgd, AcDbMgd & AcDbMgd are on version 20.1.0.0
Any help is appreciated!
Hi,
It looks like you didn't copy the whole code from TheSwamp: the GetAttributes() and ResetAttributes() methods are missing in the code you show.
With VB, you have to clear the Root Namespace in the project to add these extension methods to Autodesk.AutoCAD.DatabaseServices.
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Namespace Autodesk.AutoCAD.DatabaseServices
Public Module ExtensionMethods
Dim attDefClass As RXClass = RXClass.GetClass(GetType(AttributeDefinition))
<System.Runtime.CompilerServices.Extension> _
Public Sub SynchronizeAttributes(target As BlockTableRecord)
If target Is Nothing Then
Throw New ArgumentNullException("target")
End If
Dim tr As Transaction = target.Database.TransactionManager.TopTransaction
If tr Is Nothing Then
Throw New Exception(ErrorStatus.NoActiveTransactions)
End If
Dim attDefs As List(Of AttributeDefinition) = target.GetAttributes(tr)
For Each id As ObjectId In target.GetBlockReferenceIds(True, False)
Dim br As BlockReference = _
DirectCast(tr.GetObject(id, OpenMode.ForWrite), BlockReference)
br.ResetAttributes(attDefs, tr)
Next
If target.IsDynamicBlock Then
target.UpdateAnonymousBlocks()
For Each id As ObjectId In target.GetAnonymousBlockIds()
Dim btr As BlockTableRecord = _
DirectCast(tr.GetObject(id, OpenMode.ForRead), BlockTableRecord)
attDefs = btr.GetAttributes(tr)
For Each brId As ObjectId In btr.GetBlockReferenceIds(True, False)
Dim br As BlockReference = _
DirectCast(tr.GetObject(brId, OpenMode.ForWrite), BlockReference)
br.ResetAttributes(attDefs, tr)
Next
Next
End If
End Sub
<System.Runtime.CompilerServices.Extension> _
Private Function GetAttributes(target As BlockTableRecord, tr As Transaction) As List(Of AttributeDefinition)
Dim attdefs As List(Of AttributeDefinition) = New List(Of AttributeDefinition)
For Each id As ObjectId In target
If id.ObjectClass = attDefClass Then
Dim attDef As AttributeDefinition = _
DirectCast(tr.GetObject(id, OpenMode.ForRead), AttributeDefinition)
attdefs.Add(attDef)
End If
Next
Return attdefs
End Function
<System.Runtime.CompilerServices.Extension> _
Private Sub ResetAttributes(br As BlockReference, attDefs As List(Of AttributeDefinition), tr As Transaction)
Dim attValues As New Dictionary(Of String, String)()
For Each id As ObjectId In br.AttributeCollection
If Not id.IsErased Then
Dim attRef As AttributeReference = _
DirectCast(tr.GetObject(id, OpenMode.ForWrite), AttributeReference)
attValues.Add( _
attRef.Tag, _
If(attRef.IsMTextAttribute, attRef.MTextAttribute.Contents, attRef.TextString))
attRef.Erase()
End If
Next
For Each attDef As AttributeDefinition In attDefs
Dim attRef As New AttributeReference()
attRef.SetAttributeFromBlock(attDef, br.BlockTransform)
If attDef.Constant Then
attRef.TextString = If(attDef.IsMTextAttributeDefinition, _
attDef.MTextAttributeDefinition.Contents, _
attDef.TextString)
Else If attValues IsNot Nothing AndAlso attValues.ContainsKey(attDef.Tag) Then
attRef.TextString = attValues(attDef.Tag.ToUpper())
End If
br.AttributeCollection.AppendAttribute(attRef)
tr.AddNewlyCreatedDBObject(attRef, True)
Next
End Sub
End Module
End Namespace
@BKSpurgeon, the whole code (C# and VB) is in the message linked by @JFN_KSH:
http://www.theswamp.org/index.php?topic=31859.msg508802#msg508802
Hi Gile,
Firstly let me say thank you for sharing your code, it's helped me enormously.
I have discovered a minor problem.
Steps to reproduce:
- Rotate an attributed block in the drawing
- Run the attsync code
- Go to the properties of the block
- Enter 0 in the Rotation
AutoCAD then displays a message: Error, Object was erased. The block's rotation is set to 0 but the attributes remain where they were before the rotation back to 0.
I was wondering if you could confirm whether you see the same behaviour and if not, do you have any suggestions as to what might be causing the problem?
This is how I'm calling it:
''' <summary> ''' Synchronise block reference attributes with their definitions ''' </summary> ''' <param name="blkRefIds">The objectIds of the block references to synchronise</param> Public Shared Sub myAttSync(blkRefIds As List(Of ObjectId)) Dim db As Database = HostApplicationServices.WorkingDatabase Dim doc As Document = Application.DocumentManager.GetDocument(db) Using docLock As DocumentLock = doc.LockDocument() Using trans As Transaction = db.TransactionManager.StartTransaction()
' If no specific blocks supplied then synchronise all... If blkRefIds Is Nothing Then Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead) blkRefIds = bt.Cast(Of ObjectId)().ToList() End If For Each id As ObjectId In blkRefIds Dim btr As BlockTableRecord = trans.GetObject(id, OpenMode.ForRead) If btr.IsLayout Then Continue For End If If btr.IsFromExternalReference Then Continue For End If If btr.GetBlockReferenceIds(True, True).Count = 0 Then Continue For End If btr.UpgradeOpen() btr.SynchronizeAttributes() Next trans.Commit() End Using End Using End Sub
Thanks
Paul
Forums Links
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
