Macro om een lijst te noemen van onderdelen die in een plaatwerk zijn gelast

Out of category
1

Hoi allemaal

Ik ben op zoek via een macro om automatisch een eigenschap (in mijn geval de DESCRIPTION variabele) van mijn lijst met gelaste onderdelen in te vullen.

Mijn lijst met gelaste onderdelen bestaat uit het hoofd- en insteekplaatwerk uit een bibliotheekfunctie

 

Ik heb gevonden hoe ik de variabelenaam in elk te lassen onderdeel kan toevoegen, maar ik weet niet hoe ik de informatie uit de ontwerpbibliotheken kan ophalen.

In de bibliotheek is er een eigenschap DESCRIPTION in elke configuratie. Is het herstelbaar?

Of de naam van de bibliotheekconfiguratie.

Ik voeg mijn macro, mijn bibliotheekstuk en het SW-bestand toe

 

Bij voorbaat dank voor uw hulp

 

Cdlt

 

Yannick

 

 

 


cutlist.zip
2

Hallo
Ik weet niet hoe ik de beschrijving van de onderdelen automatisch uit de bibliotheek kan importeren.
Aan de andere kant kan het per macro worden gedaan:
- Doorloop de functies om elk bibliotheekstuk te vinden
- Pak het bestandspad en de naam van de ingevoegde configuratie uit
- Open het bestand om de beschrijving te vinden die overeenkomt met de configuratie
- Zoek het gelaste deel dat overeenkomt met de functie
- schrijf de beschrijving in het gelaste deel 

1 like
3

Bedankt voor de feedback  Jerome

 

Helaas heb ik de vaardigheden niet.

Ik ben begonnen met de macro, maar ik zit al vast met het extraheren van de naam van de bibliotheek. 

 

 

Sub recherche_fonction_biblio()

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


       Stel swApp = Toepassing.SldWorks in
       Stel swModel = swApp.ActiveDoc in
       Stel swFeat in = swModel.FirstFeature

       Doen terwijl niet swFeat is niets
           Als swFeat.GetTypeName2() = "Krimpmoer,Staal" Dan
               
               swSubFeat. (Pad  en   naam)
        
       Einde als
               
       Strik
Einde Sub

4

Een klein trucje, het toevoegen van debug.print om te zien hoe het eruit ziet terwijl het gaat, het helpt veel om te debuggen.

debug.print swFeat.GetTypeName2()

En je ziet alle waarden geparadeerd en of je je lus binnenkomt of niet.

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