Speichern des Makros in *.sat

Macro
1

Hallo, ich bin auf der Suche nach einem Makro, mit dem ich eine Schaltfläche zum Speichern in Sat hinzufügen kann.

Hat jemand ein Tutorial oder direkt dieses kleine Makro in diesen Schubladen?

Vielen Dank im Voraus, ganz herzlich,

Besnier JB

2

Hallo

Hier gibt es ein Makro:

https://forum.solidworks.com/message/215237#215237

Siehe auch:

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

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

 

Und um eine Schaltfläche hinzuzufügen, sehen Sie sich mein Tutorial an:

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

 

3

Und warum kann diese Frage albern sein?

Nehmen Sie kein Makro wie das in diesem Thread gepostete, da es nach dem Testen gut funktioniert

http://www.lynkoa.com/forum/cao/creer-une-macro-pour-exporter-en-xt-sur-solidworks-2010

und wandeln Sie das Ziel einfach in .sat um

vielleicht sage ich etwas Dummes ;-((

Sehen Sie mit den Makrospezialisten

@+ ;-))

2 „Gefällt mir“
4

In der Tat GT22, wir können das folgende Makro ausprobieren:

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 = ". SAMSTAG"
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

5

@PL, der sich offensichtlich ändert: "DXF schafft!! " von ". SAT erstellt !! "

6

Der folgende Teil des Codes ist inaktiv:

" Wenn retval = Naam Dann
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF erstellt !! ", swMbWarning, swMbOk)
    " Ende, wenn

Ich denke, der Entwickler wollte eine Fehlererkennung durchführen, falls die Datei bereits existiert.

SW berücksichtigt dies jedoch bereits.

1 „Gefällt mir“
7

Und verdammt, ok, ich habe ;) nichts gesagt!