Speichern als Makro einer .slddrw-Datei unter Verwendung des Namens der aktiven Konfiguration

2D plans Layout
1

Hallo ihr alle

Ich arbeite in einem Unternehmen im medizinischen Bereich, das SolidWorks 2018 einsetzt. Wir müssen regelmäßig von Hunderten von Prototyp-Plänen zu "Kunden"-Plänen übergehen. Es ist mir gelungen, Makros zu finden, um die meisten Operationen auszuführen. Ich muss noch einen letzten finden, der es mir ermöglicht, die .slddrw-Pläne nach dem Namen der aktiven Konfiguration in jedem Plan umzubenennen. Um den Vorgang zu vereinfachen, benötigen Sie ein Makro, das in der Lage ist, die folgende Operation mit einem bereits gespeicherten und geöffneten Plan auszuführen:

- "Speichern unter" mit dem Namen der aktiven Konfiguration in jedem Plan 

Nach vielen Recherchen in verschiedenen Foren habe ich leider keinen ähnlichen Fall gefunden, weshalb ich mir erlaube, dieses Thema zu eröffnen.

Danke im Voraus,

Daniel

2

Hallo

Mit dem folgenden Code können Sie den Plan mit einem Dateinamen speichern, der dem Namen der Konfiguration der letzten Analyse in diesem Plan entspricht.

Herzliche Grüße

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 „Gefällt mir“
3

Super, vielen Dank für diese schnelle Antwort! Ich werde es morgen früh testen.