---

Hallo zusammen,

ich habe einen Problem. Wenn ich eine ganze Baugruppe laut http://help.solidworks.com/2012/English/api/sldworksapi/Traverse_Assembly_at_Component_Level_Example_VB.htm durchlese, bekomme ich bei der Zeile "Set swConf = swModel.GetActiveConfiguration" die Meldung Laufzeitfehler '91':
Objektvariable oder With-Blockvariabla nicht festgelegt

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

---

Mit welcher Version probierst Du es?! Eigentlich sollte das so funktionieren. Bei Dir konnte offenbar mindestens ein Objekt nicht korrekt deklariert werden. Zum Fehler führt das bei der ersten Funktion, die mit einem Objekt ausgeführt werden soll (hier aktive Konfiguration ermitteln).

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Probiere mal nur das Allernötigste:

Sub main()
        Dim swApp                      As SldWorks.SldWorks
        Dim swModel                    As SldWorks.ModelDoc2
        Dim swConf                      As SldWorks.Configuration
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swConf = swModel.GetActiveConfiguration
    MsgBox ("Konf=" + swConf.Name + "=")
End Sub

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo Lutz Federbusch,

dort habe ich die gleiche Fehlermeldung auch bekommen. Es ist in der Version Solidworks 2011. Bei uns haben wir die Version 2013 instaliert und dort funktioniert alles gut.

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

---

Wenn das hier (ist versionsunabhängig):

Sub main()
        Dim swApp                      As Object
        Dim swModel                    As Object
        Dim swConf                      As Object
    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swConf = swModel.GetActiveConfiguration
    MsgBox ("Konf=" + swConf.Name + "=")
End Sub

läuft, dann liegt es an den Verweisen im Makro (Kontrolle über Extras-Verweise in der VBA-Umgebung), die an eine feste Version der SW-Bibliotheken gebunden sind. versionsunabhängig ist eh' besser!

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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