Ändern des Dateinamens im Fenster "Speichern unter" - VBA-Makro

Hallo

Ich habe beim Surfen im Internet keine Antwort auf mein Problem gefunden, also versuche ich es:

Ich schreibe ein Makro, um die Realisierung meiner Zeichnungen zu vereinfachen. Ich nähere mich dem Ende des Schreibens meines Makros, aber ich habe nur noch einen letzten Schritt, der mir Probleme bereitet: die Aufnahme.

Ich schaffe es, das gespeicherte Fenster mit dem folgenden Code zu bearbeiten:

[syntax=VB] Dimmen swApp als Objekt

Sub main()

swApp = _ setzen

Anwendung.SldWorks

Festlegen von swModel = swApp.ActiveDoc

swModel.Extension.RunCommand swCommands_SaveAs, leer

Ende Sub[/syntax]

 

Aber die Sache ist die, dass dieses gespeicherte Fenster mir einen Dateinamen anbietet, der mir nicht passt. Ich möchte den Namen der standardmäßig vorgeschlagenen Datei entsprechend einer Variablen (RefMiseEnPlan) ändern, die die Informationen in der zuvor eingegebenen Grundkarte abruft. 

Ich habe es geschafft, die Informationen in der Grundkarte abzurufen und in RefMiseEnPlan zu speichern, aber ich konnte den Code zum Ändern des Standardnamens nicht finden, der im Dialogfeld "Speichern unter" angeboten wird, wenn er angezeigt wird  . :mrgreen: :cry:

Vielen Dank im Voraus für Ihre Aufmerksamkeit.


capture.jpg

Hallo

Sie müssen die hier beschriebene SaveAs3-Methode verwenden: http://help.solidworks.com/2016/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDoc2~Save3.html

Ein Beispiel hier: http://help.solidworks.com/2016/english/api/sldworksapi/Save_File_Example_VB.htm

Bis bald.

Eher dies: http://help.solidworks.com/2016/english/api/sldworksapi/SOLIDWORKS.Interop.sldworks~SOLIDWORKS.Interop.sldworks.IModelDocExtension~SaveAs.html

Ansonsten mit Save As 3, was funktioniert (ohne Registrierungsfenster)

Longstatus so lange dimmen

longstatus = swModel.SaveAs3("Vollständiger Pfad + Dateiname mit Erweiterung", 0, 0)

Hallo

Schauen Sie, ob es Ihnen helfen kann.

http://www.lynkoa.com/tutos/import-export-formats-neutres/macro-solidworks-fenêtre-ouvrir

Hallo 

In dem, was Sie mir anbieten, wird das Dialogfeld "Speichern unter" nicht mehr angezeigt, so dass ich nicht mehr auswählen kann, wo ich meine Zeichnung speichere. 

Re 

Ich antwortete zu schnell, ich hatte nicht alle Antworten gesehen.

Für die Methode mit SaveAs3 gefällt es mir nicht so gut, weil das  l registrierte Dialogfenster nicht angezeigt wird, aber danke

Bei den anderen vorgeschlagenen Lösungen werde ich versuchen , sie zum Laufen zu bringen , und ich werde Ihnen Feedback geben 

Nochmals vielen Dank.