Hallo ihr alle
Ich bin Doktorandin am ICAM in Lille und arbeite an Solidworks. Ich verwende Teilefamilien für Türbaugruppen und möchte der Einfachheit halber ein Excel-Makro verwenden. Letzteres sollte das Speichern von Excel-Dateien im Zusammenhang mit Solidworks-Teilen und -Baugruppen und die Registrierung von Teilen und Baugruppen in Solidworks ermöglichen (was heute ein Problem für mich ist).
Um zu erklären, wie ich vorgegangen bin, hier ein erklärendes Diagramm.
Wir freuen uns darauf, Sie zu lesen.
Herzliche Grüße
Arnaud Duhame
explication.pdf
Hallo
Ich werde Ihnen nur teilweise antworten, aber Sie sollten in der Lage sein, Referenzen für SolidWorks in den Referenzen hinzuzufügen (Extras -> Referenzen).
Tipp: "SOLIDWORKS 2016 Befehlstypbibliothek / SOLIDWORKS 2016 Konstantentypbibliothek" usw.
Und dann daran arbeiten.
Dies ist die gleiche Art und Weise, wie ich Aktionen für den Tresor aus Excel ausführe (Auf der anderen Seite habe ich nicht mit SolidWorks getestet, daher weiß ich überhaupt nicht, ob das, was ich sage, machbar ist).
KVuilleumier.
Nun, ich hatte wenig Hoffnung, aber nach ein paar Versuchen hatte ich Erfolg.
Dim swApp als SldWorks.SldWorks
Unter-TestSW()
Set swApp = Neu SldWorks.SldWorks
swApp.SendMsgToUser "Hallo"
swApp.NewPart
Ende Sub
Dieses Makro (Ausgeführt aus Excel) sendet mir die Nachricht "Hallo" und öffnet ein neues 3D-Dokument.
Hier sind die Referenzen, die hinzugefügt werden müssen:
- SldWorks 2016-Typbibliothek
- SolidWorks 2016 Bibliothek für Erweiterbarkeitstypen
- SOLIDWORKS Utilities 2015 Typenbibliothek
- SOLIDWORKS 2016 Bibliothek für konstante Typen
- SOLIDWORKS 2016 Typ-Bibliothek für Befehle
Edit: Brauchst du noch etwas?
Hallo KVuileumier,
Vielen Dank für Ihre Antwort, ich habe die Referenzen für SolidWorks überprüft und ich hatte sie aktiviert.
Um Solidworks-Dateien zu öffnen, verwende ich dieses Makro (aus Excel):
Sub-Makro1()
Software als Zeichenfolge dimmen
Dim-Datei als Zeichenfolge
Dimmen zuLaunch
Dim RetVal
Software = """C:\Programme\SOLIDWORKS Corp\SOLIDWORKS\SLDWORKS.exe"""
Datei2 = """C:\Benutzer\MSI\Desktop\test\round. SLDPRT"""
ToLaunch2 = Software & " " & Datei2
RetVal = Shell(ToLaunch2, 1)
Ende Sub
Mein Problem ist hauptsächlich, wie ich diese Datei speichere, die geöffnet ist?
Danke für Ihre Hilfe
Herzliche Grüße
Arnaud
Nun, stellen wir uns vor, dass es die aktive Datei ist, die wir speichern möchten, wir müssten eine Manipulation wie diese durchführen:
In Variablendefinitionen:
Dim swModel As SldWorks.ModelDoc2
In der Funktion (soweit swApp definiert ist, siehe ggf. meine vorherige Antwort):
Festlegen von swModel = swApp.ActiveDoc
swModel.Save3 swSaveAsOptions_Silent, 0, 0
Brauchen Sie noch etwas? Oder verstehst du etwas nicht?
KVuilleumier
Leider habe ich den Eindruck, dass ich es nicht verstehe. Ich hänge das geänderte Makro mit Ihren Vorschlägen sowie der Auftragsdatei und dem SOLIDWORKS Teil an.
Vielen Dank im Voraus für Ihre Hilfe.
Herzliche Grüße
Arnaud Duhamel
teste.zip