---

Hallo Forum,

hat schon einmal jemand den Blatt(sheet)-Namen in den Zeichnungskopf gemapped.
Ich würde das gerne ohne Programmierung machen.
Ist jedoch dynamisch da ich im Vorfeld nicht weiss, wie viele Blätter ich in der CATDrawing bekomme.

Grüße
Norbert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Norbert

Meine Idee dazu: Im Startmodell der Zeichnung eine Reaction erstellen, dass dann ein entsprechendes Makro ausführt (ist somit direkt in der Zeichnung integriert)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

sind die Blattnamen umbenannt, oder haben die den Standard-Namen von Catia?
Wenn die Blattnamen über Properties umbenannt sind bekommen sie ein "Alias" und den kann man an ein Textfeld hängen.

Also bei "Attribut link" das Blatt auswählt (sollte schon aktive sein), dann im Dialogfenster Alias auswählen.
Wenn man dann das Blatt kopiert und umbenennt ändert sich auch das Textfeld.

Gruß Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für eure Antworten,
@Markus, das mit dem alias bekomme ich nicht hin.

Ich habe es jetzt doch mit einem script gelöst:

[/i]

Code:

---

Sub SheetnameInBackground()

    ' Deklaration der Variablen
    Dim oDoc As drawingDocument
    Dim oSheets As drawingSheets
    Dim oSheet As drawingSheet

    ' Aktives Dokument abrufen
    Set oDoc = CATIA.ActiveDocument

    ' Blätter im Dokument abrufen
    Set oSheets = oDoc.Sheets
  ' Set oSheet = oSheets.ActiveSheet

'Get Sheetname
Dim Sheetname
Dim i
For i = 1 To oSheets.Count
Set oSheet = oSheets.Item(i)
Dim oBackView
Set oBackView = oSheet.Views.Item("Background View")

Set oSheet = oSheets.Item(i)
Sheetname = oSheet.NAME
'MsgBox Sheetname
   
    ' Loop through all text objects in the background view
    Dim textObj2 As drawingText
    For Each textObj2 In oBackView.Texts
        ' Check if the text object has the name "sheetName"
        If textObj2.NAME = "sheetName" Then
            ' Modify the text content
            textObj2.Text = Sheetname
           
            Exit For
        End If
    Next textObj2
   
    Next
   
End Sub

---

Gruß Norbert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bildschirmaufnahme.zip

Hallo Norbert,

ich habe mal ein kurzes Video als Anleitung. Ist eigentlich ganz einfach,
das Zeichnungsblatt muss zuerst allerdings einmal umbenannt werden.

Gruß
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Peter,

vielen herzlichen Dank. Das war genau das, was ich gesucht habe.
Perfekt.

Gruß
Norbert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP