---

Guten Tag liebe Community

Gerne würde ich mich freuen wenn ihr mir vielleicht auf die Sprünge helfen könntet:

Ich arbeite mit Solidworks 2012 Professional und würde gerne mit Makros arbeiten.
Der Makrorekorder funktioniert bei mir aber nicht.
Kann es sein, dass dieses Problem an der Programmversion liegt?
Als Beispiel: Der Rekorder speichert zwar am Ende eine Makrodatei, aber die ist und bleibt leer.
Wenn ich ein eigenes Makro schreiben will, dann kommt die Prozedur wiederum zum Stehen.
Mein Beispielcode

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Sub mains()
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc '=> stoppt immer bei swApp.activeDoc ?? Warum??
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DWG-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False
End Sub

Liegt dieses Problem an der Version?
In der Verweisbibliothekt ist dieser Eintrag nämlich aufgeführt.

Kann mir da jemand von euch weiterhelfen?

Gruss

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

---

2020-10-07VBA1.jpg

Hallo Feuerblitz,

setze doch mal einen Haltepunkt auf die Zeile

Code:

---

Set swApp = Application.SldWorks

---

Wahrscheinlich bekommst du kein Solidworks-Objekt angebunden, was du mit
einer Überwachung von swApp relativ einfach feststellen kannst.

Zudem solltest du die Prozedure main und nicht mains nennen 

------------------
==========
Gruß
Andreas
==========

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

---

SolidworksMakro.PNG

Danke für deine Antwort.
mains habe ich das Makro genannt, weil er ein Problem sieht, wenn ein zweites Makro im selben Modul auch so benannt wird. Macht das ein grossen Unterschied? Ist ja soviel ich weiss einfach nur eine Beschreibung?

Ich habe das gemacht, was du beschrieben hast. Dass swApp als Wert Nothing ergibt, habe ich bereits festgestellt. Nur leider habe ich keine Ahnung woran das liegen könnte.

LG

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

---

Dann fehlt der Verweis auf die Solidworks-DLL's 
Wenn du mit Win10 unterwegs bist, kann es sein, dass die SWX2012-DLL nicht erkannt werden wegen fehlender Kompatibilität. Zeig doch mal einen Screenshot von deinen Verweisen.

------------------
==========
Gruß
Andreas
==========

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

---

Verweise1.PNG Verweise2.PNG

Hier mal die Infos, was fehlt mir denn noch? Habs bis jetzt nicht herausgefunden.

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

---

Zitat:

---

... wenn ein zweites Makro im selben Modul auch so benannt wird...

---

Wieso ein 2. Makro im selben Modul?

hast du mehrere subs in deinem Makro? welche startest du denn?
SWX startet beim Aufruf über "Makro ausführen" immer die zuletzt hinzugefügte sub.

wenn es aus der Programmierumgebung gestartet wird, kann man sich die sub aussuchen (oder die, wo der cursor steht ...)

kannst du auch "dim swApp as SldWorks.SldWorks" deklarieren?

Gruß, Christian

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

---

Danke Christian für deine Antwort.

Nein die anderen Subs habe ich rausgelöscht, damit nur der eine Code den ich hier reingestellt, habe ausgeführt wird und es zu keiner Komplikation kommen kann.

Wenn ich "dim swApp as SldWorks.SldWorks" deklariere, kommt die folgende Fehlermeldung:

"Objektvariable oder with-blockvariable nicht festgelegt"

Was bedeutest das für mich?

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

---

Moin,

ich vermute, dass es Probleme mit der Registrierung der SWX-DLL's
gegeben hat. SWX2012 wird offiziell nicht von Windows 10 unterstützt oder
bist du unter einem anderen Betriebssystem unterwegs? Du solltest auf
eine aktuellere Version updaten, wahrscheinlich erledigen sich deine
Probleme damit 

------------------
==========
Gruß
Andreas
==========

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

---

Versionen.PNG

Da gibt's tatsächlich eine aktuellere Version. Kann ich da einfach aktualisieren auch wenn ich nur über eine 2012er Lizenz verfüge?

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

---

Versionen.PNG

Da gibt's tatsächlich eine aktuellere Version. Kann ich da einfach aktualisieren auch wenn ich nur über eine 2012er Lizenz verfüge?

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

---

