---

Hallo alle Forum Leser

Ich habe da ein kleines Problem und hoffe dass mir jemand helfen kann.
Gibt es die Möglichkeit alle Parts bzw Produkte die im aktuellen Fenster geöffnet sind als Kopie in einen beliebigen Ordner zu kopieren mit hilfe eines Makros? Wenn ja wie könnte es aussehen? Ich bin für alle Vorschläge dankbar. Zur Info: ich arbeite mit Catia V5 R19. (Die Funktion senden an möchte ich nicht einsetzen - da alle verlinkten Teile mit aufgezeigt werden- ich möchte aber nur die im aktuellen Fenster zu sehen sind.)

------------------
Mit freundlichem Gruß
Andreas

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

---

Servus
Grundsätzlich sollte das über eine (ggf rekursive) Schleife über alle Products eine CATProducts gehen. (dazu gigt es schon genügend Makros hier im Forum)
Aber was meinst du mit "im aktuellen Fenster sichtbar"? Sollen also ausgeblendete Parts/Products nicht kopiert werden.

Gruß
Bernd

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

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

---

Hallo Bernd,

Danke dass du dir Zeit genommen hast mir zu antworten.
habe mich vieleicht etwas zweideutig ausgedrückt - natürlich auch die ausgeblendeten Parts und Products. Du sagst es gibt genügend Beiträge dazu im Forum hast du vieleicht ein par Links dazu - ich such mir hier ein wolf.

------------------
Mit freundlichem Gruß
Andreas

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

---

Servus,

vielleicht hilft dir der untenstehende Code etwas weiter.
Meine Schleife bezieht sich aber auf alle geladenen Documente, da ich immer drauf achte wenn ich dieses Makro laufen lass, dass keine fremden Dokumente offen sind.
Bei diesem Codeschnippsl werden nur CATParts gespeichert. Die Abfrage für Drawings und Products läuft dann genau gleich. Man muß halt nur die Dateiendung ändern.

Code:

---

For intI = 1 To objDocuments.Count
    '***alle Parts bearbeiten
    If (Right(objDocuments.Item(intI).Name, 7) = "CATPart") Then
        '***PartNumber ermitteln
        strPartNumber = objDocuments.Item(intI).Product.PartNumber

        '***Dateiname ermitteln
        strFilename = objDocuments.Item(intI).Name
        '***Dateiname ändern
        strFilename = strPartNumber & ".CATPart"

        '***Datei speichern
        objDocuments.Item(intI).SaveAs (strNewFolder & "\" & strFilename)
    End If
Next

---

Edit: hab noch vergessen zu erwähnen, dass die Datein durch das Abspeichern keine neue UUID Nummer bekommen. Wenn du ein gesamten Projekt mit Products, Parts und verlinken Drawings umspeichern willst, dann mußt du zuerst die Parts und Products abspeichern, damit die Drawings den neuen Link zu den neuen Teilen haben.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

[Diese Nachricht wurde von Christian.O am 30. Apr. 2011 editiert.]

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

---

Hier ist eine Lösung per Makro
http://ww3.cad.de/foren/ubb/Forum134/HTML/001290.shtml

[Diese Nachricht wurde von K.Siebert am 02. Mai. 2011 editiert.]

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

---

Hallo und vielen Dank an alle die mir geantwortet haben!

muss mal schauen ob ich mir da etwas zusammenstückeln kann.
Ist auf jedenfall schon mal ein Ansatz womit ich etwas anfangen kann.

------------------
Mit freundlichem Gruß
Andreas

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