Macro om tekening in automatisch op te slaan

3D Design Volume Model
1

Hallo

Ik wil een macro maken waarmee ik de tekening van mijn onderdeel kan opslaan

het doel: van het stuk maak ik de lay-out, ik rangschik de weergaven en op dat moment wil ik graag een macro starten

die de tekening opslaat in dezelfde directory als het onderdeel met de naam van de "title" eigenschap van mijn onderdeel en dan tel ik mijn tekening.

Ik heb al een macro geschetst die bijna werkt,

Ik leg het uit: als ik mijn tekening op het scherm heb (niet opgeslagen), start ik mijn macro, het bestand is gemaakt in de juiste map met de juiste, maar de tekening die ik op het scherm heb is nog steeds niet opgeslagen (ik heb een duplicaat, een op effen niet opgeslagen en een gesloten in mijn map)

Ik doe een beroep op uw verlichting, ik ben geen expert, verre van dat.

Ik hoop dat ik duidelijk genoeg was

Bedankt

Hier is mijn macro


macro3.swp
2

Hallo.

 

Nou, in feite doe je een "opslaan als"-functie met je saveas... Misschien moet je in plaats daarvan de save2-functie proberen?

 

IModelDoc2
Dim Silent As Boolean
Dim value As Integer
 
value = instance.Save2(Silent)

 

Je lijkt je eigen soep en je eigen functie te hebben, dus ik laat je het allemaal in de goede richting zetten. 

 

swModel.Save2 "" & pad & "" & "" & theRev & "" & ".slddrw", 0, Waar, Onwaar

1 like