---

Hallo Leute,

ich habe ein Produkt mit vielen Parts und ein paar Unterprodukten.
Die Benennung ist so aufgebaut: Dateiname = Part Number = Instancename.1 /.2 /.3 /usw.

Nun habe ich dieses riesiges Produkt (eigentlich mehrere davon) und möchte ein neues erstellen, nur die ersten 13 Zeichen sollen umbenannt werden.

Bis jetzt kenne ich nur diese Möglichkeit:
1) Mit Send To Directory jedes Part/Produkt von Hand umbenennen.
2) Danach jedes Teil im Baum selektieren und unter Properties den Part Number noch mal umbenennen.
3) Um Part Number mit Instance name abzugleichen habe ich dank Euch hier im Forum ein Script gefunden der das erledigt.

Ich hoffe Ihr könntet mir eine viel bessere Lösung anbieten, evtl. kann man auch so ein Script erstellen der mir diese Arbeit abnimmt.

Mit freundlichen Grüßen
Gena

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

---

habe da eine Lösung http://ww3.cad.de/foren/ubb/Forum134/HTML/001290.shtml#000008

würde mich über Feedback freuen.

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

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

---

@ K.Siebert

vielen dank für deine Antwort

werde mich gleich damit beschäftigen

MfG Gena

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

---

Ich habe da noch etwas hier eventuell hilft ’s
Bei dem ein oder anderem Problem

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

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

---

Hallo nochmals,

ich habe hier ein Script von K.Siebert, ist es möglich diesen so zu erweitern das auch alle Unterordner mit durchgesucht werden?

Danke

 

Zitat:

---

Sub CATMain()

Dim UserSelektion As Selection
Set productDocument1 = CATIA.ActiveDocument 
Set UserSelektion = productDocument1.Selection 
UserSelektion.Search "(CATAsmSearch.Part+(CATAsmSearch.Product)),all"

For I = 1 to UserSelektion.Count

'CATIA.DisplayFileAlerts = False
On Error Resume Next

Name = (UserSelektion.Item(I).Value.ReferenceProduct.Name)
FullNameX = (UserSelektion.Item(I).Value.ReferenceProduct.Parent.Fullname)
CATIA.Documents.Open (FullNameX)

Dim document As document
Dim splitname As string
Set document = CATIA.ActiveDocument
splitname = Split(document.Name, ".")
Set pro = document.Product
pro.PartNumber = splitname(0)

next

Schliesen

end sub

Sub Schliesen()

For i = 1 to 1000 'CATIA.ActiveDocument.Count

Pfad = CATIA.ActiveDocument.path
Name = CATIA.ActiveDocument.Name

Datei = Pfad & "\" & Name

CATIA.DisplayFileAlerts = False 'Fester ausschalten
Dim doc As Document
Set doc = CATIA.ActiveDocument

---

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