Zapis makr w *.sat

Macro
1

Witam, szukam makra, które pozwoliłoby mi dodać przycisk zapisywania w sobotę.

Czy ktoś ma tutorial, albo bezpośrednio to małe makro w tych szufladach?

Z góry dziękuję, bardzo serdecznie,

Besnier JB

2

Witam

Tu znajduje się makro:

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

Zobacz też:

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

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

 

Aby dodać przycisk, zobacz mój samouczek:

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

 

3

I dlaczego to pytanie może być głupie?

Nie bierz makra takiego jak to zamieszczone w tym wątku, ponieważ po przetestowaniu działa dobrze

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

i po prostu zamień miejsce docelowe na .sat

może mówię coś głupiego ;-((

Spotkaj się ze specjalistami ds. makr

@+ ;-))

2 polubienia
4

Rzeczywiście, GT22, możemy wypróbować następujące makro:

Sub Sauvegarde_X_T()

 

   
Dim swApp As Object
Przyciemnij część jako obiekt
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Locatie Jako Ciąg
Dim Locatie_aangepast As String
Przyciemnij OpenDoc jako obiekt
Dim Extensie_nieuw As String
Dim Extensie_oud As String
Dim retval As String
Dim Naam As String
Dim Naam_aangepast As String

 

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

Extensie_oud = ". SLDASM"
Extensie_nieuw = ". SOB"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Lewo(Locatie, Len(Lokatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = Dir$(Locatie)
Naam_aangepast = Lewo(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Lewo(Tytuł, (Len(Tytuł)))


   ' Jeśli retval = Naam Then
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF utworzony !! ", swMbWarning, swMbOk)
   ' Koniec, jeśli
    
    
Ustaw część = swApp.ActiveDoc
longstatus = Part.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)

Koniec subwoofera

5

@PL, oczywiście zmieniając: "DXF tworzy!! " przez ". SAT utworzony !! "

6

Następująca część kodu jest nieaktywna:

' Jeśli retval = Naam Then
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF utworzony !! ", swMbWarning, swMbOk)
    ' Koniec, jeśli

Myślę, że programista chciał wykryć błąd na wypadek, gdyby plik już istniał.

Jednak SW już to uwzględnia.

1 polubienie
7

I cholera, ok, nic ;) nie powiedziałem!