Opslaan als vba automaat

Hallo

Ik ben momenteel bezig met het ontwikkelen van een macro om een assemblage te genereren uit de afmetingen van een enkel onderdeel. Ik heb echter een probleem bij het opslaan van de gewijzigde onderdelen omdat ik dit automatisch met een macro wil doen. Deze onderdelen, samenstellingen en tekeningen worden opgeslagen in een door de gebruiker opgegeven map op een UserForm met een index op hun naam.

Assemblages, onderdelen en hun tekeningen volgen met de juiste onderdelen omdat ze dezelfde naam hebben. Met mijn code volgen de onderdelen echter niet in de assemblage omdat het de oude herstelt. Het principe van mijn code is om de assemblage te openen, op te slaan als, op te slaan onder elk gewijzigd onderdeel en hun tekening één voor één. Is er een andere manier om mijn code of codering uit te voeren om de juiste onderdelen uit de assemblage te halen nadat ik ze heb opgeslagen? (Ik dacht erover om onderdelen te vervangen, maar ik krijg de code niet aan de praat).

Anders zou het gemakkelijker zijn om het venster Opslaan als in solidworks te openen, zodat de gebruiker elke keer de locatie van een onderdeel en de naam ervan opgeeft. Maar ik ken het VBA-commando niet! 

Bedankt voor je hulp, mijn macro is voorzien!     


macro36.swp

Hallo

Hier is de methode om te gebruiken:

http://help.solidworks.com/2012/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs.html

Zie ook het gebruik van "swModdoc.SaveAs (CommonDialog1.FileName)" in deze macro:

https://forum.solidworks.com/thread/53968

Of hier:

https://forum.solidworks.com/message/249307#249307

En hier  ModelDocExtension::SaveAs:

http://help.solidworks.com/2013/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs.html

 

1 like