Explode block with Attributes... converting attribute to text

[glanard]

Hi,

I wrote this little piece of code (attached) that explode all the blocks in the current drawing.

This is magical, compared with what we had to do in VBA.

This works perfectly but now I want to go deeper and managed blockreferences with attributes.

Based on my code, I can determine if oBTR.HasAttributeDefinitions is true or false.

If the blockreference has attributes, I suppose I will have to use Explode instead of ExplodeToOwnerSpace.

My first question is, using explode, I need before to know in which space the blockreference is inserted (Model or any layout) so to insert the exploded entities correctly. So, is it possible from a blockreference to get its own SpaceId?

An another idea I had is to edit the blockreference (not the block definition) to replace attributes with text... is it possible?

If you have other ideas 😉

Thanks in advance,

Best regards

[Anonymous]

HI.

In VBA i create Text object with the text inside the attribut.

If you explode Attribut in BlockReference you have only AttributBlockReference. This Object is not visible on you ModelSpace or PaperSpace.

So you need to create Text Object With the position. Calculate the X/y with the position  of your BlockReference and scale X/Y and after add this to your paper/model Space.

I'am new on VB.NET but i need to do this for one of my VBA prog..

Bye.

PS. You need to check if the attribut is visible or not. Or you can add option for the user.

I dont know how to the dynamic attribut is explosed.. If some one car give me a example code. I thanks you..

[arcticad]

to answer the second question. No, you would have to create a new block. text can not vary, attributues can vary between the blocks.

[glanard]

Hi,

I know all of this but the main question, in other words, is: from a BlockReference object, is there a way (using VB.NET), to know if this BlockReference is in the Model or Layout1 or Layout2...?

What I did in VBA was to iterate through the layouts and, for each one, create a selectionset of INSERT and then do the rest... this was working but was very very long, probably because of regeneration on each layout change.

++

[glanard]

I found this:

http://forums.autodesk.com/t5/NET/Explode-a-BlockReference-and-convert-it-s-AttributeReferences-to/m...

and will analyze it to see if it can help me.

[arcticad]

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput

Public Class info

    <CommandMethod("info")> _
    Public Shared Sub displaySpace()

        Using db As Database = HostApplicationServices.WorkingDatabase()
            Using tr As Transaction = db.TransactionManager.StartTransaction()
                Dim myDWG As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
                Using lock As DocumentLock = myDWG.LockDocument

                    Dim ed As Editor
                    ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

                    Dim sOptions As New PromptEntityOptions(vbCr & "Select Block: ")
                    sOptions.SetRejectMessage(vbLf & "Invalid Selection: ")
                    sOptions.AddAllowedClass(GetType(BlockReference), False)

                    Dim sRes As PromptEntityResult = Nothing

                    While (True)
                        sRes = ed.GetEntity(sOptions)
                        If Not sRes.Status <> PromptStatus.OK Then
                            Dim ent As Entity = DirectCast(tr.GetObject(sRes.ObjectId, OpenMode.ForRead), Entity)
                            If TypeOf ent Is BlockReference Then
                                Dim ent2 As Object = tr.GetObject(ent.OwnerId, OpenMode.ForRead)
                                If TypeOf ent2 Is BlockTableRecord Then
                                    Dim blref As BlockTableRecord = tr.GetObject(ent2.OBJECTID, OpenMode.ForRead)
                                    Dim layoutObj As Layout = tr.GetObject(blref.LayoutId, OpenMode.ForRead)
                                    MsgBox(layoutObj.LayoutName)
                                End If
                            End If
                        Else
                            Exit While
                        End If
                    End While
                End Using
            End Using
        End Using

    End Sub

End Class

[glanard]

Well, it seems to be very intersting 😉
I Will have a look at this asap.
Thanks.