Macro pour nommer une liste de pièces soudées dans une tole

Out of category
1

Bonjour à tous,

Je cherche via une macro a renseigner automatiquement une propriété (dans mon cas la variable DESCRIPTION) de ma liste de pièce soudées.

Ma liste de pièces a soudées est composée de la tôle principale et d'insert provenant d'une fonction de bibliothèque

 

Je trouvé comment ajouter le nom de variable dans chaque article de pièce a souder, par contre je ne sais pas récupérer les informations des bibliothèques de conception.

Dans la bibliothèque, il y a une propriété DESCRIPTION dans chaque Configuration. Est ce récupérable?

Ou bien le nom de la config de la bibliothèque.

je vous joint ma macro, ma pièce de bibliothèque et le fichier SW

 

Merci d'avance de votre aide

 

Cdlt

 

Yannick

 

 

 


cutlist.zip
2

Bonjour,
Je ne sais pas comment importer automatiquement la description des pièces provenant de la bibliothèque.
Par contre ca peut être fait par macro:
- traverser les fonctions pour trouver chaque pièces de bibliothèque
- extraire le chemin du fichier et le nom de la configuration insérée
- ouvrir le fichier pour trouver la description correspondant à la configuration
- trouver la pièce soudée correspondant à la fonction
- écrire la description dans la pièce soudée

1 « J'aime »
3

Merci pour le retour  Jerome

 

Je n ai hélas, pas les compétences.

J'ai commencé la macro, mais je bloque déjà sur l'extraction du nom de la bibliothèque. 

 

 

Sub recherche_fonction_biblio()

       Dim swApp As SldWorks.SldWorks
       Dim swModel As SldWorks.ModelDoc2
       Dim swFeat As SldWorks.feature
       Dim swSubFeat As SldWorks.feature
       


       Set swApp = Application.SldWorks
       Set swModel = swApp.ActiveDoc
       Set swFeat = swModel.FirstFeature

       Do While Not swFeat Is Nothing
           If swFeat.GetTypeName2() = "Ecrou a sertir,acier " Then
               
               swSubFeat. (Path  &   name)
        
       End If
               
       Loop
End Sub

4

Petite astuce ajout des debug.print pour voir ce que cela donne au fur et à mesure cela aide beaucoup pour debbuger.

debug.print swFeat.GetTypeName2()

et tu verra toute les valeurs défilé et si tu entre bien dans ta boucle ou pas.

https://www.developpez.net/forums/d1358915/logiciels/microsoft-office/access/vba-access/explication-debug-print/