TopSolid'Wood 6.24 / API : Appliquer une couleur aux pièces suivant leur niveau

[Fred_44780]

J'ai fais l'essai, il faut remplacer la ligne :

Code : Tout sélectionner

For Each TopElt In TopDoc.Elements

Par :

Code : Tout sélectionner

For Each TopElt In TopDoc.Shapes

C'est la même logique que le code que j'ai partager en première page de ce sujet

[Lorenzo]

J'avais déjà essayé ça, j'ai retenté et ça ne renvoie rien. J'ai essayé de supprimer la condition, et ça ne renvoie que l'élément de l'image ci-dessous.

[Fred_44780]

J'avais compris que tu n'arrivais à récupérer aucune info, au temps pour moi !

J'ai eu du mal mais j'ai fini par trouver (en tout cas, à partir de ton code celà fonctionne bien chez moi), il faut remplacer ta ligne :

Code : Tout sélectionner

If TopElt.Identifier = 16973 Then

Par celle-ci :

Code : Tout sélectionner

If TopElt.NameOrIdentifier = "@16973" Then

Le code entier:

Code : Tout sélectionner

Sub test()

    Set TopApp = New TopSolid.Application
    Set TopDoc = TopApp.CurrentDocument
    
        For Each TopElt In TopDoc.Shapes
    
        If TopElt.NameOrIdentifier = "@16973" Then
        
            Message = Message & "Désignation : " & TopElt.Designation & vbCrLf
            Message = Message & "Nom de l'index : " & TopElt.BomIndexName & vbCrLf
            Message = Message & "Identifiant : " & TopElt.Identifier & vbCrLf & vbCrLf
        
        End If
              
    Next TopElt
    
    MsgBox Message

End Sub

[AK2T]

Bonjour,

Savez vous si on peut attaquer la « Catégorie de Pièce » via vba? Je n’ai rien trouvé sur ce sujet dans l’aide API.

D’avance merci!:)

[Fred_44780]

Salut d'après mes recherches, ce n'est pas possible

[-AK2T-]

Salut Fred,
Après avoir cherché partout, j’en étais venu à la même conclusion… Dommage.
Bon bah on passe par les propriétés alors.

Merci pour ta réponse!;)