---

Den Zeichenrahmen und Zeichenkopf einer Zeichnung/Drawing erstelle ich, indem ich ein vorhandenes StandardMuster.CATDrawing per 'Seite einrichten' -> Hintergrund importiere.

In diesem StandardMuster existerien bereits Textboxen (Komponentenname bspw. 'TitleBlock_Text_Datum'), auf welche ich per Makro zugreifen will.

(1) Als ersten Schritt reicht mir, den Inhalt der Textbox mit "Hallo Welt" zu ersetzen. Wie kann ich die Textbox 'TitleBlock_Text_Datum' ansprechen und beschreiben lassen (Format beibehalten)?

(2) In einem weiteren Schritt möchte ich nicht nur festen Text, sondern verschiedene Parameter schreiben lassen:
+ Datum der Zeichnungserstellung (2D-Datei)
+ Datum der Konstruktion (3D-Datei)
+ Benutzername des Zeichnungserstellers
+ Benutzername des Konstrukteurs
+ Maßstab
+ Gewicht
+ Benennung des Bauteils
+ Seitenzahlen
etc.
Wie greife ich auf den Benutzernamen oder das Konstruktionsdatum zu?

Leider zeichnet die Makroaufzeichnung die Vorgänge nicht mit, so dass ich so ziemlich verloren bin.

Vielen Dank im Voraus für deine Hilfe!

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

---

Servus
Willkommen im Forum.
Schau dir mal diese Diskussion an.
Dort werden Datum und Username sowie das Uugreifen auf Textfelder (sowie vieles weitere mehr) behandelt bzw ist im Code integriert.

Gruß
Bernd

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

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

---

Danke für den Code. Ich bin seit den letzten 7h erfolglos an diversen Codes dran, bin aber trotz einiger Programmiererfahrung sehr einfältig, wenn es zu objektorientierter Sprache kommt (liegt mir irgendwie noch nicht).

Gibt es auf Frage (1) möglicherweise einen einigermaßen nachvollziehbaren Einzeiler?

<Umgebung/Sheet/BackgroundView/etc>.TitleBlock_Text_Datum.Text = "Hallo Welt"

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

---

Servus
Leider nein, da man das Textfeld nicht per Namen ansprechen kann (bei Blättern und View geht es) sondern nur über den Zähler:

Code:

---

msgBox catia.activedocument.sheets.item(1).views.item(2).texts.item("TextDatum").text '1. Blatt, 2. View = Background, 1. Text

---

Gruß
Bernd

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

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

---

Drawing1.zip

Zitat:

---

Original erstellt von aerofalcon:

Gibt es auf Frage (1) möglicherweise einen einigermaßen nachvollziehbaren Einzeiler?

<Umgebung/Sheet/BackgroundView/etc>.TitleBlock_Text_Datum.Text = "Hallo Welt"[/B]

---

Hallo,
vielleicht hilft Dir das hier weiter,
Stichwort Attributverknüpfung:

Text.1
Parameter vom Typ String angelegt
Textfeld über Attributverknüpfung mit Parameter verlinkt
Catscript öffnet Inputbox
Inhalt der Inputbox wird an Parameter übergeben, Textfeld wird angeglichen

Text.2
Attributverknüpfung mit Blatt.1\ViewMakeUp.1\Scale

Gruß
Peter

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