Makro za pośrednictwem Excela do zapisywania plików STEP z wyborem nazwy

Macro
1

Cze wszystkim

Wykonałem dużo pracy na forum i nie mogę znaleźć odpowiedzi na moje pytanie.

Tak więc, za pomocą skoroszytu programu Excel chcę zarządzać 2 wymiarami części SolidWorks, a następnie zapisać ją w formacie STEP w predefiniowanym folderze docelowym.

Z drugiej strony chcę mieć możliwość zapisania mojej części w STEP, będąc w stanie nadać mu nazwę, którą chcę, lub, jeśli to możliwe, wziąć pole komórki programu Excel, aby go nazwać.

Oto kod, którego używam:

Sub Bouton1_QuandClic()

Ustaw swApp = CreateObject("SldWorks.Application")
Ustaw część = swApp.ActiveDoc
Part.Parameter("H@Esquisse1"). SystemValue = Zakres("C3"). Wartość / 1000
Part.ClearSelection
Part.ForceRebuild
Part.Parameter("L@Esquisse1"). SystemValue = Zakres("C4"). Wartość / 1000
Part.ClearSelection
Part.ForceRebuild

' Zapisz jako
longstatus = Part.SaveAs3("C:\Users\bectarlu\OneDrive - CAMFIL AB\Desktop\Room Family\STEP_" & ActiveConfiguration & ". KROK", 0, 2)

Koniec subwoofera

Z góry dziękuję za pomoc
Pozdrowienia
Ludwik

2

Witaj @Bec2 ,

Propozycja, która jest tak prosta, jak to tylko możliwe: umieść ścieżkę i nazwę pliku w komórce Excela (C5) i dostosuj ją w kodzie z nazwą aktywnej konfiguracji...
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

Pozdrowienia.

3 polubienia