Macro opslaan in *.sat

Macro
1

Hallo, ik ben op zoek naar een macro waarmee ik een knop voor opslaan in sat kan toevoegen.

Heeft iemand een tutorial, of direct deze kleine macro in deze lades?

Bij voorbaat dank, van harte,

Besnier JB

2

Hallo

Er is hier een macro:

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

Zie ook:

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

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

 

En om een knop toe te voegen, zie mijn tutorial:

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

 

3

En waarom kan deze vraag dwaas zijn?

Neem geen macro zoals degene die op deze draad is gepost, want na het testen werkt het goed

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

en verander de bestemming gewoon in .sat

misschien zeg ik iets stoms ;-((

Neem contact op met de macrospecialisten

@+ ;-))

2 likes
4

Inderdaad GT22, we kunnen de volgende macro proberen:

Sub Sauvegarde_X_T()

 

   
Dim swApp als object
Deel dimmen als object
Dim boolstatus als Booleaanse
Dim longstatus As Long, longwarnings As Long
Dim Locatie Als String
Dim Locatie_aangepast als snaar
OpenDoc dimmen als object
Dim Extensie_nieuw als snaar
Dim Extensie_oud als snaar
Dim retval als snaar
Dim Naam Als String
Dim Naam_aangepast als snaar

 

Stel swApp = CreateObject("SldWorks.Application") in
Stel swModel = swApp.ActiveDoc in
Stel OpenDoc in = swApp.ActiveDoc()

Extensie_oud = ". SLDASME"
Extensie_nieuw = ". ZAT"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Links(Locatie, Len(Locatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = Dir$(Locatie)
Naam_aangepast = Links(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Links(Titel, (Len(Titel)))


   ' If retval = Naam Dan
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF gemaakt !! ", swMbWarning, swMbOk)
   ' Einde als
    
    
Deel instellen = swApp.ActiveDoc
longstatus = Deel.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)

Einde Sub

5

@PL, duidelijk veranderend: "DXF creëert!! " door ". SAT heeft !! gemaakt "

6

Het volgende deel van de code is inactief:

" Als retval = Naam Dan
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF gemaakt !! ", swMbWarning, swMbOk)
    ' Einde als

Ik denk dat de ontwikkelaar een foutdetectie wilde doen voor het geval het bestand al bestaat.

SW houdt hier echter al rekening mee.

1 like
7

En verdomd, oké, ik heb niets gezegd ;)!