Xavv
1
Hallo
Um eine Datei in SolidWorks aus einem Makro zu öffnen, verwende ich
Dim swApp als SldWorks.SldWorks
Setze swApp = GetObject(, "SldWorks.Application") ', um die bereits geöffnete SW abzurufen
oder
Set swApp = CreateObject("SldWorks.Application") ' zum Starten der SW
Das Gleiche möchte ich mit eDrawing machen
Problem, ich konnte kein GetObject für eDrawing finden
Ich habe gesehen, dass ich in meinem VBA-Projekt als "Referenzen" hinzufügen kann
Bibliothek EModelView
C:\Programme\SOLIDWORKS Corp\eDrawings\EModelView.dll
EModelView 2020 Typbibliothek
Ich habe es ohne Erfolg versucht
Set EModelViewApp = CreateObject("EModelView.Application")
aber es funktioniert nicht :-(
( Ich habe SW 2020 / eDrawing 2020 installiert )
Hallo
Wenn es nur darum geht, eine Datei in eDrawings zu öffnen:
Dim RetVal als boolescher Wert
App als Zeichenfolge dimmen
Dim-Datei als Zeichenfolge
Sub main()
App = "C:\Programme\SOLIDWORKS Corp\eDrawings\eDrawings.exe"
Datei = "C:\Benutzer\xxx\Desktop\meineDatei.dxf"
RetVal = Shell(App &" " & Datei, 1)
Ende Sub
Vergessen Sie nicht, "Microsoft Shell Controls And Automation" als Referenz anzugeben.
Herzliche Grüße
Xavv
3
Hallo
So mache ich es jetzt,
Das Problem besteht jedoch darin, für jede Datei eine eDrawing-Anwendung neu zu starten.....
Ich wollte mit GetObject CreateObject besser finden .....
Sehen Sie sich dieses Beispiel an, um ein Sldprt mit der eDrawing-API als PDF zu speichern:
https://www.codestack.net/edrawings-api/output/print-to-pdf/
Die Struktur unterscheidet sich von der Solidworks API, funktioniert aber gut. Ich benutze es, um Sldprt in edrawing zu konvertieren.