Créer un bouton "enregistrer sous x_t"

Out of category
1

Bonjour à Tous

Je cherche à créer un bouton sous l'environnement d'assemblage SLW, afin de pourvoir enregistrer sous parasolid *.x_t rapidement.

Comment faire ?

Merci pour votre aide.

 

 

2

Bonjour, il faudrai passer par une macro.

 

Sait-tu comment cela fonctionne?

3

Bonjour,

J'ai bidouiller ça pour enregistrer en DXF moi , ça marche bien ! ( Il y a des gens ici bien plus caler que moi dans le domaine :))

Là je l'ai modifier pour faire du X_T .

Il n'y à plus qu'a le mettre sur un bouton dans ton modèle d'assemblage !

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

 

Bon courage

 

Sub Sauvegarde_X_T()

 

   
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Locatie As String
Dim Locatie_aangepast As String
Dim OpenDoc As Object
Dim Extensie_nieuw As String
Dim Extensie_oud As String
Dim retval As String
Dim Naam As String
Dim Naam_aangepast As String

 

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

Extensie_oud = ".SLDASM"
Extensie_nieuw = ".X_T"
Locatie = OpenDoc.GetPathName
Locatie_aangepast = Left(Locatie, Len(Locatie) - 7)
retval = Dir$(Locatie_aangepast & Extensie_oud)
Naam = Dir$(Locatie)
Naam_aangepast = Left(Naam, Len(Naam) - 7)
Titel = OpenDoc.GetTitle
Titel = Left(Titel, (Len(Titel)))


   ' If retval = Naam Then
        'nRetval = swApp.SendMsgToUser2(Naam_aangepast & " DXF créé !!!!", swMbWarning, swMbOk)
  '  End If
    
    
Set Part = swApp.ActiveDoc
longstatus = Part.SaveAs3(Naam_aangepast & Extensie_nieuw, 0, 0)

End Sub

 

2 « J'aime »
4

Bonjour,

 

J'ai fait une macro pour enregistrer sous un nouveau document, tu peux t'en inspirer pour créer ton macro. Chaque ligne est commenté, ce qui est pratique pour les débutants en programmation VBA :

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

Pour ajouter un bouton :

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

Et pour le parasolid, voir ce lien :

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