Erstellen Sie eine Schaltfläche "Als x_t speichern"

Out of category
1

Hallo ihr alle

Ich möchte eine Schaltfläche unter der SLW-Baugruppenumgebung erstellen, damit ich schnell als parasolid *.x_t speichern kann.

Wie macht man das?

Danke für Ihre Hilfe.

 

 

2

Hallo, Sie müssen ein Makro durchlaufen.

 

Wissen Sie, wie es funktioniert?

3

Hallo

Ich habe daran herumgebastelt, um in DXF aufzunehmen, es funktioniert gut! (Es gibt hier Leute, die sich auf diesem Gebiet viel besser auskennen als ich :))

Dort habe ich es so modifiziert, dass es X_T.

Alles, was Sie tun müssen, ist, es auf einen Knopf in Ihrem Baugruppenmodell zu setzen!

http://www.lynkoa.com/tutos/3d/ajouter-un-bouton-pour-macro-dans-solidworks

 

Viel Glück

 

Eingewechselt Sauvegarde_X_T()

 

   
Dimmen swApp als Objekt
Teil als Objekt dimmen
Dim boolstatus als boolescher Wert
Dim longstatus As Long, longwarnings As Long
Dim Locatie As String
Locatie_aangepast als Zeichenfolge dimmen
OpenDoc als Objekt dimmen
Extensie_nieuw als Zeichenfolge dimmen
Dimmen Extensie_oud als Zeichenfolge
Dim retval As String
Dim Naam Als Saite
Naam_aangepast als Zeichenfolge dimmen

 

Set swApp = CreateObject("SldWorks.Application")
Festlegen von swModel = swApp.ActiveDoc
Setze OpenDoc = swApp.ActiveDoc()

Extensie_oud = ". SLDASM"
Extensie_nieuw = ". X_T"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Links(Lage, Länge(Lage) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = dir$(Ort)
Naam_aangepast = Links(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Left(Titel, (Len(Titel)))


   ' Wenn retval = Naam dann
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF erstellt !! ", swMbWarning, swMbOk)
   " Ende, wenn
    
    
Set Part = swApp.ActiveDoc
longstatus = Teil.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)

Ende Sub

 

2 „Gefällt mir“
4

Hallo

 

Ich habe ein Makro erstellt, um es unter einem neuen Dokument zu speichern, Sie können es als Inspiration verwenden, um Ihr Makro zu erstellen. Jede Zeile wird auskommentiert, was für VBA-Programmieranfänger praktisch ist:

http://www.lynkoa.com/tutos/3d/macro-enregistrer-sous-avec-solidworks

So fügen Sie eine Schaltfläche hinzu:

http://www.lynkoa.com/tutos/3d/ajouter-un-bouton-pour-macro-dans-solidworks

Und für Parasolid siehe diesen Link:

https://forum.solidworks.com/thread/27668