VBA - Open het venster Opslaan als

Hallo 

Hoe zorg ik ervoor dat het venster "opslaan als" automatisch in solidworks verschijnt met een macro (VBA)? 

Dank u voor uw hulp.

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

2 likes

Heel erg bedankt voor je hulp, hoe kan ik de naam van mijn onderdelen, MEP en assemblage opvragen om ze na registratie te sluiten? 

myTitle = mijnModel.GetTitle

swApp.ActivateDoc2 myTitle, True, 0

swApp.QuitDoc myTitle

Ik heb dit geprobeerd, maar het werkt niet. Ik kan ook het commando niet vinden om mijn assemblage gewoon op te slaan.

1 like

Deze vraag valt een beetje buiten het bestek van de eerste vraag.

Waarom stel je niet nog een vraag, het zorgt voor meer zichtbaarheid, en als sommige mensen dezelfde vraag stellen, zullen ze het antwoord gemakkelijker vinden!

1 like

Hallo 

Ik start dit gesprek opnieuw om erachter te komen of het mogelijk is om hetzelfde commando te gebruiken, om het venster direct in een opgegeven link te openen, het doel zou zijn om de eerste link op te halen die de gebruiker opgeeft voor het eerste deel en niet die van het brondeel voor de te volgen delen! 

 

bool = swmodel. Extension.RunCommand(SwCommands.swCommands_SaveAs, "")

Bedankt voor je hulp!