---

Hallo zusammen

Ich arbeite seit kurzem mit VBA und schreibe gerade ein Makro für CATIA. Dieses Makro baut Einzelteile und Produkte zu einer Baugruppe zusammen. Die Produkte werden dabei während der Baugruppenerstellung mit Einzelteilen bestückt und dadurch modifiziert. Anschließend möchte ich das Rootprodukt inklusive der Unterprodukte speichern. Hierfür verwende ich:

Code:

---

CATIA.ActiveDocument.Activate

CATIA.ActiveDocument.Product.Update

CATIA.ActiveDocument.Save

---

Dieser Befehl speichert mir jedoch nur das Rootprodukt. Die Unterprodukte werden nicht gespeichert. Im Savemanagement werden diese jedoch als gespeichert angezeigt. Wenn ich das Rootprodukt nun schließe und wieder öffne, dann sind nur die Parts vorhanden, die direkt im Rootprodukt verbaut sind. Die Parts die in den Unterprodukten verbaut sind, werden im Strukturbaum angezeigt, fehlen aber. Das Symbol der Parts im Strukturbaum entspricht jetzt dem einer Componente mit einem Ausrufezeichen.

Wenn ich das Makro vor dem speichern stoppe und im Debugger mit F8 weiterlaufen lasse, werden auch die Unterprodukte richtig gespeichert.

Kann mir jemand einen Tipp geben, warum es im Debugger funktioniert und sonst nicht?

Ich habe es auch schon mit SaveAs versucht, was jedoch zum selben Ergebnis geführt hat.

Im Vorraus schon mal Vielen Dank

lg Daniel

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

---

Hallo Daniel,

du musst alle Dokumente durchgehen und mit "saved" und "readonly" abfragen. Entsprechend der Abfrage jedes Dokument speichern!

...oder mit CAITA.StartCommand("Save All") die Save All Methode aufrufen. Bedenke allerdings, dass StartCommand-Befehle sprachabhängig sind. Sprich du musst entsprechend der verwendeten Sprache die Sprache abragen und entsprechend viele Commands in deinem Code vorsehen. Ich finde die andere Variante deutlich besser, denn ein Save All macht auch nichts anderes und ist fehlerträchtig.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Hallo Rick

Danke für deine schnelle Antwort. Ich habe es eben mit Catia.StartCommand ("Save All") versucht, jedoch mit genau dem selben Ergebnis. Daher werde ich jetzt wohl oder übel eine Abfrage schreiben und jedes Teil einzeln speichern.

Gibt es eine einfache Möglichkeit, die verbauten Dokumente nacheinander anzusprechen und dann zu speichern?

Bisher habe ich nämlich nur die Idee, dass ich meinen erzeugten Strukturbaum nochmal durchgehe und jedes Teil mit dem Objektpfad anspreche, prüfe ob es gespeichert ist und dann speichere.

MFG Daniel

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

---

Hallo ich bin nun ein Stück weiter gekommen.

Und zwar lese ich in meinem Ordner, der die Produkte enthält nacheinander die Dateinamen aus.

Damit prüfe ich dann, ob das Teil gespeichert ist und speichere es, wenn nötig.

Code:

---

Dim oFSo As Object
Dim oRootFolder As Object
Dim oFile As Object

Set oFSo = CreateObject("Scripting.FileSystemObject")
Set oRootFolder = oFSo.GetFolder(ZSBordner)

For Each oFile In oRootFolder.Files
   
DatName = oFile.Name                                                        'Gibt nacheinander die Dateinamen der Produkte aus
       
       
If Not CATIA.Documents.Item(DatName).Saved Then                            'Prüfen ob Datei gespeichert
   
   
   
  CATIA.Documents.Item(DatName).Save                                        'Datei speichern
       
       
End If

     
Next

---

Damit werden alle Teile gespeichert. Wenn ich im Anschluss auf Save Management gehe wird beim Rootprodukt "modified by synchronization" angezeigt. Wenn ich das Rootprodukt schließe und wieder öffne, dann ist es nur noch "open" und dennoch vollständig.

Kann mir jemand sagen warum da "modified by synchronization" angezeigt wird?

mfg Daniel

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