Q-besturing

Out of category
1

Hallo

Wanneer ik het Excel-bestand van mijn onderdelenfamilie sluit, wil ik graag dat er een automatische Q-besturing is. Is  het mogelijk. Bij voorbaat dank

2

Hallo

Hier is een VBA-code die ik op het net heb gevonden en die de configuraties in Solidworks valideert, kijk of je deze kunt aanpassen aan Excel. 

Sub main()

    Dim swApp                       As SldWorks.SldWorks
    Dim swModel                     As SldWorks.ModelDoc2
    Dim swConfigMgr                 As SldWorks.ConfigurationManager
    Dim swConfig                    As SldWorks.Configuration
    Dim vConfigName                 As Variant
    Dim sSpecConfigNameArr(0)       As String
    Dim vSpecConfigNameArr          As Variant
    Dim dimValue                    As Variant
    Dim stnameConfig As String
   
    Set swApp = Application.SldWorks
    'on récupére le document actif
    Set swModel = swApp.ActiveDoc
    
    Set swConfigMgr = swModel.ConfigurationManager
    'on récupére la configuration active
    Set swConfig = swConfigMgr.ActiveConfiguration
    'on récupére de nom de la configation active
    stnameConfig = swConfig.Name
    'on récupére le nom de toutes les configurations
    vConfigNameArr = swModel.GetConfigurationNames
    'on boucle
    For Each vConfigName In vConfigNameArr
        'on affiche la configuration
        swModel.ShowConfiguration2 vConfigName
         'on force la reconstruction
        swModel.ForceRebuild3 False
       
    Next vConfigName
        
    'on affiche la configuration active avant le traitement
    swModel.ShowConfiguration2 stnameConfig
    'on force la reconstruction
    swModel.ForceRebuild3 False
    'on sauvegarde le document
    swModel.Save3 swSaveAsOptions_e.swSaveAsOptions_Silent, 0, 0
    
End Sub

 

2 likes
3

Hallo

De code gegeven door onze vriend ac cobra 427 lijkt mij een heel goed voorbeeld om aan te passen in een Excel-macro, deze moet worden omgezet in een functie die voor het einde van Excel moet worden aangeroepen, hiervoor zie https://forum.excel-pratique.com/excel/executer-une-macro-a-la-fermeture-de-mon-classeur-t31649.html.

Vriendelijke groeten

1 like