Macro solidworks - Entfernen mehrerer Bleche

Macro
1

Hallo

Ich versuche, mehrere Blätter auf einmal zu löschen. Dazu möchte ich mehrere Blätter auswählen und dann die Löschfunktion ausführen.

Das Problem ist, dass ich nicht mehrere Blätter auswählen kann.

Irgendeine Idee, wie man dorthin kommt?

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

Sie sollten False in True ändern in:

bRet = swModel.Extension.SelectByID2(Blattname, "BLATT", 0, 0, 0, Wahr, 0, Nichts, 0)

Herzliche Grüße

2 „Gefällt mir“
3

Es ist so einfach, wenn Sie die Antwort haben...

Vielen Dank @d.roger 

1 „Gefällt mir“