Makro über Excel zum Speichern von STEP-Dateien mit Namenswahl

Macro
1

Hallo ihr alle

Ich habe viel Arbeit in das Forum gesteckt und kann keine Antwort auf meine Frage finden.

Also möchte ich über eine Excel-Arbeitsmappe 2 Dimensionen eines SolidWorks Teils verwalten und es dann im STEP-Format in einem vordefinierten Zielordner speichern.

Auf der anderen Seite möchte ich in der Lage sein, mein Teil in STEP zu speichern, indem ich ihm den gewünschten Namen geben oder wenn möglich das Feld einer Excel-Zelle nehmen kann, um es zu benennen.

Hier ist der Code, den ich verwende:

Unternummer Bouton1_QuandClic()

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.Parameter("H@Esquisse1"). SystemValue = Bereich("C3"). Wert / 1000
Part.ClearSelection
Teil.ForceRebuild
Part.Parameter("L@Esquisse1"). SystemValue = Bereich("C4"). Wert / 1000
Part.ClearSelection
Teil.ForceRebuild

' Speichern unter
longstatus = Part.SaveAs3("C:\Benutzer\bectarlu\OneDrive - CAMFIL AB\Desktop\Room Family\STEP_" & ActiveConfiguration & ". SCHRITT", 0, 2)

Ende Sub

Vielen Dank im Voraus für Ihre Hilfe
Herzliche Grüße
Ludovic

2

Hallo @Bec2 ,

Ein Vorschlag, der so einfach wie möglich ist: Platzieren Sie den Pfad und den Namen der Datei in einer Excel-Zelle (C5) und passen Sie sie im Code mit dem Namen der aktiven Konfiguration an...
image

Option Explicit

Sub Bt1Clic()

Dim swApp      As Object
Dim Part       As Object
Dim longStatus As Long
Dim stepName   As String
    
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
    Part.Parameter("H@Esquisse1").SystemValue = Range("C3").Value / 1000
    Part.Parameter("L@Esquisse1").SystemValue = Range("C4").Value / 1000
    Part.ClearSelection
    Part.ForceRebuild
    
        ' Save As Step
    stepName = Range("C5") & Part.getActiveConfiguration.Name & ".STEP"
    longStatus = Part.SaveAs3(stepName, 0, 2)

End Sub

Herzliche Grüße.

3 „Gefällt mir“