Comment créer un cadre de texte qui récupère automatiquement le nombre de calques?

Plan 2D Mise en plan
1

Bonjour, 

Je cherche à créer dans les mises en plan sur CATIA un cadre de texte qui affiche automatiquement le nombre de calques existants dans le ficher. J'ai essayé de lier le texte à un paramètre qui recupère ces données, mais je n'arrive pas à le mettre en place. 

Quelqu'un saurait comment le faire, ou s'il faudrait passer plutôt par une macro?

Merci d'avance.

2

Bonjour.

Ce serait mieux de passer par une macro (pas mon domaine) cela évite d'utiliser toujours le même CATdrawing (model de départ).

Autrement pour mettre en oeuvre manuellement :

Il faut créer un paramètre "Chaine"

Associer ce paramètre "fx"  par formule sur l'alias du calque.

créer une zone de texte que l'on "lie a l'attribut" (Le paramètre "chaine").

RQ : la mise a jour du texte ne ce feras qu'aprés modification du nom du calque

"Propriétée."

EDIT : j'ai lue trop vite (compris le nom du calque) au lieu du nombre de calque.

3

Dixit : (J'ai essayé de lier le texte à un paramètre qui recupère ces données, mais je n'arrive pas à le mettre en place). 

Comment tu récupère le nombres de calques d'un CATDrawing dans un paramètre ??

A part par macro je ne voie pas comment tu fait ?

4

Bonjour,

voici une macro qui compte les calques des vues et ceux de détail

le nombre de calque des vues est affecté a un paramètre utilisateur nommé "nb_calques" qui est de type entier
 

Sub Nb_CalqueDeVues()

' définition des variables
Dim i As Integer
Dim nb_CV As Integer ' nombre de calques de vues

'
    With CATIA.ActiveDocument.Sheets
        nb_CV = 0
        ' boucle sur tous les calques du fichier
        For i = 1 To .Count
            ' verifie si le _
                calque est un calque de vue ou de détail
            If .Item(i).IsDetail = False Then
                nb_CV = nb_CV + 1
            End If
        Next
        
    MsgBox .Count & " calques au total." & Chr(10) & Chr(10) & nb_CV & _
    " calques de vues" & Chr(10) & .Count - nb_CV & " calques de détails"

End With

' affecte le nombre de calque de vues au parametre du drawing
CATIA.ActiveDocument.Parameters.Item("nb_calques").Value = nb_CV

End Sub

 

il ne reste plus qu'a créer ton texte et a le lier a ton paramètre

biens sur relancer la macro a chaque fois que nécessaire

PS : la macro affiche une boite de dialogue qui n'est là que pour montrer "le nombre de calque" est un peu flou pour savoir exactement de quoi l'on parle .

5

Bonjour, 

Merci à tous les deux pour vos réponses. Finalement j'ai dû utiliser la macro de vince.roullier, merci de ton aide!