Bonjour,
Finalement, j'ajoute des conditions au renommage des pièces en fonction d'une propriété de configuration que créer SWOOD.
J'ai ébauché une macro, mais j'ai du mal a comprendre correctement comment fonctionne le dialogue avec solidworks.
J'arrive a obtenir tous les enfants différents que possède mon assemblage.
Maintenant j'aimerais reussi a vérifier qu'une propriété est belle est bien existante dans chacun d'eux, si oui je le renomme sinon, je passe au suivant.
Pouvez vous m'aider ? Je poste le début de mon code.
Merci d'avance, bonne journée.
Dim swApp As Object
'Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swAssy As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
Dim bool As Boolean
Dim Bois As String
Dim nom() As String
Dim list As String
Dim retval() As String
Dim texte As String
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
If swModel.GetType = swDocASSEMBLY Then
retval = swModel.GetDependencies2(False, False, False)
ReDim nom(1 To ((UBound(retval) - 1) / 2) + 1)
For i = 0 To (UBound(retval) - 1) / 2
Set swModelDocExt = swModel.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("SWOODCP_PanelStockLength", True, val, valout)
Debug.Print "Value: " & val
Debug.Print "Evaluated value: " & valout
Debug.Print "Up-to-date data: " & bool
texte = texte & retval(2 * i) & vbCr
Next i
End If
MsgBox (texte)
End Sub