Jak utworzyć ramkę tekstową, która automatycznie pobiera liczbę warstw?

2D plans Layout
1

Witam 

Próbuję utworzyć ramkę tekstową na rysunkach w programie CATIA, która automatycznie wyświetla liczbę istniejących warstw w pliku. Próbowałem powiązać tekst z parametrem, który pobiera te dane, ale nie mogę go skonfigurować. 

Ktoś wie, jak to zrobić, czy zamiast tego powinien przejść przez makro?

Z góry dziękuję.

2

Witam.

Lepiej byłoby przejść przez makro (nie moja dziedzina), unika się zawsze używania tego samego rysunku CAT (modelu początkowego).

W przeciwnym razie, aby zaimplementować ręcznie:

Musisz utworzyć parametr "String"

Skojarz ten parametr "fx"  z formułą na aliasie warstwy.

Utwórz pole tekstowe, które jest "połączone z atrybutem" (parametr "Ciąg").

RQ: tekst zostanie zaktualizowany dopiero po zmianie nazwy warstwy

— Własność.

EDIT: Czytałem za szybko (zrozumiałem nazwę warstwy) zamiast liczby warstw.

3

Dixit: (Próbowałem powiązać tekst z parametrem, który pobiera te dane, ale nie mogę go wprowadzić na miejsce). 

Jak pobrać liczbę warstw CATDrawing w parametrze?

Poza makro nie widzę jak to robisz?

4

Witam

Oto makro, które zlicza warstwy widoku i warstwy szczegółów

Liczba warstw widoków jest przypisana do parametru użytkownika o nazwie "nb_calques", który jest typu liczba całkowita
 

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

 

Wszystko, co pozostaje do zrobienia, to utworzenie tekstu i powiązanie go z parametrem

Oczywiście w razie potrzeby uruchom ponownie makro

PS: makro wyświetla okno dialogowe, które jest tam tylko po to, aby pokazać, że "liczba warstw" jest nieco rozmyta, aby dokładnie wiedzieć, o czym mówimy.

5

Witam 

Dziękuję obojgu za odpowiedzi. W końcu musiałem użyć makra vince.roullier , dziękuję za pomoc!