Discussion :

[WalTT]

Bonjour,

Je souhaite enregistrer des fichiers de plans ".SLDDRW" (SolidWorks) sous une autre extension et de façon automatisé (VBA)

Actuellement, j'ouvre mes plans 1 à 1 sur SolidWorks et je lance une macro qui enregistre sous le format voulu ".DXF"

Parallèlement à ça, j'ai un fichier excel dans lequel j'ai une colonne A avec le n° de plans et une colonne B avec le chemin. J'ai une macro sous excel qui ouvre les plans 1 à 1 automatiquement. => ça marche bien.

J'aimerai qu'en plus d'ouvrir les plans 1 à 1, elle exécute la macro sous SolidWorks pour enregistrer les plans au format ".DXF"


Es-ce possible?
La méthode n'est peut-être pas la bonne?
Avez-vous une meilleur idée?

La finalité étant d'enregistrer des fichiers ".SLDDRW" d'une liste excel au format ".DXF"

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButtonOKdxf_Click()
 
 
 
 Dim cpt As Integer
 
 For cpt = 4 To 20
 
 
 NoLigneDRW = cpt
    Dim FichierSLDDRW As String
    Dim CheminFichierDRW As String
 
 
    CheminFichierDRW = Range("B" & NoLigneDRW).Value
    FichierSLDDRW = Range("A" & NoLigneDRW).Value
 
    If Range("D" & NoLigneDRW).Value <> "" Then
        ThisWorkbook.FollowHyperlink CheminFichierDRW & "\" & FichierSLDDRW & ".SLDDRW"       'Ouverture du plan .SLDDRW sous SolidWorks
    End If
 
  '++++++++ comment exécuter une macro dans solidWorks++++
 
 '------ci dessous la macro qui marche seule dans SolidWorks mais j'aimerai qu'elle s’exécute automatiquement a chaque ouverture de fichier
'Dim swApp As Object
 
'Dim Part As Object
'Dim boolstatus As Boolean
'Dim longstatus As Long, longwarnings As Long
 
'Sub main()
 
'Set swApp = Application.SldWorks
 
'Set Part = swApp.ActiveDoc
 
'PathName = UCase(Part.GetPathName)
 
'longstatus = Part.SaveAs3(Replace(PathName, "SLDDRW", "DXF"), 0, 0)
'longstatus = Part.SaveAs3(Replace(PathName, "SLDDRW", "SLDDRW"), 0, 0)
 
'End Sub
 
 
 
Next cpt
 
Unload UserFormTraiterDXF
 
End Sub

[Menhir]

C'est certainement possible et la méthode semble correcte (à moins qu'il existe dans SolidWork la possibilité de faire des conversion de masse).

Le problème c'est que pour enregistrer en DXF, il faut manipuler des objets SolidWork et que, ici, on parle plutôt des objets Excel.
Non pas que ce soit gênant que tu poses cette question, mais ici tu trouveras peu de spécialistes de SolidWorks pouvant t'apporter une réponse.

Il faudrait que tu trouves de la documentation sur les objets SolidWorks et leurs membres pour avoir une change de savoir quoi faire.
Ou, à défaut, tâtonner dans les objets que permet d'afficher la touche F2 (en sélectionnant la bibliothèque SolidWorks). C'est compliqué et incertain mais, avec un peu de chance, ça peut marcher (il m'est arrivé, il y a longtemps, de faire deux ou trois bricoles avec Inventor en utilisant cette méthode).

[Menhir]

Essaye de voir s'il n'y aurait pas des infos ici : http://www.solidworks.com/sw/support/api-support.htm

Sinon, il te reste la base de données Dassault Systèmes mais, perso, je n'y ai pas accès.
https://login.solidworks.com/nidp/id...ic%26lang%3DFR

[WalTT]

Bonjour,

Oui il y a des solution qui existe sous SolidWorks, mais les options sont limitées, et dans mon cas précis c'est le fait de traiter la liste sous excel qui m’intéresse.
Je ne trouve pas mon bonheur avec F2.
Je pensais que depuis excel il était possible d'appeler la macro existante sous SolidWorks.
Je sais qu'on peut lancer un module d'un autre classeur fermé, alors pourquoi pas d'un autre programme?

[Menhir]

Je pensais que depuis excel il était possible d'appeler la macro existante sous SolidWorks.

Si c'est vraiment une macro, tu pourras l'appeler avec un simple Call en la rapatriant dans le VBE d'Excel.
Par contre, si c'est une commande, il faudra manipuler les méthodes des objets concernés.

Je sais qu'on peut lancer un module d'un autre classeur fermé, alors pourquoi pas d'un autre programme?

Activer une macro d'un classeur fermé ? Je ne dis pas que c'est impossible mais j'en doute fortement dans la mesure où, à ma connaissance, il n'est pas possible de lire les données d'un fichier fermé, quelle que soit la nature de ce fichier.

[WalTT]

Bonjour,

Suivant ton conseil d'utiliser "call" pour appeler la macro j'ai donc essayé le code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButtonOKdxf_Click()
 
 
 Dim cpt As Integer
 
 For cpt = 4 To 200
 
 
 NoLigneDRW = cpt
    Dim FichierSLDDRW As String
    Dim CheminFichierDRW As String
 
 
 
    CheminFichierDRW = Range("B" & NoLigneDRW).Value
    FichierSLDDRW = Range("A" & NoLigneDRW).Value
 
 If Range("D" & NoLigneDRW).Value <> "" Then
 
 ThisWorkbook.FollowHyperlink CheminFichierDRW & "\" & FichierSLDDRW & ".SLDDRW"   'Ouverture sous SolidWorks
 
 Call DXF
 
 End If
 
Next cpt

Ci dessous la macro que j'ai placé dans un module Excel pour essayer de la lancer. Sous excel ça ne marche pas, err 438 à la ligne "Set swApp = Application.SldWorks"
Pour rappel cette macro tourne bien seul sous SolidWorks mais je cherche à ce qu'elle soit lancée depuis Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub DXF()
 
Set swApp = Application.SldWorks
 
Set Part = swApp.ActiveDoc
 
PathName = UCase(Part.GetPathName)
 
longstatus = Part.SaveAs3(Replace(PathName, "SLDDRW", "DXF"), 0, 0)
longstatus = Part.SaveAs3(Replace(PathName, "SLDDRW", "SLDDRW"), 0, 0)
 
End Sub

[Menhir]

Est-ce que tu as chargé la bibliothèque d'objets SolidWorks ?
Dans le VBE > Outils > Références > Cocher la bibliothèque d'objets SolidWork dans la liste déroulante.
Comme je ne dispose pas de ce logiciel, je ne peux pas te dire quel est son nom.