---

Hallo,

Ich hätt da mal wieder ne kleine Frage.

Code:

---

Sub CATMain()
.
.
.
Set oZgText1 = oZgTexts.Item(1)
Set oZgText2 = oZgTexts.Item(2)
.
.
.

End Sub

---

Ist es möglich und wenn ja wie das ich ein spezielles Textfeld - welches mir unter den Properties umbenannt wurde - anzusprechen,
weil ich die ganzen Textfelder erst alle einzeln "ausprobieren" muss (Itme(1); Item(2); Item(3) usw.) bis ich das haben will was ich brauche.

Ich hab schon probiert mit Item("[BEZEICHNUNG]") aber das nimmt der auch nicht :/.

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

---

Hallo,

könntest du dein Problem, bzw. dein Ziel etwas genauer beschreiben?
In welcher Workbench befinden wir uns, bzw. willst du ein Part, Product oder eine Drawing bearbeiten?

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Oh ja stimmt Sorry dachte das ging aus dem Thementitel hervor ^^'

Wir befinden uns in einer Drawing und in den eizelnen Views habe ich halt mehrere Textfelder die ich mir auslesen möchte.

Ich finde es halt problematisch das ich nicht genau sagen kann welches Textfeld für Catia jetzt genau Item(1)/(2) usw. ist.
Dies würde ich gern so weit fest  definieren in dem ich die Textfelder unter den Properties umbenenne und dann eben auf diesen Namen zugreifen kann.

Die einzelnen Views habe ich umbenannt und die lasses sich auch expliziet nach dem von mir geänderten Namen ansprechen,
nur leider funktioniert das nicht mit den Textfeldern die dort enthalten sind.

[Diese Nachricht wurde von Booyaka am 13. Jul. 2018 editiert.]

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

---

Hallo,

sorry, den Hinweis im Titel habe ich in der Tat überlesen.

Du kannst jede einzelne View durchlaufen und dann versuchen das Textfeld anzusprechen. Wenn es einen Fehler gibt ist es nicht vorhanden.

Beispiel:
For each oView in oSheet.Views
  On error resume next
    Set oText = oView.Text.GetItem("MeinTextFeldName")
    If err.number <> 0 then
        Msgbox "Text nicht da"
    Else
        Msgbox "Text da"
    End if
  On error goto 0
Next

Alternativ kannst du über die Selection Klasse eine Suche nach dem Textfeld über die gesamte Zeichnung durchführen.
Wird kein Textfeld gefunden (Selection.Count = 0) ist es nicht da.
Wird EINS (Selection.Count = 1) ist auch nur eines vorhanden.
Ist mehr als eins vorhanden (Selection.Count > 1) kannst du über die Parent Funktion die dazugehörige View ermitteln.

Hoffe das hilft weiter.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Super tausend und einen dank 

GetItem wars gewesen damit kann man dann auch Textfelder die man umbenannt hat direkt ansprechen.

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

---

Hallo,

noch zwei Hinweise:

1. Nicht vergessen wieder auf On Error Goto 0 umzuschalten.
2. GetItem könnte ein Problem sein wenn es mehr als ein Textfeld mit dem gesuchten Namen gibt. Dann wird meine ich das erste genommen.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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