Block, attributes and Selection sets

[breton_jean789423]

How can i select (on screen) blocks and get their attribute values with VB.NET?
Thanks,
Jean

['gile']

Hi,

Here's a basic C# sample (you cant convert it to VB here).

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;

namespace GetAttributesSample
{
    public class Commands
    {
        [CommandMethod("Test")]
        public void Test()
        {
            Document doc = AcAp.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            // Build a selection filter
            TypedValue[] filter = { new TypedValue(0, "INSERT"), new TypedValue(66, 1) };
            // Prompt the user for a selection
            PromptSelectionResult psr = ed.GetSelection(new SelectionFilter(filter));
            if (psr.Status != PromptStatus.OK) return;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                // Iterate the selection set
                foreach (ObjectId brId in psr.Value.GetObjectIds())
                {
                    // Open the block reference
                    BlockReference br = (BlockReference)tr.GetObject(brId, OpenMode.ForRead);
                    ed.WriteMessage("\n\nBlock: {0}", br.Name);
                    // Iterate the attribute collection
                    foreach (ObjectId attId in br.AttributeCollection)
                    {
                        // Open the attribute reference
                        AttributeReference att = (AttributeReference)tr.GetObject(attId, OpenMode.ForRead);
                        ed.WriteMessage("\n\t{0} = {1} ", att.Tag, att.TextString);
                    }
                }
                tr.Commit();
            }
        }
    }
}

[fixo]

Here is my very basic example,
just change a block name within the code

       <CommandMethod("DisplayAttributes", "diat", CommandFlags.Modal + CommandFlags.UsePickSet)> _
        Public Sub GetAttributesTest()
            Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor
            Dim attref As AttributeReference = Nothing
            Dim bref As BlockReference = Nothing
            Dim blkname As String = "MYBLOCK" ''   <--- change block name
            Dim attTag As String = String.Empty

            Try

                Dim tr As Transaction = db.TransactionManager.StartTransaction()
                Using tr

                    Dim selres As PromptSelectionResult = Nothing
                    Dim tvs() As TypedValue = New TypedValue() {New TypedValue(0, "insert"), _
                                                                 New TypedValue(66, 1), _
                                                                 New TypedValue(2, "`U*," + blkname)}
                    Dim filt As SelectionFilter = New SelectionFilter(tvs)

                    selres = ed.GetSelection(filt)

                    If selres.Status <> PromptStatus.OK Then
                        Return
                    End If
                    Dim selset As SelectionSet = selres.Value
                    Dim bname As String = String.Empty
                    For Each selobj As SelectedObject In selset
                        Dim sent As Entity = DirectCast(tr.GetObject(selobj.ObjectId, OpenMode.ForRead), Entity)
                        If TypeOf sent Is BlockReference Then
                            Dim obr As BlockReference = DirectCast(sent, BlockReference)
                            If obr.IsDynamicBlock Then
                                Dim dynId As ObjectId = obr.DynamicBlockTableRecord
                                If dynId.IsNull Or dynId.IsErased Then
                                    Continue For
                                End If
                                Dim dynbtr As BlockTableRecord = TryCast(tr.GetObject(dynId, OpenMode.ForRead), BlockTableRecord)
                                If dynbtr IsNot Nothing Then
                                    bname = dynbtr.Name
                                End If
                            Else
                                bname = obr.Name
                            End If
                            If bname = blkname Then


                                For Each attId As ObjectId In obr.AttributeCollection

                                    attref = DirectCast(tr.GetObject(attId, OpenMode.ForRead, False), AttributeReference)

                                    ed.WriteMessage(vbLf + "Block Name:   {0}" + vbLf + "Tag:   {1}" + vbLf + "Value:   {2}", bname, attref.Tag, attref.TextString)
                                  
                                Next

                            End If
                        End If

                    Next
                    tr.Commit()
                End Using
            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

~'J'~

[breton_jean789423]

Thank you very much,
that's exactly what I needed,
Jean