Bonjour ,
Je suis tout nouveau sur SolidWorks ( j'ai commencé à faire mes premières pièces il y a une semaine :) ) . Aujourdui je souhaite en écrivant dans Excel la valeur de certaines variables , les faire variées dans mon fichier solidWorks . Pour ce qui est des Esquisse j'ai réussi à le faire . Cependant pour changer le matériaux je n'y arrive pas.
Mon programme pour les esquisse est en deux parties, la première qui lit les informations dans mon SolidWorks, la deuxième qui modifie le solidworks en fonction des valeurs entrée dans l'Excel .
Voici ce que j'ai dans ma macro :
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
' Ajoute la cote selectionnées sur le tableau
Sub AddSelectedDimension()
Dim swDimension As SldWorks.Dimension
Dim SwMaterial As SldWorks.MaterialVisualPropertiesData
Dim exSheet As Worksheet
Set swApp = CreateObject("SldWorks.Application")
Set swDoc = swApp.ActiveDoc
Set exSheet = ThisWorkbook.ActiveSheet
If swDoc Is Nothing Then
MsgBox "Il n'y a pas de document actif", vbExclamation
Exit Sub
End If
' Selection d'une cote et affectation à une cellule (ligne, colonne)
Set swDimension = swDoc.Parameter(exSheet.Cells(2, 1))
exSheet.Cells(2, 2) = swDimension.Value
Set swDimension = swDoc.Parameter(exSheet.Cells(3, 1))
exSheet.Cells(3, 2) = swDimension.Value
Set swDimension = swDoc.Parameter(exSheet.Cells(4, 1))
exSheet.Cells(4, 2) = swDimension.Value
Set swDimension = swDoc.Parameter(exSheet.Cells(5, 1))
exSheet.Cells(5, 2) = swDimension.Value
Set swDimension = swDoc.Parameter(exSheet.Cells(6, 1))
exSheet.Cells(6, 2) = swDimension.Value
Set SwMaterial = swDoc.Parameter(exSheet.Cells(7, 1))
exSheet.Cells(7, 2) = SwMaterial.Value
End Sub
Ci-joint un screen de ma partie EXCEL
Pour afficher les valeurs du solidworks sur Excel je clique sur un bouton Lecture cote et pour modifier les valeurs je les modifie puis je clique sur un bouton modifier les valeurs .
J'aimerais dans la case en dessous ( en dessous de D1@Plan5 ) faire de même mais avec le matériau , est-ce possible ? et si ça l'est pouvez vous m'aider s'il vous plaît ?
Quoi qu'il en soit merci d'avoir pris le temps de me lire :)
Cordialement
VERMEESCHE Marc
captureprogramme.png