Hoe maak ik een tekstkader dat automatisch het aantal lagen ophaalt?

2D plans Layout
1

Hallo 

Ik probeer een tekstkader te maken in de tekeningen op CATIA dat automatisch het aantal bestaande lagen in het bestand weergeeft. Ik heb geprobeerd de tekst te binden aan een parameter die deze gegevens ophaalt, maar het lukt me niet om het in te stellen. 

Iedereen weet hoe het te doen, of moet het gaan via een macro in plaats daarvan?

Bij voorbaat dank.

2

Hallo.

Het zou beter zijn om door een macro te gaan (niet mijn vakgebied), het vermijdt altijd het gebruik van dezelfde CATdrawing (startmodel).

Anders handmatig implementeren:

U moet een parameter "String" maken

Koppel deze parameter 'fx'  aan een formule op de alias van de laag.

Maak een tekstvak dat "gekoppeld is aan het attribuut" (de parameter "string").

RQ: de tekst wordt pas bijgewerkt nadat de laagnaam is gewijzigd

"Eigendom."

EDIT: Ik las te snel (begreep de naam van de laag) in plaats van het aantal lagen.

3

Dixit: (Ik heb geprobeerd de tekst te binden aan een parameter die deze gegevens ophaalt, maar ik krijg het niet op zijn plaats). 

Hoe haal je het aantal lagen van een CATDrawing in een parameter op??

Afgezien van macro zie ik niet hoe je het doet?

4

Hallo

Hier is een macro die de weergavelagen en de detaillagen telt

Het aantal lagen van de weergaven wordt toegewezen aan een gebruikersparameter met de naam "nb_calques", die van het type geheel getal is
 

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

 

Het enige wat u nog hoeft te doen is uw tekst te maken en deze aan uw parameter te koppelen

Start de macro natuurlijk opnieuw op wanneer dat nodig is

PS: de macro geeft een dialoogvenster weer dat er alleen is om te laten zien dat "het aantal lagen" een beetje wazig is om precies te weten waar we het over hebben.

5

Hallo 

Dank u beiden voor uw antwoorden. Uiteindelijk moest ik de macro van vince.roullier gebruiken, bedankt voor je hulp!