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!;)

[-AK2T-]

Bonjour,

Aujourd’hui on applique automatiquement un type sur des pièces selon leur niveau via SetTextProperty :
Exemple :
TopElt.SetTextProperty "$part_type_property", "Panneau"

Le problème : si la pièce possède déjà un ou plusieurs types, ils sont écrasés par le nouveau.
J'ai essayé de lire les types existants avec GetTextProperty mais cette méthode ne retourne que le premier type (longueur tronquée confirmée).

Ce que j'ai testé sans succès :
GetTextProperty "$part_type_property" → retourne uniquement le 1er type
GetTextProperty "$part_type_property[0]" → retourne vide
SetTextProperty "$part_type_property[0]" + "[1]" → seul le dernier Set reste

Ma question : existe-t-il une méthode API permettant de lire tous les types présents sur une pièce afin de les conserver et d'ajouter un nouveau type uniquement s'il n'existe pas déjà ?

Merci d'avance !