---

Hallo.

Ich habe folgendes Problem:
Wir haben ein Start-Product definfiert, das alle Konstrukteure verwenden sollen.
Nun möchte ich ein Script erstellen, welches dem Konstruktuer erspart, sich ein Produkt über "New From" anzulegen.

Bisher habe ich übder die Makroaufzeichnung folgendes bekommen:
Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As Document
Set productDocument1 = documents1.NewFrom("Z:\Steiger\Testumgebung_Script_Rename\Startmodelle\ROOT\HTZ.CATProduct")

Dim product1 As Product
Set product1 = productDocument1.Product

product1.ApplyWorkMode DESIGN_MODE

End Sub

Soweit läuft das recht gut. Ich möchte jedoch, dass CATIA von allen Dateien, die im Product hängen, neue unabhängige Dateien erzeugt, und nicht nur vom Product selbst.
Bei der Makroaufzeichnung bekomme ich jedoch nicht das Auswahlfenster, welche Dateien neu erzeugt werden sollen.

Wie kann ich das Skript denn erweitern, dass alle Dateien des Products neu erzeugt werden?

Vielen Dank im Voraus

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

---

Hallo ProDati,

NewFrom bezieht sich (meiner Erfahrung nach) nur auf das Dokument welches du ansprichst, nicht aber jedoch auf davon abhängige (jene, die sich interaktiv im Fenster auswählen lassen).

Es geht allerdings auch anders:
-Open statt NewFrom
-rekursiv alles mit SaveAs unter neuen Namen/Pfad speichern

Folgendes musst du nur beachten, sofern die ursprungsdateien verlinkt sind:
1) entweder alles schreibschützen
2) oder von "innen nach aussen speichern"

Das soll heissen (Bsp):

ProductA
  I
  I------ Part1 (treibend)
  I------ Part2 (getrieben)

Wenn Part1 treibend ist und in der Struktur zuerst kommt und geändert wird (SaveAs Part1B oder so) wird Part2 automatisch mitgespeichert (das alte) und dann erst im nächsten Schritt mit SaveAs neu gespeichert. Das hat zur folge, das der alte Link kaputt ist.

Gruss

TomTom

------------------
tomtom1972

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

---

Vielen Dank für die schnelle Hilfe.
Ich hoffe, die 10 Unities sind angekommen.

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