Salut,
Je m'excuse par avance de faire un doublon mais je n'arrive pas à retrouver l'endroit du site où j'ai téléchargé cette macro : Pour l'activation des configurations :
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
Et il y a des lignes de code que je ne comprends pas bien :
- Dans le code il y a une variable utilisée "vConfigNameArr" mais je ne conprends pas car elle n'est pas déclarée.
- Je ne comprends pas ces deux déclarations là : Dim sSpecConfigNameArr(0) As String
Dim vSpecConfigNameArr As Variant
De plus ces variables ne sont pas utilisées.
- Pour finir je ne comprends pas : swModel.ForceRebuild3 False ? Pourquoi FALSE svp ?
Je précise que je susi en construction de macro donc je n'ai pas pu tester si elle fonctionne de base.
Merci