Pytanie o Part.SelectedFeatureProperties

Out of category
1

boolstatus = Part.Extension.SelectByID2("Usunięto mat.-Extru.4", "BODYFEATURE", 0, 0, 0, False, 0, Nic, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, True , True, "Usunięto mat.-Extru.4")

Witam, chciałbym aktywować lub dezaktywować funkcję w moim pionku, więc gram z Prawdą lub Fałszem 

Ale czy to automatycznie dotyczy wszystkich moich konfiguracji?  

Poszedłem zobaczyć tutaj :http://help.solidworks.com/2017/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.imodeldoc~selectedfeatureproperties.html tutaj 

ale to mi nie pomaga. 

Czy znasz odpowiedź?  

2

Spróbuj tego:

 

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