Hallo:)
Ik ben op zoek naar een functie waarmee ik alleen "mijn functie" kan verwijderen en niet de onderliggende functies.
Aanpak nr. 1)
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
End Sub
Dus ik gebruikte het met een voorwaarde
If (Sheets("BD_Valeur").Range("D154")) = True Then
boolstatus = Part.Extension.SelectByID2((Sheets("BD_Valeur").Range("B154")), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
End If
Dit alles werkt heel goed, maar:
Hij verwijderde de functie met het vakje aangevinkt.
Heeft u een overeenkomstige functie?
Of weet u of ik een variabele moet wijzigen??