Hallo ihr alle
Ich möchte einen VBA-Code in Excel erstellen, der es mir ermöglicht, Solidworks zu starten, eine SolidWorks-Teile- oder Baugruppendatei zu öffnen und die Eigenschaften dieser Datei zu ändern.
Keine Kenntnisse über SW-Makros. Ich habe viel im Internet recherchiert, aber ich kann keine Datei öffnen.
Vielen Dank im Voraus.
Schönen Tag.
Hallo
Ich glaube, ich hatte einen gemacht, aber ich kann ihn nicht in die Finger bekommen!
Ansonsten schauen Sie sich diesen Link an:
https://forum.solidworks.com/thread/69618
Excel öffnet jedoch a priori ein SolidWorks Dokument (aber nicht direkt SolidWorks):
'Link zu Solidworks
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Wenn swModel nichts ist, dann
MsgBox "Kein Dokument geladen" & vbCrLf & _
"Öffnen Sie zuerst eine Solidworks-Zeichnung!", vbMsgBoxSetForeground + vbSystemModal
Oder
'... Fortführung des Codes
Und vergessen Sie natürlich nicht, die SolidWorks Referenzen in Excel einzubinden, sonst können Sie gar nichts machen!
Siehe diesen Link:
http://www.cadsharp.com/blog/using-microsoft-excel-with-the-solidworks-api/
Genauer gesagt dieser Teil:
Sobald das Makro in Excel erstellt wurde, gehen Sie zu "Extras > Referenzen" und überprüfen Sie:
"SldWorks 20XX Typbibliothek"
Vielen Dank .PL für diese schnellen Antworten.
Die Links sind interessant
Ich verstehe mein Problem nicht. Wenn ich z.B. den Code aus dem Beispiel des zweiten Links zur Anzeige einer Nachricht in SW verwende, wird nicht kompiliert:
Dim swApp als SldWorks.SldWorks
Siehe Anhang.
Vielen Dank.
Vielen Dank .PL.
In der Tat mussten wir die "SldWorks 20XX Type Library" hinzufügen.
Jetzt funktionieren SW-Codes.
Über den Rest werde ich Sie auf dem Laufenden halten.
Vielen Dank.
In Bezug auf die Änderungen an den Eigenschaften empfehle ich Ihnen, sich das Makro anzusehen, das ich als Tutorial auf Lynkoa gepostet habe:
http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks
Dieses Makro, bei dem jede Zeile auskommentiert ist, ändert Eigenschaften (einschließlich der Codeeigenschaft).
So weisen Sie beispielsweise eine Eigenschaft zu:
CODE = SWmoddoc.CustomInfo("code")
So fügen Sie eine Eigenschaft hinzu:
retval = SWmoddoc.AddCustomInfo3("", "CODE", 30, Neuer Code)
Ich schaffe es, den Raum zu öffnen und die Eigenschaften zu ändern.
Danke an Lucas...