Macro via Excel voor het opslaan van STEP-bestanden met naamkeuze

Macro
1

Hoi allemaal

Ik heb veel werk gedaan op het forum en ik kan geen antwoord op mijn vraag vinden.

Dus via een Excel-werkmap wil ik 2 dimensies van een SolidWorks-onderdeel beheren en het vervolgens in STEP-formaat opslaan in een vooraf gedefinieerde bestemmingsmap.

Aan de andere kant wil ik mijn deel in STEP kunnen opslaan door het de naam te kunnen geven die ik wil of indien mogelijk het veld van een Excel-cel te nemen om het een naam te geven.

Dit is de code die ik gebruik:

Sub Bouton1_QuandClic()

Stel swApp = CreateObject("SldWorks.Application") in
Deel instellen = swApp.ActiveDoc
Deel.Parameter("H@Esquisse1"). SystemValue = Bereik("C3"). Waarde / 1000
Deel.ClearSelection
Deel.ForceHerbouwen
Deel.Parameter("L@Esquisse1"). SystemValue = Bereik("C4"). Waarde / 1000
Deel.ClearSelection
Deel.ForceHerbouwen

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

Einde Sub

Bij voorbaat dank voor uw hulp
Vriendelijke groeten
Ludovic

2

Hallo @Bec2 ,

Een voorstel dat zo eenvoudig mogelijk gaat: plaats het pad en de naam van het bestand in een Excel-cel (C5) en pas deze aan in de code met de naam van de actieve configuratie...
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

Vriendelijke groeten.

3 likes