---

Naben zusammen,

wie muss ich den Code anpassen das die selection.search nur im Aktiven Sheet des Drawings sucht und nicht im gesamten.
Da das gesamte aus mehreren Sheets besteht.

Code:

---

Set drwdocument = CATIA.ActiveDocument
Set DrwSheets = drwdocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet


Dim selection1 As Selection
Set selection1 = drwdocument.Selection

selection1.Search ("Name=*Test*")

---

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

---

Servus
zB Sheet selektieren und dann nur in der Selektion suchen:

Code:

---

Set drwdocument = CATIA.ActiveDocument
Set DrwSheets = drwdocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet

Dim selection1 As Selection
Set selection1 = drwdocument.Selection

selection1.clear
selection1.add DrwSheet

selection1.Search ("Name=*Test*,sel")

---

Gruß
Bernd

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

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

---

Hallo Bernd,
vielen Dank für die Antwort, so klappt es.

Stehe jetzt aber vor dem nächsten Problem.
Möchte das selektierte Element umbenennen, dass klappt bei mir bis jetzt aber nur bei normal erstellten Textfeldern, nicht wenn ich eins aus einem Detailblatt einfüge, da kommt es zu einem Fehler.

Code:

---

Set drwdocument = CATIA.ActiveDocument
Set DrwSheets = drwdocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet
Dim selection1 As Selection
Set selection1 = drwdocument.Selection

selection1.clear
selection1.add DrwSheet

x="Text zugewiesen"

selection1.Search "Name=*Test*,sel"

For i=1 to selection1.Count
selection1.item2(i).Value.Text = x
Next

---

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

---

Servus
Bei Details ist das wohl etwas anders. Siehe zb hier.
Willst du das Deatil an sich bearbeiten (alöso die Vorlage), das Detail zerlegen und dann bearbeiten, oder einen modifizierbaren Text im Detail bearbeiten?

Gruß
Bernd

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

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

---

Ich würde gerne einen modifizierbaren Text im Detail bearbeiten, nur auf dem aktiven Blatt.

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

---

Servus
Dann tritt wohl die schon verlinkte Diskussion zu. (hier)

Gruß
Bernd

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

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

---

Hallo Bernd,

ja die trifft zu. Habe mir mit Hilfe dieser mein Makro so angepasst das es funktioniert. Muss es nur noch auf meine Bedürfnisse anpassen und sauber aufschreiben, da es im Moment noch alles zusammenkopiert ist.

Vielen Dank.

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