Hallo:)
Ich bin auf der Suche nach einer Funktion, die es mir ermöglicht, nur "meine Funktion" und nicht die untergeordneten Funktionen zu löschen.
Anfahrt 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
Also habe ich es unter einer Bedingung verwendet
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
Das alles funktioniert sehr gut, aber:
Er entfernte die Funktion, wobei das Kontrollkästchen aktiviert war.
Haben Sie eine entsprechende Funktion?
Oder wissen Sie, ob ich eine Variable ändern muss??