How to "select" an selection set
There was a very similar topic discussed recently, the code sample provided in that discussion could be what you need with minor modification:
HTH
Base on my understanding of your original question, what you asked is, ONCE you have an AcadSelectionSet built, then you want all the entities in the SelectionSet highlighted AS IF they are selected by user, so that user can either issue a command against them, or use Property window to modify them. Am I correct on this? If yes, then the focus to my code from the other post for you is the LAST line:
ThisDrawing.SendCommand "SELECT" & vbCr & "P" & vbCr & vbCr
That is, it does not matter how you create a Selection set, using filter or not. SelectAll or not. Just build one in whatever code suitable to you.
For example, you can loop through all entities in ModelSpace to find certain entities and add them into a selectionset, something like this way:
Public Sub SelectSomethin()
Dim ss As AcadSelectionSet
Set ss=BuildSelectionSet()
If ss.Count>0 Then
ThisDrawing.SendCommand "SELECT" & vbCr & & "P" & vbCr & vbCr
Else
Msgbox "No entity selected!"
End If
End Sub
Private Function BuildSelectionSet() As AcadSelectionSet
Dim ent As AcadEntity
Dim ents() As AcadEntity
Dim i As Integer
Dim ss As AcadSelectionSet
On Error Resume Next
Set ss=ThisDrawing.SelectionSets("MySet")
If ss Is Nothing Then
Set ss=ThisDrawing.SelectionSet.Add("MySet")
Else
ss.Cear
End If
For Each ent In ThisDrawing.ModelSpace
If IsMyTarget(ent) Then
ReDim Preserve ents(i)
Set ents(i)=ent
i=i+1
End If
Next
If i>0 Then
ss.AddItem ents
End If
Set BuildSelectionSet = ss
End Sub
Private Function IsMyTarget(ent As AcadEntity) As Boolean
'' Use whatever logic to determine whether this entity show be
'' added into the SelectionSet or not
...
Is MyTarget=True/False
End Function
Ah, I now see where the problem is: it looks like, AutoCAD only register "Previous" selection set when AcadSelectionSet.Select()/SelectXXXX() method is called and only remember the entities selected by the method call. entities added/removed via code does not reflect in the "Previous" selection set.
So, it looks like you need to come up with very fine-tuned selection filters to call on Select() method. Unfortunately for your case, if the blocks you are trying to select are dynamic ones, you probably cannot apply block name filter, thus very difficult to select with Select(acSelectionSetAll, filters, filterValues...) method.
Another way to do it might be a bit simpler. Here is the psuedo logic:
1. Loop through all entities to identify the target ones.
2. For each target entity, attach XData with given XData application name
3. Define selection set filter to select entities with XData application name
4. Create SelectionSet and call Select() to select all entities with the XData application name filter. At this point, AutoCAD register the SelectionSet as "Previous"
5. Remove the XData attached to those entities
6. Delete the selectionset, if desired
7. Now it is ready to call SendCommand "Select" & vbCr & "P" & ....
If anyone wonders how the steps I suggested here would work or not, see this latest discussion on the same topic and my code solution.
