---

Hallo, ich möchte an meine Suche die Erweiterung hinzufügen, das nur Text im SHOW gesucht wird? Kann mir jemand mit der richtigen Schreibweise weiterhelfen.
Selection1.Search "CATDrwSearch.DrwText.TextString=" & StrSearchedString & ",sel"

------------------
mfg
Erich

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

---

Servus Erich

Das lässt sich gut mit dem Makrorekorder aufzeichnen:

Code:

---

Selection1.Search "CATDrwSearch.DrwText.Visibility=Visible & CATDrwSearch.DrwText.TextString=" &  StrSearchedString & ",all"  'überall suchen bzw ,sel für nur in der Selektion

---

Gruß
Bernd

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

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

---

Hallo Bernd
diesen Code hatte ich auch schon. Funktioniert nicht!
Keine Fehlermeldung. Wenn man die Selektion verfolgt kann man sehen
das er im NoShow die Elemente highlighted.

------------------
mfg
Erich

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

---

Servus Erich

Bei mir geht es.
Probier mal in deinem Release das ganze manuell und dann aufzuzeichnen.

Gruß
Bernd

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

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

---

Hallo Bernd
kannst Du mir den Code kopieren.

------------------
mfg
Erich

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

---

Gegenfrage: Wie sieht dein Code denn aus, der nicht läuft?

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

---

Moin,

also unter Release 30 läuft folgender Code:

Code:

---

Dim sel As Selection
Set sel = CATIA.ActiveDocument.Selection
sel.Search "Drafting.Text.Visibility=Shown;all"
End Sub

---

Gruß Randle

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

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

---

Hallo Randle
wie schon zuvor erwähnt ist das Problem, den Textfeldinhalt abzufragen?
Die sichtabren Texte, in Deiner Selection bringen mir nur den Textfeldnamen aber nicht den Inhalt?

------------------
mfg
Erich

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

---

Moin,

das hatte ich wohl überlesen.
Dann sollte es so gehen (R30):

Code:

---

Sub CATMain()
Dim sel As Selection
Set sel = CATIA.ActiveDocument.Selection
sel.Search "(Drafting.Text.Visibility=Shown & Drafting.Text.'Text String'=*imshow*);all"
End Sub

---

Statt "imshow" musst du halt deinen Suchstring eintragen.

Gruß
Randle

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

[Diese Nachricht wurde von Randle am 07. Apr. 2022 editiert.]

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

---

Hallo Randle
Teilerfolg mit Deiner Suche. Den Inhalt kann ich noch nicht ansprechen. Der soll in einen ExcelSheet geschrieben werden zusätzlich möchte ich den SUCHTEXT in die Suche übernehmen.

StrSearchedString = "SUCHTEXT"

Selection1.Search "(Drafting.Text.Visibility=Shown & Drafting.Text.'Text String'=StrSearchedString);all"

excelsheet.Cells(m+1, 1).Value = Selection1.item(j).value.name ???

------------------
mfg
Erich

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

---

Code:

---

Sub CATMain()
Dim DrwText As DrawingText
Dim sel As Selection
Set sel = CATIA.ActiveDocument.Selection
sel.Search "(Drafting.Text.Visibility=Shown & Drafting.Text.'Text String'=*imshow*);all"

If sel.Count > 0 Then
    MsgBox sel.Item(1).Value.Text
'oder
    Set DrwText = sel.Item(1).Value
    MsgBox DrwText.Text
End If
End Sub

---

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

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