Wenn du einen aktiven Wartungsvertrag hast, kannst du aktualisieren.
Ich empfehle dir, dann noch nicht unbedingt die 2021er Version zu
nehmen, da die ganz frisch auf dem Markt ist 

------------------
==========
Gruß
Andreas
==========

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

---

Sonst kann ich die Aktualisierung vergessen?

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

---

Ja, du darfst nur mit aktuellem Wartungsvertrag updaten.

------------------
==========
Gruß
Andreas
==========

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

---

Ja ich bin mit Windows 10 unterwegs. Also gibt's keine Chance dieses Problem sonst zu beheben?

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

---

Du kannst noch mal eine Reparaturinstallation versuchen, evtl. hilft das ja weiter.

------------------
==========
Gruß
Andreas
==========

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

---

Naja danke für den Tipp, da es nicht mein privater Rechner ist, kann ich das wohl nicht so leicht machen.
Was für Werte erhaltet ihr denn im Lokalfenster wenn ihr das Script bei euch ausführt?
Könntet jemand von euch ein Screenshot machen?

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

---

2020-10-08VBA1.jpg

Erwartungsgemäß gibt sowohl das Lokalfenster als auch die Überwachung
ein SldWorks-Objekt zurück 

------------------
==========
Gruß
Andreas
==========

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

---

Funktioniert der Code bei dir ordnungsgemäss? Kannst du mir vielleicht eine Bilderreihe senden damit ich mal sehen kann was Schritt für Schritt im Programm geschieht. Im Direktfenster wäre gut. Danke 

Lg

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

---

Im Direktfenster wirst du nichts sehen, da alles in SWX passiert.
Die drei Zeilen

Code:

---

swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

---

können raus, da sie nichts mit dem Speichern als DXF bzw. DWG zu tun haben. Es fehlt noch die Prüfung, ob es sich auch um eine Zeichnung handelt,
da sonst kein DXF bzw. DWG erzeugt werden kann. Ansonsten sieht das erst
einmal zufriedenstellend aus. Auf einen Screenshot-Marathon habe ich
jetzt keine Lust  , da jetzt WOCHENENDE ist!

------------------
==========
Gruß
Andreas
==========

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

---

Hallo zusammen

Ich habe es mittlerweile zum laufen gebracht. Das wäre die Grundfunktion:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String

Sub main()
Set swApp = CreateObject("SldWorks.Application")

Set Part = swApp.ActiveDoc '=> stoppt immer bei swApp.activeDoc ?? Warum??

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DWG-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".step"  ' Speichern als Step-Datei
Part.SaveAs2 saveFileName, 0, True, False
'saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf"  ' Speichern als DXF-Datei
'Part.SaveAs2 saveFileName, 0, True, False
End Sub

Später möchte ich die zwei Dateien dann in einen "Nebenordner" speichern lassen. Sprich Eine Ordnerinstanz höher und dort in einen bestimmten Ordner (Spezifikationen), aber nur wenn er vorhanden ist.

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

---

Hallo liebe Community

Mir ist da noch eine Frage in den Sinn gekommen und zwar:

Ich würde gerne die Benutzerdefinierten Eigenschaften die ich im Teil eingebe in die Zeichnung und in den Zeichnungskopf übernehmen. Gleichzeitig will ich von der Zeichnung her, wenn sich Daten ändern rückwirkend die Daten in die Eigenschaften des Teils schreiben lassen. Lässt sich dies mit VBA bewerkstelligen? Hat das schon jemand versucht? Meine Suche war bisher erfolglos..

Lg

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

---

Hallo Feuerblitz,

bei deinem Programm solltest du noch einige Fehlerprüfungen mit einbauen.
So ist z.B. das STEP-Format (AP-203 bzw. AP-214) nicht für 2D-Daten geeignet.
D.h., wenn du deinen Code auf eine Zeichnung loslässt, dann knallt es bei
der STEP-Erzeugung. Die Sachen mit dem übergeordneten Verzeichnissen lässt
sich mit den gängigen VBA-Befehlen realisieren.

Bzgl. der benutzerdefinierten Eigenschaften handhabe ich es so, dass die
Eigenschaften aus dem Teil kommen und im Stücklistenkopf die entsprechenden
Eigenschaften ausgelesen werden. Ist aber unidirektional, d.h., wenn geändert
wird, dann im Teil. Die Bi-direktionale Aktualisierung ist mit Events beim
Speichern zu realisieren, aber schon mit einem gewissen Aufwand verbunden.

