---

Hallo,

ich habe folgendes CATScript Makro zum Umbenennen von Teilenummern.
Leider funktioniert es nur bei Parts und Produkts in der ersten Produktebene.
Kann man dies so umschreiben, dass es auch Namen in Unterprodukten/Parts umbenennt?

Sub traverse(Prod, origstr, newstr)
  set refp = Prod.ReferenceProduct
  if instr(refp.Name, origstr) then
    newpname = Replace(refp.Name, origstr, newstr)
    refp.Name = newpname
  end if
  if instr(refp.PartNumber, origstr) then
    newpnum = Replace(refp.PartNumber, origstr, newstr)
    refp.PartNumber = newpnum
  end if
  Set prods = Prod.Products
  pc = prods.Count
  If pc > 0 then
    For i = 1 to pc
      traverse prods.Item(i), origstr, newstr
    Next
  End If
End Sub

Sub CATMain()
  Set actProd = CATIA.ActiveDocument.Product
  origstr = Inputbox ("Bitte eingeben welcher String ersetzt werden soll. Auf Gross/Kleinschreibung achten!")
  newstr = Inputbox ("Bitte neuen String eingeben")

  traverse actProd, origstr, newstr
End Sub

Gruß Norman

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Hallo,
schau mal nach Suchen und ersetzen

------------------
Sei Schlau bleib Dumm !!?!!

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