How to keep selectset contain ?

[TONELLAL]

Hello,

I trying to create a macro modifying several DesignViews :

-select parts to hide in several views

-for all unlocked views, hide selected parts

Here's the basic code :

Sub modif_vues()

Dim oDoc As AssemblyDocument
Dim oViews As DesignViewRepresentations
Dim oView As DesignViewRepresentation
Dim oSelectSet As SelectSet
Dim oObj As Object

Set oDoc = ThisApplication.ActiveDocument
Set oViews = oDoc.ComponentDefinition.RepresentationsManager.DesignViewRepresentations

Set oSelectSet = oDoc.SelectSet
For Each oView In oViews
    If oView.Locked = False Then
        Call oView.Activate
        For Each oObj In oSelectSet
                oObj.Visible = False
        Next oObj
    End If
Next oView

End Sub

The problem is when the code evaluate the red line, oSelectset is cleared... Where is the problem ?

[JelteDeJong]

hi the problem is not the red line but the line before that. when you switch from DesignView your selection gets undone. what you can do is save the selection list in a new list. Then use that list to loop over the selection. something like this:

Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oViews As DesignViewRepresentations = oDoc.ComponentDefinition.RepresentationsManager.DesignViewRepresentations
Dim oSelectSet As SelectSet = oDoc.SelectSet
Dim inVisableList As List(Of Object) = New List(Of Object)()
For Each item As Object In oSelectSet
    inVisableList.Add(item)
Next

For Each oView As DesignViewRepresentation In oViews
    If oView.Locked = False Then
        oView.Activate()

        For Each oObj As Object In inVisableList
            oObj.Visible = False
        Next oObj
    End If
Next oView

[TONELLAL]

Hi,

Your solution is ok, but in my code the selection set is saved in oSelectSet, precisely to keep it when the current selection set is cleared... So, why oSelectSet, which is supposed to be independent from oDoc.selectSet, is cleared too ? It seems oDoc.selectSet and oSelectset have the same reference.

[JelteDeJong]

the variable "oSelectSet" contains a refrence to the object "oDoc.SelectSet". That object contains refrences to all objects that you selected but can change (for example when you switch DesignView)  I this case its importend to see that the refrence is to the object that contains refrences to the selected object. What you need is refrences to the selected objects. That is what i did in my code. I made explicit refrences to the selected objects.