---

Hallo zusammen,

da ich noch in den Anfängerschuhenstecke bei der Programierung habe ich eine Wahrscheinlich sehr einfache Frage!!

Ich will verschiedene Bodies suchen lassen und diese Dann umbenennen ähnlich wie das Delete Copy of nur das die meisten einen anderen Name haben...

Ich habe es mal so versucht

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As selection
Set selection1 = productDocument1.Selection  selection1.Search "Name=*TEST*,all"
   
For i = 1 To selection1.Count
selection1.Item(i).Name = Replace(selection1.Item  (i).Name, "TEST ", "SUPPE")

aber er benennt den Body nicht um sondern selektiert ihn nur...

Danke für eure Hilfe erstmal....    

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

---

Probiers mal damit:

selection1.Item(i).Value.Name = Replace(selection1.Item  (i).Value.Name, "TEST ", "SUPPE")

------------------
tomtom1972

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

---

Hallo tomtom,

habe ich schon versucht aber egel was da reinschreibe (TEST oder HALLO)der übernimmt die benenung nicht....
 

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

---

Hallo an alle zur Info,,

habe es gefunden woran Catia gescheitert ist...

so muß es heissen dann funktioniert

z.b.
selection1.Item(i).Value.Name = "5896" <- Namen den man ersetzen will

   

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

---

Hallo tomtom,

sorry aber bin jetzt erst dahinter gekommen was dein Tipp macht und der Funktioniert auch einwandfrei....

Mfg

Akrenz

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