VBA Excel vers Solidworks

Out of category
1

Bonjour à tous,
j'aimerais piloter une fonction de solidworks via un fichier Excel avec une macro VBA


Ci-joint le code pour la fonction EditSuppress2() qui m’intéresse.
'Dim instance As IModelDoc
'Dim value As System.Boolean
'value = instance.EditSuppress2()

 

Ci-joint la macro enregistrer via le logiciel Solidworks
'Sub main()

'Set swApp = _
'Application.SldWorks

'Set Part = swApp.ActiveDoc
'boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.1@PièceX.part", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
'Part.EditSuppress2
'Part.ClearSelection2 True
'End Sub

Est-ce que quelqu'un a déjà travaillé sur ce type de VBA? Comment faire concorder les deux?

Je souhaite piloter un suppression d'une fonction via excel d'un piece?

Merci de votre aide par avance.

2

Bonjour,

Ce que vous semblez vouloir faire s'apparente à une famille de pièce. Tout aussi efficace et simple, excel pilote déjà en natif SW dans ce cadre là.

2 « J'aime »
3

oui tout a fait mais je souhaiterais proceder par un macro excel, est-ce possible?

comme j'ai plusieurs fonction à supprimer, je souhaiterais passer par une macro excel qui pilote la suppression de fonction de Solidworks (EditSuppress2())

4

Bonjour,

Voici un exemple de macro dans Excel qui permet de récupérer le nom de la pièce chargée dans Solidworks :

Sub Macro1()
    
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

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

MsgBox swModel.GetTitle

End Sub

Ne pas oublier d'ajouter les références à Solidworks dans l'éditeur de macro Excel :

Le reste n'est que de l'écriture de macro vba standard.

Cordialement,

5

Bonjour, merci de ta réponse, 

j'ai déjà fait une macro similaire à la tienne pour modifier les cotes d'une pièce avec le code joint:

Part.Parameter("D1@Esquisse1@PièceX.Part").SystemValue = Excel.Range("B2") / 1000

 

Mais je bloque sur la suppression d'une fonction de la pièce, il me semble qu'il faut utilise la fonction EditSuppress2() mais je n'arrive pas à la mettre en forme en VBA pour supprimer l'enlèvement de matière de ma pièce ("Enlèv. mat.-Extru.1@PièceX.Part") 

J'ai mon exemple de pièce au post.

Merci de votre aide.

 


piecex.sldprt
6

Bonjour,

Tu as un exemple de l'utilisation de la fonction EditSuppress2() ICI.

Cordialement

7

je n'avais pas essayé cela mais j'ai toujours le même résultat "cela ne fonctionne pas"

j'ai mis ce code:

Model.SelectByID("Enlèv. mat.-Extru.1@PièceX.Part", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) = Model.EditSuppress()

 

j'ai une erreur d'excécuton "424" Objet requis

 

8

C'est que tu as un objet qui n'est pas défini, probablement "Model".

Pourquoi mets-tu "@piecex.Part" après le "Enlèv. mat.-Extru.1" dans le "SelectByID" qui d'ailleurs devrait plutôt être "SelectByID2", de même que le "EditSuppress()" qui devrait être "EditSuppress2()"...

Set Model = swApp.ActiveDoc
boolstatus = Model.Extension.SelectByID2("Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = swModel.EditSuppress2()

Cordialement,

9

merci de ta reponse mais j'ai le meme resultat 

je te joins mon code entier 

Dim swApp As Object


Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Private Sub CommandButton1_Click()

Set swApp = CreateObject("SldWorks.application")

Set Model = swApp.ActiveDoc
boolstatus = Model.Extension.SelectByID2("Enlèv. mat.-Extru.1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = swModel.EditSuppress2()

Part.ClearSelection2 True


End Sub

 

et j'ai toujours la même erreur au final  "Erreur d'exécution "424" : Objet requis

10

Erreur de ma part dans un copier coller, remplace boolstatus = swModel.EditSuppress2() par boolstatus = Model.EditSuppress2()

11

super a fonction je te remercie beaucoup, j'ai galeré tout la semaine sur ce code merci énormement