| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| 3DEXPERIENCE Conference 2024 | München, eine Veranstaltung am 16.10.2024
|
Autor
|
Thema: Speichern unter Dialog öffnen VBA (3003 / mal gelesen)
|
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 24. Aug. 2016 13:52 <-- editieren / zitieren --> Unities abgeben:
Guten Tag alle miteinander, nach mehrstündigem Suchen habe ich leider nichts gefunden und benötige deshalb eure Hilfe Wie kann ich in Solidworks VBA ein Speichern Unter Fenster öffnen lassen und den gefwählten Pfad samt Dateiname als String zurückgeben lassen? Danke im voraus für jede Art von Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2580 Registriert: 02.10.2006 Firma: SW 2024-3.1 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 24. Aug. 2016 19:50 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
Hallo, typische Routine am Anfang eines Makros könnte so aussehen.
Code:
Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim longstatus As Long Dim longwarnings As Long Dim Filename As String Set swApp = Application.SldWorks Set swModel = swApp.ActiveDocIf swApp.ActiveDoc.GetPathName = "" Then swModel.Save3 swSaveAsOptions_Copy, longstatus, longwarnings End End If Filename = swModel.GetPathName
Andere Speichervarianten habe ich hier beschrieben. http://ww3.cad.de/foren/ubb/Forum2/HTML/028920.shtml#000001 Grüße, Andi ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 817 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 25. Aug. 2016 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für wemasb
Hallo Steven Falls es dir nur um das Speichern geht und den Pfad nicht weiter benötigst kannst du das mit dem SWX-Speicherndialog machen. Code: Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc swModel.Extension.RunCommand swCommands_SaveAs, Empty End Sub
Wenn du aber den Pfad weiter benötigst, muss du den Dialog mit der Winwos-Api aufrufen. Wie das geht, findest du zum Beispiel hier -> https://forum.solidworks.com/thread/68795 Gruss Andreas
------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 29. Aug. 2016 08:54 <-- editieren / zitieren --> Unities abgeben:
|
wemasb Mitglied Quereinsteiger
Beiträge: 124 Registriert: 10.09.2012 SolidWorks 2018 Office 2010 AutoCAD 2007
|
erstellt am: 29. Aug. 2016 08:56 <-- editieren / zitieren --> Unities abgeben:
|