Question sur Part.SelectedFeatureProperties

Out of category
1

boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, True, True, "Enlèv. mat.-Extru.4")

Bonjour je voudrait activé ou désactivé une fonction sur ma pièces donc je joue avec le True ou False 

Mais es-que cela s'applique automatiquement à toutes mes configurations  

Je suis aller voir ici :http://help.solidworks.com/2017/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.imodeldoc~selectedfeatureproperties.html ici 

mais cela ne ma pas aider. 

Avez vous la réponse ?? 

2

Essaye ca:

 

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim configNames() As String
Dim configName As Variant
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    configNames = Part.GetConfigurationNames
    For Each configName In configNames
        boolstatus = Part.ShowConfiguration2(configName)
        boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
        boolstatus = Part.EditSuppress2()
        ' ou:
        'boolstatus = Part.EditUnsuppress2()
    Next
End Sub