Maak een knop "Opslaan als x_t"

Out of category
1

Hoi allemaal

Ik ben op zoek naar een knop te maken onder de SLW assemblage omgeving, zodat ik als parasolid *.x_t snel kan opslaan.

Hoe doe je dat?

Dank u voor uw hulp.

 

 

2

Hallo, je zult een macro moeten doorlopen.

 

Weet jij hoe het werkt?

3

Hallo

Ik heb eraan gesleuteld om in DXF op te nemen, het werkt goed! (Er zijn hier mensen die veel meer kennis hebben dan ik in het veld :))

Daar heb ik het aangepast om X_T te maken.

Het enige wat je hoeft te doen is hem op een knop in je montagemodel te zetten!

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

 

Succes

 

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

 

2 likes
4

Hallo

 

Ik heb een macro gemaakt om op te slaan onder een nieuw document, je kunt het als inspiratie gebruiken om je macro te maken. Elke regel is becommentarieerd, wat handig is voor beginners in VBA-programmering:

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

Een knop toevoegen:

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

En voor parasolid, zie deze link:

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