Zmiana nazwy pliku w oknie zapisanym w oknie - makra vba

Witam

Nie znalazłem odpowiedzi na mój problem podczas surfowania po sieci, więc idę po to:

Piszę makro, aby uprościć realizację moich rysunków. Zbliżam się do końca pisania mojego makra, ale pozostał mi jeszcze tylko jeden ostatni krok, który sprawia mi problemy: nagrywanie.

Udaje mi się uruchomić zapisane okno za pomocą następującego kodu:

[składnia=VB]Dim swApp As Object

Sub main()

Ustaw swApp = _

Aplikacja.SldWorks

Ustaw swModel = swApp.ActiveDoc

swModel.Extension.RunCommand swCommands_SaveAs, Pusty

Koniec pod[/składnia]

 

Ale chodzi o to, że to zapisane pod oknem oferuje mi nazwę pliku, która mi nie odpowiada. Chciałbym zmienić nazwę pliku proponowaną domyślnie zgodnie ze zmienną (RefMiseEnPlan), która pobiera informacje znajdujące się na wcześniej wprowadzonej mapie bazowej. 

Udało mi się odzyskać informacje znajdujące się na mapie bazowej i zapisać je w RefMiseEnPlan, ale nie mogłem znaleźć kodu umożliwiającego zmianę domyślnej nazwy oferowanej w oknie dialogowym zapisanym, gdy się pojawi   :cry: :mrgreen:.

Z góry dziękuję państwu za uwagę.


capture.jpg

Witam

Musisz użyć metody SaveAs3 opisanej tutaj: http://help.solidworks.com/2016/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDoc2~Save3.html

Przykład tutaj: http://help.solidworks.com/2016/english/api/sldworksapi/Save_File_Example_VB.htm

Do zobaczenia.

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

W przeciwnym razie z Save As 3, który działa (bez okna rejestracji)

Dim longstatus as long

longstatus = swModel.SaveAs3("Pełna ścieżka + nazwa pliku z rozszerzeniem", 0, 0)

Witam

Sprawdź, czy to może ci pomóc.

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

Witam 

W tym, co mi oferujesz, okno dialogowe zapisane w oknie dialogowym nie jest już wyświetlane, więc nie mogę już wybrać, gdzie zapisać rysunek. 

Ponownie 

Odpowiedziałem zbyt szybko, nie widziałem wszystkich odpowiedzi.

W przypadku metody z SaveAs3 nie podoba mi się to zbytnio, ponieważ okno dialogowe l zarejestrowane w nie pojawia się, ale dzięki

W przypadku pozostałych zaproponowanych rozwiązań postaram  się , aby działały i przekażę Państwu informacje zwrotne

Jeszcze raz dziękuję.