---

Hallo zusammen,
hat jemand vielleicht ein Makro wo es möglich ist bei Neu Aus ( New from )von einem Part gleich mehrere exemplare zu erstellen.

z.B.: Part1 10x kopieren mit neuer UUID 
Währe super toll

------------------
--------------------------------
Gruß Jochen

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

---

Hallo,

das sollte nicht all zu schwierig sein.

Lass über eine FileSelectionbox den Anwender das zu duplizierende Part auswählen, danach frägst du über eine Input-Box die Anzahl ab.

Im Programm sollte das dann so aussehen:

1. File --> NewFrom
2. File --> Save_As (Bsp.Part_1neu)
3. File --> Close

Die drei Schritte in eine Schleife gepackt und schon sollte das ganze lauffen.

Hab leider momentan keine Zeit einen Beispielcode zu posten. Sollte ich die Zeit haben reich ich dies nach.

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Hi,

anbei ein CATScript Macro. Du musst ein CATPart auswählen. Die erzeugten Files werden dann in dem gleichen Verzeichnis gespeichert.

Sub CATMain()
Dim File, NewFile As CATBstr
Dim I, J, Anzahl As Integer
Anzahl = 15
Dim NewDokument As Document
File = CATIA.FileSelectionBox ("Dateiauswahl", "*.CATPart", 0)
J = Len (File)
For I = 1 to Anzahl Step 1
Set NewDokument = CATIA.Documents.NewFrom (File)
NewFile = Mid (File,1, J-8) & I & ".CATPart"
NewDokument.SaveAs NewFile
NewDokument.Close
Next
End Sub

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

---

Danke werde es gleich ausprobieren.

------------------
--------------------------------
Gruß Jochen

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