---

Moin zusammen,

ich mache gerade meine ersten Gehversuche mit VBA in Solidworks. Mein mittelfristiges Ziel ist es, per Excel-VBA (hier habe ich bereits etwas Erfahrung) eine SWX-Datei zu öffnen und zu verändern.
Aktuell scheitere ich allerdings an den Basics der SWX-API. Ich bekomme zwar mein Modell geöffnet, kann auch den Wert eines Maßes auslesen, bekomme es aber nicht verändert. Das zweite Debug.Print spuckt zwar den veränderten Wert aus, aber das Modell selber wird nicht geändert.
Hier mein Probier-Code fürs Maß ändern, den ich aktuell aus Online-Beispielen zusammen gebastelt habe:

Sub Mass_aendern_Test()
    Dim swApp As Object
    Dim swDim As Object
    Dim mass As Double
    Dim errors As Long   
    Dim swModel As Object
   
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    If swModel Is Nothing Then Exit Sub
   
    Set swDim = swModel.Parameter("D1@Skizze1")
    Debug.Print ("Wert vorher: " & swDim.Value)
    If swDim Is Nothing Then Exit Sub
   
    mass = 0.007
    errors = swDim.SetSystemValue3(mass, swSetValueInConfiguration_e.swSetValue_InAllConfigurations, Empty)   
    Debug.Print ("Wert nachher: " & swDim.Value)
   
    swModel.EditRebuild3   
End Sub

Kann mir hier vielleicht jemand einen Tipp geben, wie ich die API anzuwenden habe, damit sich das SWX-Teil tatsächlich ändert?
Vielen Dank im Voraus!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

versuche es mal so:

Dim swApp As Object

Sub main()

Set swApp = Application.SldWorks

Dim swModel As Object
Set swModel = swApp.ActiveDoc

Dim swDim As Object

Dim dim_name As String
Dim feature As String
Dim mass As Double

dim_name = "D1"
feature = "Skizze1"
mass = 33

Set swDim = swModel.Parameter(dim_name & "@" & feature)
On Error Resume Next
swDim.SystemValue = mass / 1000

End Sub

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Leider nein.
debug.Print swdim.value spuckt zwar den neuen Wert aus, im Solidworks bleibt das Maß aber unverändert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hoppla, Kommando zurück, geht doch! Hatte nicht gesehen, dass in Deinem Code kein Neuaufbau war.
Vielen Dank!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP