---

Kennt jemand eine Methode wie man in das Smarteam Save aus CATIA ein Script einbauen kann ???
BEFORE ADD greift ja nur beim ersten SAVE, würde aber gerne ein Script bei jedem SAVE Vorgang einfügen.
Danke
(Smarteam und CATIA V5 R17)

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

---

Hi,

Before Update.. wird immer dann ausgelöst, wenn Datensätze aktualisiert werden.

Gruß
Christian

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

---

Hi,

die Aussage zu "Before Update" stimmt...

...aber nimm lieber den Einstiegspunkt "CATIA.CALL_SCRIPT" (im SmarTeam System Configuration Editor unter Integrations zu finden).

Gruss Uwe

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

---

Hallo zusammen,

über welchen Parameter kann man in diesen Einsprungspunkten das vom Benutzer ausgewählte Zielverzeichnis der SAVE-Operation abfragen?

Ich würde gerne eine Prüfung einbauen, um bei nicht ausgewähltem Ordner einen Fehler auszugeben.
Ansonsten landen die Daten zwar im Projekt, sind aber nur über Suchen wieder aufzuspüren.

MFG
Mister.Spliss

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

---

Hallo Mister.Spliss.

Dazu fällt mir ein:
1. Das alte SmCadInterface

Code:

---

Dim cad As SmCADInterface
Set cad = smSession.GetService("SmCAD.SmCADInterface")
cad.Initialize "CATIA"
Call cad.GetParent(ParentObjectId, ParentClassId)

---

2. Settings

Code:

---

smSession.Config.Value("$User\CATIA\ProjectClassId")

---

Aber Vorsicht im Falle von DesignCopy u.ä..

Viel Erfolg,
Christian

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

---

Hi,

was meinst Du mit Zielverzeichnis ?
Ist damit der Ordner innerhalb eines SmarTeam Projektes bei SaveAs Dialog gemeint oder das phys. Verzeichnis auf der Festplatte ?

Gruß
Christian

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

---

Hallo Christian,

es ist der Ordner innerhalb des Projekts gemeint.

Gruß
Mister.Spliss

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

---

Hi,

dann bist du mit dem von Uhde geposteten Schnipzel genau richtig. Wenn ParentId 0 oder negativ ist dann hat der Anwender kein Objekt im 'SaveAs' Dialog ausgewählt. Ich habe solche Codezeilen in dem ProfileCard Load Event im Formdesigner zur gewünschten Klasse eingebaut.

... was ist dann aus der eingänglichen Frage nach dem Event bei jedem Speichern geworden? Ist dass die selbe Aufgabe oder sind 2 Sachen in diesem Call vermixt ?

Gruß
Christian

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

---

Ja, die sind vermischt, weil ich mich ungefragt dran gehängt hab. Sorry.

Durch den Hinweis 1 von Uhde sieht mein Teilskript jetzt so aus:

Dim Ergebnis
Dim CAD As SmCADInterface
Dim ParentObjectId As Long
Dim ParentClassId    As Integer

Set CAD = smSession.GetService("SmCAD.SmCADInterface")
'cad.Initialize "CATIA" ' Braucht man nicht, da aus Catia aufgerufen
Ergebnis = CAD.GetParent (ParentObjectId, ParentClassId)
' msgbox("ParentObjectID = " & ParentObjectId) ' nur für Debugging
' msgbox("ParentClassID = " & ParentClassId)  ' nur für Debugging

' Falls ParentObjectID <0 liegt ein Fehler vor, weil kein Ordner ausgewählt wurde
If ParentObjectID > 0 Then
SetDescription = Err_None
Else
SetDescription = Err_Refuse
msgbox "You have to choose a folder to save your model!" & Chr$(13) & "Please save this model again." & Chr$(13) & "This operation ends now." & Chr$(13) & Chr$(13) & "Your file was not saved!", ebExclamation
Exit Function
        End If

Das Call CAD.GetParent hat nicht hingehauen, mit der Übergabe des Funktionsergebnisses nach Ergebnis geht es aber.

Das Skript wurde in ein schon vorhandenes Skript bei BeforeAdd eingebaut und gibt eine Fehlermeldung aus, wenn die CAD-Dateien ohne Angabe eines Ordners gespeichert werden sollen. Der Speichervorgang wird abgebrochen.

Danke für die Mithilfe.

Gruß
Mister.Spliss

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