Boucle For Each

[PhilBat]

Bonjour

dans une boucle For Each

je teste le nom des blocs sélectionnés

Est-il possible d'avoir accès à différente position dans une "idArray"

je voudrais en faite tester deux noms de blocs qui se suivent dans la variable idarray (par exemple)

 

Dim filList(0) As TypedValue
filList.SetValue(New TypedValue(DxfCode.Start, "INSERT"), 0)
Dim filter As SelectionFilter = New SelectionFilter(filList)
Dim res As PromptSelectionResult = ed.GetSelection(filter)
Dim acSSet As SelectionSet = res.Value
Dim idArray() As ObjectId = acSSet.GetObjectIds
For Each blkId As ObjectId In idArray
   Dim blkRef As BlockReference = CType(tr.GetObject(blkId, OpenMode.ForRead), BlockReference)
   if blkref.name ="TOTO" then
...
teste du bloc suivant
...
   end if
Next

Comment Faire ?

Merci

Phil

[Maxence DELANNOY]

Il faut remplacer ta boucle For Each par une boucle For classique