------------------
==========
Gruß
Andreas
==========

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

---

Die Dateien machen keine Probleme. Step wird dann einfach ignoriert.
Aber ich denke mit einer If Funktion kann man das von der Datei abhängig machen. Weiss nur noch nicht wie.

"Die Bi-direktionale Aktualisierung ist mit Events beim
Speichern zu realisieren, aber schon mit einem gewissen Aufwand verbunden"
Gibt es da schon irgenwelche Ansätze?

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

---

Schau dir mal http://help.solidworks.com/2012/english/api/sldworksapiprogguide/Overview/Events.htm
an.

------------------
==========
Gruß
Andreas
==========

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

---

Ich hab da mal was versucht:

    'Variablen definieren
        Dim swApp As Object
        Dim Part As Object
        Dim Speichername As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
'    'Dateipfad setzen
'        Dateipfad = swApp.ActiveDoc.GetPathName
'    'Dateinamen setzen
'        Dateiname = swApp.ActiveDoc.Name

Set Part = swApp.ActiveDoc

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
    'Dateityp auslesen WENN Zeichung / DANN .pdf und .dwg, sonst .step
If ActiveDoc = DrawingDoc Then
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DWG-Datei
    Part.SaveAs2 Speichername, 0, True, False
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
    Part.SaveAs2 Speichername, 0, True, False
Else
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".step"  ' Speichern als Step-Datei
    Part.SaveAs2 Speichername, 0, True, False

End If
    'Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf"  ' Speichern als DXF-Datei
    'Part.SaveAs2 Speichername, 0, True, False
End Sub

Da fehlt aber noch was. Das mit den Events habe ich mal noch flüchtig angeschaut. Bin noch nicht zu mehr gekommen. Aber vielen Dank für den Link und den Tipp.

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

---

Ich hab da mal was versucht:

    'Variablen definieren
        Dim swApp As Object
        Dim Part As Object
        Dim Speichername As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
'    'Dateipfad setzen
'        Dateipfad = swApp.ActiveDoc.GetPathName
'    'Dateinamen setzen
'        Dateiname = swApp.ActiveDoc.Name

Set Part = swApp.ActiveDoc

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
    'Dateityp auslesen WENN Zeichung / DANN .pdf und .dwg, sonst .step
If ActiveDoc = DrawingDoc Then
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DWG-Datei
    Part.SaveAs2 Speichername, 0, True, False
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
    Part.SaveAs2 Speichername, 0, True, False
Else
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".step"  ' Speichern als Step-Datei
    Part.SaveAs2 Speichername, 0, True, False

End If
    'Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf"  ' Speichern als DXF-Datei
    'Part.SaveAs2 Speichername, 0, True, False
End Sub

Da fehlt aber noch was. Das mit den Events habe ich mal noch flüchtig angeschaut. Bin noch nicht zu mehr gekommen. Aber vielen Dank für den Link und den Tipp.

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

---

Ich hab da mal was versucht:

    'Variablen definieren
        Dim swApp As Object
        Dim Part As Object
        Dim Speichername As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
'    'Dateipfad setzen
'        Dateipfad = swApp.ActiveDoc.GetPathName
'    'Dateinamen setzen
'        Dateiname = swApp.ActiveDoc.Name

Set Part = swApp.ActiveDoc

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If
    'Dateityp auslesen WENN Zeichung / DANN .pdf und .dwg, sonst .step
If ActiveDoc = DrawingDoc Then
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dwg" ' Speichern als DWG-Datei
    Part.SaveAs2 Speichername, 0, True, False
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".pdf"  ' Speichern als PDF-Datei
    Part.SaveAs2 Speichername, 0, True, False
Else
    Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".step"  ' Speichern als Step-Datei
    Part.SaveAs2 Speichername, 0, True, False

End If
    'Speichername = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".dxf"  ' Speichern als DXF-Datei
    'Part.SaveAs2 Speichername, 0, True, False
End Sub

Da fehlt aber noch was. Das mit den Events habe ich mal noch flüchtig angeschaut. Bin noch nicht zu mehr gekommen. Aber vielen Dank für den Link und den Tipp.

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