---

Hallo zusammen,

zur Zeit habe ich einige WKZ von externen Lieferanten, die wohl nicht im Catia konstruiert wurden und "nur" umgewandelt wurden...
Leider gibt es viele umlaute im Namen, die ich aber mit einem "Search and Replace" Makro beheben konnte.

Es gibt aber zusätzlich viele Namen die mehrfach vergeben sind.
Gibt es da eine Möglichkeit einen "Zähler" einzubauen?
So das die Parts einfach "gezählt" werden und das im Namen dazu kommt?

Wäre super wenn ihr mir helfen könntet....

------------------
###83SchuWa###

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

---

Ja, die Möglichkeit gibt es.

Code:

---

i=0
For Each oProduct in oPProductsToRename
    i = 1+1
    oProduct.PartNumber= oProduct.PartNumber & i
Next

---

Welche Products möchtest du denn umbenennen?
Wie findet dein Makro sie?

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

---

Super Danke.
Werde es gleich mal probieren....

Code:

---

'Product: Macro replaces strings in Instance name / Part: Macro is searching for string and replaces it

Sub CATMain()
on error resume next
  Set actProd = CATIA.ActiveDocument.Product
  DName = CATIA.ActiveDocument.FullName
  origstr = Inputbox ("Insert string to replace", "Search and Replace (old string)")
  If origstr <> "" then
  Fehler = 0
  else
  Fehler = 1
  msgbox ("Please enter valid string and try again!")
  Exit Sub
  End If
  newstr = Inputbox ("Insert new string", "Search and Replace (new string)")
 
If Fehler = 0 then 
  If InStr(DName, "CATProduct") Then
traverse actProd, origstr, newstr
else
If InStr(DName, "CATDrawing") Then
msgbox ("In Drawing Workbench only names in tree will be replaced!"&Chr(10)& "Text inside views can be replaced by edit --> replace!")
End If
SearchCatPart origstr, newstr
End If
End IF

End Sub

'*******************************************************************************************************

Sub traverse(Prod, origstr, newstr)

  set refp = Prod.ReferenceProduct
 
  if instr(refp.Name, origstr) then
    newpname = Replace(refp.Name, origstr, newstr)   
    on error resume next
    refp.Name = newpname
    fehler=Err.Number
    On Error Goto 0
    If fehler <> 0 then
    Box = MsgBox("file:" + Chr(10) + (refp.Name) + Chr(10) + "is causing the error!" + Chr(10) + "special characters in name?" + Chr(10) + "please correct first!", vbInformation, "error!!!")
    Exit Sub
    end if
  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 SearchCatPart(origstr, newstr)

Set activePart = CATIA.ActiveDocument
Set selection1 = activePart.Selection
selection1.Clear
selection1.Search "Name=*"&(origstr)&"*,all"

For n=1 to selection1.count
set selection2 = selection1.Item(n).value
selection2.name = replace(selection2.name, origstr, newstr)
Next

selection1.Clear
End Sub

'*******************************************************************************************************

Sub SearchCatDrawing(origstr, newstr)

Set activePart = CATIA.ActiveDocument
Set selection1 = activePart.Selection
selection1.Clear
selection1.Search "CATDrwSearch.DrwText.TextString='"&origstr&"',all"

For n=1 to selection1.count
set selection2 = selection1.Item(n).value.text
selection2 = replace(selection2, origstr, newstr)
Next

selection1.Clear
End Sub

---

###83SchuWa###

[Diese Nachricht wurde von 83SchuWa am 22. Mrz. 2024 editiert.]

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

---

Servus

Was möchtest du alles umbenennen? Alle Feature (Bodies, GeoStes, Geometrie, ...)?
Ist der "Zähler" der Feature davor nicht eindeutig?

Gruß
Bernd

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

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

---

Moin,
Eigentlich nur die Parts.
Meist sind es ja "Dumme" Konstruktionen...
Bei einer in Catia erstellten ist es ja nicht möglich Bauteile gleich zu benennen.

------------------
###83SchuWa###

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

---

Servus

Ich würde wohl erst die Namen der verbauten Parts und Products (PartNumber) korrigieren und dann die Instanzname anpassen (siehe zB inoffizielle Catia Hilfeseite)

Gruß
Bernd

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

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

---

Moin!

Ich hab vermutlich das gleiche Problem. Ich hab in einem Produkt mehrere Parts, die einen unterschiedlichen Dateiname und einen unterschiedlichen Instanzenname haben, die Teilenummer ist aber die Gleiche. Das gefällt Catia nicht und man kann das Produkt nicht weiter bearbeiten.

Ich bräuchte ein Makro, was die Teilenummer aller Parts gleich dem Dateiname ändert. Leider bin ich selbst zu blöd dazu.

Ich nehme an, dem TS würde das so ebenfalls helfen?

Gruß, David

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

---

Filename_to_Partnumber.txt

Hallo,

bau dir mal eine kleine Testbaugruppe zusammen und versuch das mal.
Dateiendung von txt in exe ändern.
Ist ein kleines, mit Visual Studio geschriebenes Programm.

Gruß Trilemma

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

---

Hallo Trilemma,

das funktioniert hervorragend. Vielen Dank!
Hast Du das selbst programmiert?

Gruß, David

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

---

Moin,

ehrlich gesagt, habe ich mir ein paar Cod-Schnipsel aus dem Inet zusammengesucht.

Ist aber schon ein paar Jahre her.

Gruß
Trilemma

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

---

Moin!

nachdem ich Dein Tool mittlerweile auch bei größeren Projekten angewendet habe, kann ich nur sagen es funktioniert problemlos. Vielen Dank noch mal, das erleichtert mir die Arbeit sehr.

Gruß, David

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