Macro solidworks - Verwijderen van meerdere vellen

Macro
1

Hallo

Ik probeer meerdere bladen tegelijk te verwijderen. Om dit te doen, wil ik verschillende bladen selecteren en vervolgens de verwijderfunctie uitvoeren.

Het probleem is dat ik niet meerdere vellen kan selecteren.

Enig idee hoe er te komen?

For i = 0 To UBound(vSheetName)
        sheetName = vSheetName(i)
        Debug.Print "Nom de feuille:" & sheetName
        If sheetName Like "*" & suffix & "*" Then
            Debug.Print "On entre dans la partie suppression"           
            'Supression des feuilles Sym
            bRet = swModel.Extension.SelectByID2(sheetName, "SHEET", 0, 0, 0, False, 0, Nothing, 0)

        End If
Next i
'Suppression des feuilles
bRet = swModel.Extension.DeleteSelection2(0)

 

2

Hallo

U moet de False in True veranderen in:

bRet = swModel.Extension.SelectByID2(SheetName, "SHEET", 0, 0, 0, True, 0, Nothing, 0)

Vriendelijke groeten

2 likes
3

Het is zo simpel als je het antwoord hebt...

Dank je wel @d.roger 

1 like