---

Hallo zusammen

ich habe mir ein Makro erstellt das mit dessen Hilfe ich Allcatparts erstellen und abspeichern kann. Hier ein Ausschnitt meines Codes

Code:

---

Set Datei = CATIA.Documents.Read(Eingang & Dateiname)
Set oProd2Part = Datei.Product.GetItem("DECProductToPart")
oProd2Part.Run
Set oAllCatPart = oProd2Part.GetResult
sError = oProd2Part.GetError

CATIA.ActiveDocument.SaveAs Filename:=Pfad & CATIA.ActiveDocument.Name
CATIA.ActiveDocument.Close

---

Die Zeile oProd2Part.Run erstellt dabei zwei neue Parts. Eins davon heißt CATPart16.CATPart (die Zahl ist variabel) und das andere bekommt den Namen des zu konvertierenden Products. Das erste Dokument läst sich anschließend mit dem Befehl

Code:

---

Catia.Document.item(x).Close

---

schließen und das zweite nicht. Warum? Sollte ich nun das gleiche Product noch mal speichern wollen kommt hier eine Fehlermeldung.

Vielen dank im Vorraus

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

---

Servus
Wie schließt du denn die Dokumente denn?
Wenn du das 2. Dokument schließt, ist dann schon das erste geschlossen?
Wenn du über eine for-next-Schleife die Dokumente schließt, musst du von hinten anfangen, sonst ändert sich der Index dauert.
Beispiel:

Code:

---

for i = Catia.Documents.Count to 1 Step - 1
   Catia.Documents.Item(x).Close
next

---

Bei deinen Codeschnipseln könntest du die beiden Dokument auch über:

Code:

---

Datei.Close
CATIA.ActiveDocument.Close

---

schließen.

Gruß
Bernd

Hinweis: Achtung bei neueren Releases ist für das AllCatPart eine extra Lizenz notwendig (siehe hier)

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

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