---

BodysErsetzenUmbennen.jpg

Hallo Kollegen,

ich habe ein Problem mit der Umbenennung der einzelnen Bodys.
Und zwar habe ich mehrere Bodys die gleichzeitig einen Teil der Benennung umbenannt weden müssen.
In meinem Beispiel geht es um den letzten Teil der Benennung von
9.29 / 99000095_FRAESEN_UNTEN in 9.29 / 99000095_UZSB_RAHMEN_MIT_BODEN_MIG

Er muss also den Teil _FRAESEN_UNTEN in _UZSB_RAHMEN_MIT_BODEN_MIG umbenennen/ersetzen.Der Vordere Teil , also die Nummer muss bestehen bleiben.

Bei mir komme ich da ganz schnell auf 300 Bodys die ich immer händisch umbenennen muß, das kostet eine Menge Zeit.

Vielleicht gibt es dazu eine Suchfunktion, so wie in Excel. Suchen und Ersetzen.

Bin für jeden Vorschlag offen

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

---

Servus

Das geht vermutlich nur mit einem Makro.
(Vorlage siehe zB hier)

Gruß
Bernd

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

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

---

Ja das denke ich auch, aber ich habe keine Ahnung wie .

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

---

Servus

Hier ein Muster (CATScript) das du eventuell entsprechend verbessern/anpassen kannst:

Code:

---

Sub CATMain()

Dim oPartDocument As PartDocument
Dim oPart as Part
Dim oBody As Body
Dim oBodies As Bodies

Dim sOldString as String
Dim sNewString as String

sOldString = "der_Alte_Name"
sNewString = "der_neue_Name"

Set oPartDocument = CATIA.ActiveDocument
Set oPart = oPartDocument.Part
Set oBodies = oPart.Bodies

For i=1 To oBodies.count
  Set oBody = oBodies.Item(i)
  if InStr(oBody.Name, sOldString) <> 0 then
      oBody.Name = Replace(oBody.Name, sOldString, sNewString)
  end if
Next

oPart.Update

End Sub

---

Gruß
Bernd

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

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

---

Oje,

vielen Dank für deine Antwort, aber ich bin da in Schen Skript überhaupt nicht auf der Höhe.
Ich weiß nicht was ich da austauschen muss

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

---

Kleiner Tipp: in den Zeilen mit sOldString und sNewString den Text in den Hochkommas anpassen.

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

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

---

Super Vielen Dank hat geklappt.

DAAAAAAAAnke

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