Makro solidworks - Usuwanie wielu arkuszy

Macro
1

Witam

Próbuję usunąć wiele arkuszy jednocześnie. Aby to zrobić, chciałbym wybrać kilka arkuszy, a następnie uruchomić funkcję usuwania.

Problem polega na tym, że nie mogę wybrać kilku arkuszy.

Masz pomysł, jak się tam dostać?

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

Witam

Należy zmienić wartość False na True w:

bRet = swModel.Extension.SelectByID2(NazwaArkusza, "ARKUSZ", 0, 0, 0, Prawda, 0, Nic, 0)

Pozdrowienia

2 polubienia
3

To takie proste, gdy znasz odpowiedź...

Dziękuję @d.roger 

1 polubienie