Makro do automatycznego zapisywania rysunku

3D Design Volume Model
1

Witam

Chcę utworzyć makro, które pozwoli mi zapisać rysunek mojej części

cel: z utworu tworzę jego układ, układam widoki i w tym czasie chciałbym uruchomić Makro

który zapisuje rysunek w tym samym katalogu co część o nazwie właściwości "title" mojej części, a następnie zliczam mój rysunek.

Naszkicowałem już makro, które prawie działa,

Wyjaśniam: kiedy mam swój rysunek na ekranie (nie zapisany), uruchamiam makro, plik jest tworzony w odpowiednim katalogu z właściwym, ale rysunek, który mam na ekranie, nadal nie jest zapisany (mam duplikat, jeden na bryle nie zapisany i jeden zamknięty w moim katalogu)

Odwołuję się do waszego oświecenia, nie jestem ekspertem, daleko mi do tego.

Mam nadzieję, że wyraziłem się wystarczająco jasno

Dziękuję

Oto moje makro


makro3.swp
2

Witam.

 

Cóż, w rzeczywistości wykonujesz funkcję "zapisz jako" za pomocą swoich saveas... Może zamiast tego powinieneś wypróbować funkcję save2?

 

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

 

Wygląda na to, że masz swoją własną zupę i swoją własną funkcję, więc pozwolę ci skierować to wszystko we właściwym kierunku. 

 

swModel.Save2 "" & ścieżka & "" & "" & "" & theRev & "" & ".slddrw", 0, Prawda, Fałsz

1 polubienie