Again on Selection Set

[PeterPan9720]

Pls somebody knows if is there a limits in the number of objects selectable from the below code ?

If I reach a quote of more than 14600 is there any know limits ? later I have to modify the layer of each !.

 

Thanks

 

ThisDrawing.SelectionSets.Add ("BOM1")
   Set Ssnew1 = ThisDrawing.SelectionSets("BOM1")
   Ssnew1.Select acSelectionSetAll 

For Each Entity1 In Ssnew1
   On Error Resume Next
   If Entity1.Layer = MyNome(i - 1) Then
       If Entity1.Layer <> "0" Then
           Entity1.Layer = MyNome(i) 'array containing the list of array.
           Debug.Print Entity1.Layer, Conteggio
           Conteggio = Conteggio + 1
       End If
   End If
Next

[rocheey]

Of the code I see, id say the max items you'd be able to select, would be NONE. I dont see any variables typed: are they all Variants? I dont see where the variable "i" is referenced, so it would be set to a value of zero, so then "MyNome(i - 1)" returns an array index of -1 ... that would error out.

 

also, you keep setting an error trap "On Error Resume Next" in your loop, without having the mating end of the trap (On Error Goto 0). That could give you trouble in large selection sets.

[PeterPan9720]

Thank you for your support,

The code is working well, even if it's not well commented or all variable are not defined, the main problem was concern the max num of item selectable by selection set function.

 

If you are sure about that there are no limits, I'll investigate more iside the code.

 

Regards.