Créer une macro pour exporter en X_T sur Solidworks 2010?

Macro
1

Bonjour,

Je souhaiterais pouvoir exporter en X_T une pièce ou un assemblage en cliquant uniquement sur un bouton sur Solidworks 2010 ?

J'ai déjà trouvé un bouton comme celui la pour faire un export en .pdf et .dxf en même temps pour mes plans qui fonctionne très bien.

Mais je ne trouve pas pour exporter en X_T ?

Merci d'avance

2
Il suffit de modifier la macro, tu connais la programmation VBA ?

Voir ce lien :

http://forum.solidagora.com/macro-api-solidworks-enregistrer-pdf-dxf-x-t101.html

3

Non, je ne connais pas la programmatio VBA du tout.

La le lien que tu m'as envoyé c'est pour enregistrer les  éléments d'un dossier.

Moi je voudrais un bouton qui fasse comme si je fesais "Fichier/enregistrer sous/" et enregistrer en Parasolid x_t

4

Voir ce lien 

macro export parasolid

http://www.3dcontentcentral.fr/macros/macro.aspx?id=557249

https://www.dropbox.com/s/l5vscy9dkpswb1i/PARASOLID.bmp?dl=0

@+;-))

5

Salut,

Pour débuter une macro il est souvent intéressant d'utiliser l'enregistreur. Cela va te permettre de connaitre les fonctions utiles.

Ensuite il est possible d'approfondir en recherchant les éléments ciblés dans l'aide : http://www.solidworks.fr/sw/support/1835_FRA_HTML.htm

Car ce qui est intéressant c'est surtout de comprendre ce que l'on code et pas juste de copier un code trouvé ici ou là. Mais biensur cela demande un peu de patience et de temps.

Cordialement.

3 « J'aime »
6

gt22 j'ai déjà essayé cette macro auparavant mais ça ne fonctionne pas.

7

C'est un problème de version 32/64 bit

le problème de iff ou if

Poste la macro pour vérifier le bon fonctionnement ou pas

@+;-))

8

Je viens de le retélécharger pour l'essayer et ça me met :

1 « J'aime »
9

Est ce que ta pièce est ouverte ?

10

oui, en faite j'ai fait une pièce et puis je l'ai enregistré quelque part et puis j'appuis sur le bouton ou j'ai associé la macro mais ça affiche ça.

C'est peut être pas comme cela que l'on doit l'utiliser. Mais j'en ai une autre qui fonctionne comme ça pour enregistrer en .pdf et .dxf et qui fonctionne bien

11

Il y a bien écrit (on ne voit pas très bien) :

If Part.GetType = swDocDRAWING Then

Tu lances la macro depuis une pièce dans SolidWorks ?

1 « J'aime »
12

Je te met l'image en pièce jointe


sans_titre.jpg
13

oui j'ai lancé la macro a partir d'une pièce

14

En faite, je sais pas si c'est comme ça qu'il faut l'utiliser, rien n'indique comment faire ?

15

J'ai trouvé ça sur un autre post, je l'ai fait ça marche exactement comme j'ai envi !!!

Je met le fichier "save_x_t.swp" en pièce jointe pour ceux qui le veulent.

 

 

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


save_x_t.swp
2 « J'aime »
16

je vous met aussi l'icone x_t.bmp que j'ai fait.


x_t.bmp
17

Je remet la dernière version de la macro corrigé pour enregistrer en X_T avec le logo X_T qui va avec :)

 

Bonne journée à tous !!!


save_x_t.zip