Macro "Enregistrer sous" d'un fichier .slddrw en utilisant le nom de la configuration active

2D plans Layout
1

Bonjour à tous,

Je travaille dans une boite du secteur médical qui utilise SolidWorks 2018. Nous devons régulièrement passer des centaines de plans protos en plans "client". J'ai réussi à trouver des macros pour effectuer la plupart des opérations. Il me reste à en trouver une dernière qui permettrait de renommer les plans .slddrw par le nom de la configuration active sur chaque plan. Pour simplifier l'opération, il faudrait une macro capable de faire l'opération suivante avec un plan déjà enregistré et ouvert  :

- "Enregistrer sous" en utilisant le nom de la configuration active sur chaque plan 

Après de nombreuses recherches sur différents forums je n'ai malheureusement pas trouvé de cas similaire, c'est pourquoi je me permets d'ouvrir ce sujet.

Merci d'avance,

Daniel

2

Bonjour,

Le code ci-dessous permet de sauvegarder le plan avec un nom de fichier correspondant au nom de la configuration de la dernière vue analysée sur ce plan.

Cordialement,

Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim nameDrw As String

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    
    Set swView = swDraw.IGetFirstView

    Do While Not swView Is Nothing
        nameDrw = swView.ReferencedConfiguration
        Set swView = swView.GetNextView
    Loop

    swModel.SaveAs nameDrw & ".slddrw"
    
End Sub
1 « J'aime »
3

Génial, merci beaucoup pour cette réponse rapide ! Je teste ça demain matin.