topic Re: highlight a selection set in .NET Forum

highlight a selection set

stefan.hofer — Tue, 01 Mar 2011 14:57:00 GMT

in vba i can highlight a selectionSet with

sset.Highlight(true)

how can i do this with vb.net? with the same command i get no error or warning, but nothing is highlighted in autocad...

Re: highlight a selection set

arcticad — Tue, 01 Mar 2011 15:15:41 GMT

Using db As Database = HostApplicationServices.WorkingDatabase()
            Using tr As Transaction = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database.TransactionManager.StartTransaction()
                Dim myDWG As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
                Using lock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument
                    Dim ed As Editor = myDWG.Editor
                    Dim getSelectionResult As PromptSelectionResult = ed.GetSelection()
                    If getSelectionResult.Status = PromptStatus.OK Then
                        For i = 0 To getSelectionResult.Value.Count - 1
                            Dim myEnt As Entity = TryCast(tr.GetObject(getSelectionResult.Value(i).ObjectId, OpenMode.ForRead), Entity)
                            myEnt.Highlight() ' or unhighlight
                        Next
                    End If
                End Using
            End Using
        End Using

Re: highlight a selection set

stefan.hofer — Wed, 02 Mar 2011 16:23:35 GMT

Thank you for this example , but i'll not pick items.

I have already a selection set.

The code works, i can try to find a solution myself - pearhaps...

my sset:

        Dim EditArt As String

        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.SelectedItem(i) Then
                EditArt = ListBox1.SelectedItem.ToString()
            End If
        Next i


        Dim acApp As Object, acDoc As Object
        Dim fType(1), fData(1), sset As Object
        acApp = GetObject(, "autocad.application")
        acDoc = acApp.ActiveDocument

        On Error Resume Next
        sset = acDoc.SelectionSets.Add("h1")

        fType(0) = 0 : fData(0) = "INSERT"
        fType(1) = 2 'DXF-GroupCode
        fData(1) = EditArt 'Name
        'Select Blocks
        sset.Select(acSelectionSetAll, , , fType, fData)

Re: highlight a selection set

arcticad — Wed, 02 Mar 2011 20:17:29 GMT

hint: Take each item in your selection set and convert it to an entity.

Re: highlight a selection set

norman.yuan — Wed, 02 Mar 2011 21:04:58 GMT

The OP uses COM API, so the items in the selection set is already entity (AcadEntity, not Autodesk.AutoCAD.DatabaseServices.Entity). He cannot use your code sample.

To the OP.

Are you doing in stand-alone exe that automates AutoCAD?

Since you use COM API, you can do the same as you do in VBA:

AcadSelectionSet.Highlight True[False]

Re: highlight a selection set

stefan.hofer — Thu, 03 Mar 2011 07:47:34 GMT

I'm using a palette in autocad, not a exe.
in my selectionset are autocad blocks (all blocks with the same name)
And i try to Highlight all blocks with the same name (Blockname selected in a ListBox)

sset.Highlight(True) dont work.

vba example attached. (screenshot)

Re: highlight a selection set

Anonymous — Thu, 03 Mar 2011 15:29:30 GMT

Call sset.Application.Update() after sset.Highlight(True)

-drg

Re: highlight a selection set

norman.yuan — Thu, 03 Mar 2011 16:06:52 GMT

Dan's reply would get it to work (but I did not try), although the call to AcadApplication.Update in VBA is not needed. This, I guess, is because of your code calling the COM API from the .NET API, the extra layer of communication.

Surely, one can use COM API in the managed API, when necessary. But why you do you have to use COM API for the operation that managed API can do it perfectly in the first place?

Re: highlight a selection set

Anonymous — Fri, 04 Mar 2011 03:38:29 GMT

The behavior the OP asks about is strange; I hadn't even tried it in .Net until now. I _don't_ need the AcadApplication.Update() in .Net, whether in app context or doc context.

The only circumstance in which I needed it was when running out-of-process. I was originally testing with python; I needed it out-of-process under all circumstances. Never in-process, with python embedded via arx.

So...I can't replicate the behavior at all. If what's been posted so far doesn't help, s.hover, please post more code.

-drg

Re: highlight a selection set

stefan.hofer — Fri, 04 Mar 2011 07:30:19 GMT

whooo i found the wrong code, the problem was not the highlight.

sset.Select(AcSelect.acSelectionSetAll, , , fType, fData)

AcSelect

ty for your time.

this sub works:

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim acApp As Object, acDoc As Object
        Dim fType(1) As Short
        Dim fData(1) As Object
        Dim sset As AcadSelectionSet
        acApp = GetObject(, "autocad.application")
        acDoc = acApp.ActiveDocument

        Dim EditArt As String
        EditArt = ListBox1.SelectedItem.ToString()

        'On Error Resume Next
        sset = acDoc.SelectionSets.Add("h1")

        'Block-Filter setzen
        fType(0) = 0 : fData(0) = "INSERT"
        fType(1) = 2 'DXF-GroupCode
        fData(1) = EditArt 'Name
        'Select Blocks
        sset.Select(AcSelect.acSelectionSetAll, , , fType, fData)

        'Highlight my SelectionSet
        sset.Highlight(True)

        acDoc.SelectionSets.Item("h1").Delete()
        Label4.Text = EditArt
        acDoc.SendCommand("_.PSPACE" & vbCr)
    End Sub

Re: highlight a selection set

mucip — Thu, 21 Jan 2021 22:13:40 GMT

Hi @Anonymous ,

Call Application.Update

worked like a charm for me. Thanks.

Regards,

Mucip:)