Ik wil een macro maken om de export van onze bestanden naar onze machinewerkplaats te vergemakkelijken, maar ik ondervind enkele problemen die verband houden met mijn gebrek aan "afwezigheid" van kennis op dit gebied.
Dit is wat ik wil doen: 1 - controleer of het een -> onderdeel is dat in orde is
2 - lijst configuraties -> OK (vConfigNameArr = swModel.GetConfigurationNames)
3 - controleer op de aanwezigheid van de configuratie met de naam "MACHINING" -> NEE: daar loop ik vast 3.1 - indien niet een foutmelding "bewerkingsconfiguratie afwezig" of beter een vervolgkeuzelijst met configuraties: -> OK voor het bericht 3.2 - zo ja, geef de "MACHINING"-configuratie weer: -> OK (swModel.ShowConfiguration2 ("MACHINING"))
4 - we dwingen de reconstructie af: -> OK
5.1 - we krijgen het actieve document: -> OK 5.2 - het bestandspad: -> OK 5.3 - we selecteren het coördinatensysteem "MACHINING": -> OK 5.4 - opslaan in IGES-formaat: -> OK
Ik hoop dat je me kunt helpen. Ik bevestig de macro en een getest onderdeel (SW2015)
Probeer iets als dit: (Retourneert Waar als de bewerkingsconfiguratie bestaat)
Functie TestConfigUsinage(SwModel als SldWorks.ModelDoc2) als Booleaanse
configNames = swModel. GetConfigurationNames
voor i = 0 To UBound(configNames)
configName = configNames(i)
if configname = "Machining" dan
retourneer true
end if
next i