---

Hallo zusammen,
ich habe eine Frage.
Ich bin dabei ein Macro so abzuändern, das ich damit ein Produkt und alle darin enthalten Parts umbenennen kann.

Alter Name:
Symmetry of 6125015__0010__Konsole_01

soll in:
6125015__0010__Konsole_01  _spg umbenannt werden.

D.h. ich will die PartNumber so abändern das immer "Symmetry of " am anfang gelöscht wird und am Ende der PartNumber der Zusatz "_spg" erscheint.

Hierfür habe ich ein Umbenennungsmacro als vorlage genommen und folgendermaßen abgeändert:

Sub traverse(Prod, origstr, newstr)
  set refp = Prod.ReferenceProduct
origstr= "Symmetry of " 'Leerzeichen hinter "of"
newstr = ""
  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

  traverse actProd, origstr, newstr
End Sub

Wenn ich in Zeile 4 eingebe: origstr= "Symmetry of" (ohne Leerzeichen hinter "of") funktioniert das Makro einwandfrei. Problem hinter dem "Symmetry of " befindet sich ein Leerzeichen. Wenn ich in Zeile 2 eingebe: "Symmetry of " (mit Leerzeichen) funktioniert das Makro leider nicht.

Es erscheint eine Fehlermeldung (siehe Anhang).

Kann mir jemand weiterhelfen?

Und kann mir jemand bei der Macroerweiterung helfen, sodass an jede PartNumber von allen Teilen des Produkts als Namenszusatz "_spg" erscheint?

Grüße
Svenja

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

---

Hi Svenja,

Schreib statt(ungetestet):

Code:

---

  if instr(refp.Name, origstr) then
    newpname = replace(refp.Name, origstr, newstr)
  end if

---

besser

Code:

---

  if left(refp.Name,11 )="Symmetry of" then
    newpname = mid(refp.Name, 11) & "_spg" 'bei dem Startwert musst eventuell 12 oder 13 nehmen; ungetestet!
  end if

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi Joe,
danke! hat super geklappt.

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