Zapisz jako makro pliku .slddrw przy użyciu nazwy aktywnej konfiguracji

2D plans Layout
1

Cze wszystkim

Pracuję w firmie z branży medycznej, która korzysta z SolidWorks 2018. Regularnie musimy przechodzić od setek prototypowych planów do planów "klienta". Udało mi się znaleźć makra do wykonania większości operacji. Muszę jeszcze znaleźć ostatni , który pozwoliłby mi zmienić nazwę planów .slddrw na nazwę aktywnej konfiguracji w każdym planie. Aby uprościć operację, potrzebujesz makra zdolnego do wykonania następującej operacji z już zapisanym i otwartym planem:

- "Zapisz jako" przy użyciu nazwy aktywnej konfiguracji w każdym planie 

Po wielu poszukiwaniach na różnych forach niestety nie znalazłem podobnego przypadku, dlatego pozwalam sobie otworzyć ten temat.

Z góry dzięki,

Daniel

2

Witam

Poniższy kod pozwala na zapisanie planu z nazwą pliku odpowiadającą nazwie konfiguracji ostatniego analizowanego widoku na tym planie.

Pozdrowienia

Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim nameDrw As String

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    
    Set swView = swDraw.IGetFirstView

    Do While Not swView Is Nothing
        nameDrw = swView.ReferencedConfiguration
        Set swView = swView.GetNextView
    Loop

    swModel.SaveAs nameDrw & ".slddrw"
    
End Sub
1 polubienie
3

Świetnie, bardzo dziękuję za tę szybką odpowiedź! Przetestuję to jutro rano.