---

Parts_umbenennen.jpg

Hallo alle miteinander.

Ich hab folgendes Problem:
Ich habe ein Product, dessen Baum ich als Bild mit geschickt hab. Ich möchte nun mit Hilfe eines Makros die Partnamen und Productnamen der Unterprodukte ändern. Es soll ein Eingabefenster erscheinen, so dass ich anstatt der 000000 eine andere beliebige Zahl eingeben kann, die dann die 000000 in allen Namen ersetzt.

Kann mir jemand weiterhelfen?
Dnke im Voraus!

------------------
Wenn du sie nicht überzeugen kannst, verwirre sie!

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

---

Hallo

hast Du schonmal die Suche benutzt???
Das wurde schon des öfteren hier besprochen, glaub ich.

Ansonsten schau mal ob das hier weiterhilft

Sub CATMain()

String5 = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")
String3 = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Test")

    Set productDocument1 = CATIA.ActiveDocument   
    Set selection1 = productDocument1.Selection   
    selection1.Search "(CATAsmSearch.Part),all"
    For i = 1 To selection1.Count       
        Set productDocument1 = CATIA.ActiveDocument       
        Set product1 = productDocument1.Product     
        Set products1 = product1.Products       
        Set product2 = products1.Item(selection1.Item(i).Value.Name) 
        String2=product2.partnumber
        String4=product2.name 
        Dim Text1, Text2, Text3, Vergleich, Text4
        Text1 = String2
        Text2 = String5
        Text3 = String3
        Text4 = String4
        Vergleich = Replace(Text1, Text2, Text3)     
        product2.partnumber=vergleich
        Vergleich2 = Replace(Text4, Text2, Text3)
        product2.name=Vergleich2

Next

End Sub

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

---

fehlermeldung.jpg makro.jpg

Hallo Augustiner,

zunächst mal vielen Dank für deine schnelle Antwort!
Also wenn ich das Makro so schreibe kann ich nur die ersten drei Parts umbenennen, dann wird mir eine Fehlermeldung gezeigt. Ich hab sie mal beigefügt.

Wenn ich anschließend das Makro editiere, wird mir gezeigt, wo der Fehler liegt, allerdings weiß ich nicht, wie ich ihn korrigieren kann...
Kannst du mir nochmal helfen? Bin Anfänger was Makros angeht...

Danke!

------------------
Wenn du sie nicht überzeugen kannst, verwirre sie!

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

---

Hi

du könntest auch ein Schleife für alle offenen Dokumente machen, vielleicht reicht das ja für deine Zwecke.

MfG

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

---

Hallo,

muss meinen letzten Beitrag korrigieren, er benennt alle Parts um und steigt beim ersten Unterprodukt aus.

Wie kann ich diese Schleife für alle offenen Dokumente realisieren?

Gruß

------------------
Wenn du sie nicht überzeugen kannst, verwirre sie!

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

---

Hallo

Set AllCATIADocuments = CATIA.Documents

For i =1 To AllCATIADocuments.Count

PartNameAlt = AllCATIADocuments.Item(i).Product.PartNumber

Next

mfg

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

---

moin,

ich würde den ganzen Strukturbaum des gewünschten Documents traversieren und dabei alle Namen und Partnumbers ändern:

Code:

---

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 ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")
  newstr = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Test")

  traverse actProd, origstr, newstr
End Sub

---

Das hat den Charme, das mehrere unterschiedliche CATProducts offen sein dürfen und du nur das ActiveDocument änderst.

CU
  Tapani

------------------
Don't take life so seriously....
it's not a permanent  condition

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

---

Hallo Tapani.

Vielen Dank für den Tipp. Jetzt funktioniert es!

Danke nochmal an alle!
Hoff ich kann mich mal revanchieren und euch helfen

------------------
Wenn du sie nicht überzeugen kannst, verwirre sie!

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

---

Hallo jungs,

was passiert aber mit den Links im VisuMode????

eine Antwort?

Gruss, Chris

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

---

Hallo,

habe mal 'ne Frage zu dem Umbenennen-Makro.
Wie sieht denn die Erweiterung aus, wenn sich der Instancename auch gleich mit ändern soll?

Für Infos hierzu wäre ich dankbar.

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