Wijzig de bestandsnaam in het opgeslagen onder-venster - vba macro

3D Design Volume Model
1

Hallo

Ik heb geen antwoord gevonden op mijn probleem tijdens het surfen op het web, dus ik ga ervoor:

Ik schrijf een macro om de realisatie van mijn tekeningen te vereenvoudigen. Ik kom aan het einde van het schrijven van mijn macro, maar ik heb nog maar één laatste stap die me problemen bezorgt: opnemen.

Het lukt me om het opgeslagen venster te bewerken met de volgende code:

[syntaxis=VB]Dim swApp als object

Sub hoofd()

Stel swApp in = _

Toepassing.SldWorks

Stel swModel = swApp.ActiveDoc in

swModel.Extension.RunCommand swCommands_SaveAs, leeg

Einde Sub[/syntaxis]

 

Maar het punt is dat dit ondergeslaatvenster me een bestandsnaam biedt die niet bij me past. Ik wil de naam van het standaard voorgestelde bestand wijzigen volgens een variabele (RefMiseEnPlan) die de informatie ophaalt die zich in de eerder ingevoerde basiskaart bevindt. 

Ik ben erin geslaagd om de informatie in de basiskaart op te halen en op te slaan in RefMiseEnPlan, maar ik kon de code niet vinden om de standaardnaam te wijzigen die wordt aangeboden in het dialoogvenster voor opgeslagen onder wanneer deze verschijnt  . :mrgreen: :cry:

Bij voorbaat dank voor uw aandacht.


capture.jpg
2

Hallo

U moet de hier beschreven SaveAs3-methode gebruiken: http://help.solidworks.com/2016/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDoc2~Save3.html

Een voorbeeld hierbij: http://help.solidworks.com/2016/english/api/sldworksapi/Save_File_Example_VB.htm

Tot ziens.

3

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

Anders met Opslaan als 3 die werkt (zonder registratievenster)

Dim longstatus zo lang

longstatus = swModel.SaveAs3("Volledig pad + bestandsnaam met extensie", 0, 0)

4

Hallo

Kijk of het je kan helpen.

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

5

Hallo 

In wat u mij aanbiedt wordt het dialoogvenster Opgeslagen onder niet meer weergegeven, dus ik kan niet meer kiezen waar ik mijn tekening opsla. 

6

Re 

Ik antwoordde te snel, ik had niet alle antwoorden gezien.

Voor de methode met SaveAs3 vind ik het niet zo leuk omdat het l geregistreerd-onder dialoogvenster niet verschijnt, maar bedankt

Voor de andere voorgestelde oplossingen zal ik proberen ze te laten werken en zal ik u feedback geven 

Nogmaals bedankt.