---

Hallo Allerseits,
ich bin noch sehr neu in der Catia- und VB-Programmierung. Deswegen auch erstmal eine (hoffentlich) einfache Frage.
Und zwar habe ich ein Product mit mehreren Unterproducts. Eines (oder mehrere der Unterproducts werden nun verändert und ich möchte gerne danach das komplette Product speichern (kein Speichern unter, da das Product bereits mal gespeichert wurde).
Danke schonmal für die Hilfe!
Info: Es geht um Visual Basic 6 und Catia v5R14

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

---

Zitat:

---

Original erstellt von crinuy:
Hallo Allerseits,
ich bin noch sehr neu in der Catia- und VB-Programmierung. Deswegen auch erstmal eine (hoffentlich) einfache Frage.
Und zwar habe ich ein Product mit mehreren Unterproducts. Eines (oder mehrere der Unterproducts werden nun verändert und ich möchte gerne danach das komplette Product speichern (kein Speichern unter, da das Product bereits mal gespeichert wurde).
Danke schonmal für die Hilfe!
Info: Es geht um Visual Basic 6 und Catia v5R14

---

Also normalerweise verwendet man -> File -> Save Management, da sieht man auch, was verändert wurde und es wird nur das gespeichert, was verändert wurde.

Mit Save As kann man auch das alte, bestehende RootProduct überschreiben, wenn man das Speichern der Datei erzwingen will.
Maximilianus

------------------
Maximilianus
Dipl.-Ing. (Wi-Ing ET)

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

---

moin,

Jedes CATIA-Document-Objekt hat eine Property "Saved" die angibt ob das entsprechende Dokument gespeichert werden muss oder nicht und weiterhin eine Methode "Save" die das Dokument abspeichert. Eine kleine Schleife über alle Dokumente der Documents-Collection und du bist fertig.
Falls mehrere (unabhängige) Dokumente geöffnet sind, sollte man jedoch den Strukturbaum des zu speichernden Product-Dokumentes abgrasen und so nur die zu dem entsprechenden Product gehörigen Dokumente ermitteln und dann abspeichern. Zugegebenermaßen ist das schon etwas aufwendiger, aber wenn man es rekursiv macht auch kaum mehr als ein 10-Zeiler...

CU
    Tapani

------------------
Don't take life so seriously....
it's not a permanent  condition

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

---

Hallo,

die einfachste Methode (wenn du das rekursive Durchlaufen nicht hinbekommst):
- über Search alle XY-Ebenen suchen
- ins Show wechseln
- wieder zurück
- Parameter ins Root und speichern (Save)

Da nun alle Parts eine Änderung erfahren haben wird beim Speichern des Roots alles automatisch mitgespeichert.
Das ist zwar wie gesagt äußerst primitiv, da jede Datei gesichert wird, aber es funktioniert.

Language="VBSCRIPT"

Sub CATMain()
Set oRoot = CATIA.ActiveDocument
Set oSel = oRoot.Selection
oSel.Search "CATGmoSearch.Plane.Name=xy*,all"
Set visPropSet = oSel.VisProperties
visPropSet.SetShow 0
oRoot.Product.Update
visPropSet.SetShow 1
Set strParam = oRoot.Product.Parameters.CreateString(Time,"")
oSel.Clear
oRoot.Save
End Sub

Gruss TomTom

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

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