---

Hallo zusammen,

ich möchte ein Textfeld das sich in einem anderen Blatt befindet auslesen und in eine Variablen schreiben.
Wäre schön wenn mir jemand helfen könnte.

Gruß

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

---

Hallo,

was ist dein genaues Problem? Wo hackt es den? Wie willst du sicherstellen das das Drawing (die Quelle) auch geöffnet ist?

Du siehst es gibt eine Menge Fragen zu deinem Problem. D.h. es ist nicht genau genug beschrieben. 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo!

Wie Daniel schon geschrieben hat, ist Deine Frage reichlich unspezifisch.
Mein Vorschlag wäre:
aktuelles Blatt merken
auf anderes Blatt wechseln
Textfeld finden
Text auslesen
auf gemerktes Blatt zurück wechseln
Gut so??

salu'
tobul

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

---

Servus
Ich nehme an dass sich die Frage auf den Beitrag bezieht.
Könnte so klappen (ungetestet):

Code:

---

CATMain ()
Dim Zeichnung as Document

Set Zeichnung = CATIA.Documents.ActveDocument

'Zeichnungsnummer auslesen

Set Blatt = Zeichnung.Sheets.Item("Details")
Set Texte = Blatt.Views.Item(2).Texts

For n = 1 to Texte.Count
  If Texte.Item(n).Name = "Text.67" then
    Zeichnungsnummer = Texte.Item(n).Text
    Exit For
EndIf
next

End Sub

---

Gruß
Bernd

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

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

---

Hallo bgrittmann,

wenn ich das jetzt richtig verstehe, gehst Du in deinem Makro davon aus, dass sich das Textfeld im Blatthintergrund befindet.
Was müsste ich ändern um dasn Textfeld in der Arbeitsansicht auszulesen.

Meine Ausgangssituation: Ich befind mich in der geöffneten Drawing in Blatt 1 und möchte die Zeichnungsnummer die in Blatt "Details" in einem Textfeld in der Arbeitsansicht ist, auslesen.

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

---

Hallo,

du musst folgende Zeile ändern

Set Texte = Blatt.Views.Item(2).Texts

in

Set Texte = Blatt.Views.Item(3).Texts

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

   

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

---

Hallo,

der Wert von "Text.73" wird nicht in Zeichnungsnummer geschrieben.
Wenn ich in Blatt "Details" im Blatthintergrund ein Textfeld einfüge kann ich diesen mit diesem Makro
"Set Texte = Blatt.Views.Item(2).Texts" auslesen. In der Arbeitsansicht funktioniert das nicht.

Das Blatt "Details" ist ein Detailblatt und hat einen blauen Hintergrund.

___________________________________________________________
Sub CATMain ()
Dim Zeichnung As Document
Dim Zeichnungsnummer As String

Set Zeichnung = CATIA.ActiveDocument

'Zeichnungsnummer auslesen
Set Blatt = Zeichnung.Sheets.Item("Details")
Set Texte = Blatt.Views.Item(3).Texts

For n = 1 to Texte.Count
  If Texte.Item(n).Name = "Text.73" then
    Zeichnungsnummer = Texte.Item(n).Text
    Exit For
End If
next
msgbox (Zeichnungsnummer)

End Sub
___________________________________________________________

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

---

Servus
Hast du mehrere 2D-Komponenten auf dem Blatt?
Bei mir funktioniert es mit dem Code, wenn sich der Text in der 1. Ansicht des Blatts "Details" befindet.
Wenn sich der Text direkt "auf dem Blatt" befindet (nicht in einer Ansicht) sollte es mit der Zeile:
Set Texte = Blatt.Views.Item(1).Texts
klappen.

Gruß
Bernd

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

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

---

"Hast du mehrere 2D-Komponenten auf dem Blatt?"

das wird die Ursache sein.

Das Texfeld ist Bestandteil einer 2D-Komponente "Sdandard Schriftfeld/ViewMakeUp.8/Details"

Wie schaut denn dann der Code aus?

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

---

Servus
Ich würde es mal mit:
Set Texte = Blatt.Views.Item("Standard Schriftfeld").Texts
versuchen.
Schau dir doch dazu mal die "V5Automation.chm" an.

Gruß
Bernd

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

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

---

Servus bgrittmann

es funktioniert.

Vielen Dank für deine Hilfe. javascript:InsertSMI(' %20');

Gruß und nochmal Danke

Für weitere Fragen mach ich am besten ein neues Thema auf.

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