Dialogfeld "Öffnen" des Solidworks Makros

Out of category
1

Hallo ihr alle

Ich möchte das Dialogfeld "Öffnen" über ein Makro öffnen, damit der Benutzer auswählen kann, welche Datei geöffnet werden soll.

Weiß jemand, welchen Befehl er verwenden soll?

Vielen Dank

1 „Gefällt mir“
2

Hallo, ich rate Ihnen, ein Makro zu verwenden, indem Sie lernen, siehe hier:

 http://help.solidworks.com/2013/French/SolidWorks/sldworks/c_recording_playing_macros.htm

Sie können sich auch meinen Makro-Save ansehen unter:

3

.PL

Vielen Dank für Ihre Antwort.

Ich habe den Makrorecorder schon einmal ausprobiert, aber der Code ist leer, wenn ich einfach das Dialogfeld öffne und schließe. Und wenn ich eine Datei öffne, funktioniert der erhaltene Code, aber es braucht einen Link zu einer Datei und ich möchte, dass es der Benutzer ist, der die zu öffnende Datei auswählt.

Es gibt keinen Link zu Ihrem Makro "Speichern unter".

1 „Gefällt mir“
4

In der Tat habe ich gerade ein Tutorial erstellt, um dies zu tun:

http://www.lynkoa.com/tutos/import-export-formats-neutres/macro-solidworks-fen%C3%AAtre-ouvrir

 

1 „Gefällt mir“
5

Vielen Dank für dieses Tutorial!

Ich hatte diesen Code jedoch in der Solidworks API gefunden, die das Dialogfeld öffnet, aber wenn ich eine Datei (Teil oder Baugruppe) auswähle, passiert nichts.

Das Gleiche passiert mit dem Code, den Sie bereitgestellt haben.

Haben Sie eine Idee, warum?

1 „Gefällt mir“
6

Doppelklicken Sie auf ein Teil und es passiert nichts?

7

Ja, das stimmt.

Das Dialogfeld schließt sich und das war's, der Raum öffnet sich nicht.

Funktioniert der Code für Sie?

8

Ich kann jetzt nicht testen.

Welche Version und welchen SP von SolidWorks verwenden Sie?

Und was ist der Zweck von Makro? Vielleicht gibt es einen Weg, das zu umgehen.

9

Tatsächlich gibt die GetOpenFileName-Funktion den Pfad der ausgewählten Datei zurück.

Um es zu öffnen, müssen Sie eine Zeile mit dem Befehl OpenDoc6 mit fileName als Pfad hinzufügen.

Ich habe den Code unten eingefügt (die Zahl nach fileName in der Zeile "Set Part... " muss 1 sein, wenn Sie ein Teil öffnen möchten, und 2 für eine Baugruppe):

 

Dimmen swApp als Objekt
Option Explizit

 
Öffentliches swModel                  als SldWorks.ModelDoc2

Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long


Sub Main()

 

Filter                      als Zeichenfolge dimmen

Dim fileName                    als Zeichenfolge

Dim fileConfig                  als Zeichenfolge

Dim fileDispName                als Zeichenfolge

Datei dimmenOptionen                 so lange

 

Legen Sie swApp = Application.SldWorks fest

Filter = "SolidWorks Dateien (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw|Name des Filters (*.fil)|*.fil|Alle Dateien (*.*)|*.*|"

fileName = swApp.GetOpenFileName("Anzuhängende Datei", "", Filter, fileOptions, fileConfig, fileDispName)

Set Part = swApp.OpenDoc6(fileName, 2, 0, "", longstatus, longwarnings)

Debug.Print Dateiname

 
Ende Sub

 

Schönen Tag

1 „Gefällt mir“