---

Hi,

gibt es irgendwo eine Zusammenfassung der verfügbaren iCommandIds für den StartCommand? Aus der Doku erfahre ich leider nicht mehr, als das es das gibt.
Ich suche nach einer Möglichkeit den Vorgang Send_To -> Directory in einem Makro zu erfassen.

mfg
mattu

------------------
A fool with a tool is still a fool

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

---

Hallo,

SendTo wird von der COM-Schnittstelle unterstütz, d.h. es gibt eine eigene Methode dafür, siehe Code unten.
Aber: Man benötigt dafür eine PX1 Lizenz (oder z.B. die AL2, die diese enthält).
Das ganze sieht dann ungefähr so aus:

....

Dim aListOfFiles(1000)

Set oSend = oCatia.CreateSendTo()
oSend.SetInitialFile oCatia.ActiveDocument.FullName
oSend.GetListOfDependantFile aListOfFiles

....

SendTo funktioniert nicht mit dem StarCommand, jedenfalls habe ich es nicht hinbekommen, da mir dieser Gedanke auch kam - um die Lizenz nicht verwenden zu müssen.

Im SendTo liegt aber eh viel Müll rum (Thema Ghostlinks), ein Scannen der geladenen Productstruktur ist zwar - auf den Code bezogen umständlicher - aber besser.

Gruss

TomTom

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

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

---

Hi,

danke für die schnelle Antwort.
Ist die COM Schnittstelle auf Windows und auf AIX verfügbar?

Aus deinem Code werd ich irgendwie auch noch nicht schlau.
Ich hoffe, ich habe meine Frage richtig formuliert.
Ich möchte den Weg automatisieren, der manuell über Datei -> Send to ->  Directory geht.

Ist dieser Code für diesen Weg?
Bei der Ausführung als Makro bekomme ich derzeit auch Fehlermeldungen.

mfg
mattu

------------------
A fool with a tool is still a fool

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

---

SendToService.jpg

Hi,

das Object SendToService mit den zugehörigen Methoden (siehe Bild im Anhang) gibt’s auch unter Unix, aber von Unix haben wir uns komplett verabschiedet - deshalb spreche ich immer nur von der COM-Schnittstelle, wenn ich mich auf Scripte beziehe.

COM (Component Object Model) ist eine von Microsoft entwickelte Schnittstelle, die von allen 32-bit Microsoft Betriebssystemen unterstützt wird.
COM ist die Basis, auf der OLE-Automation (Object Linking and Embedding) und ActiveX (Softwarekomponenten-Modell) realisiert sind.

Befehlsaufrufe im Script mit Catia.StartCommand führen zu dem Problem, das das Script weiterläuft und nicht auf eine Eingabe durch den User wartet. D.h., das
a.) der StartCommand nur am Ende des Scriptes stehen sollte, oder
b.) nur Befehle aufgerufen werden können, die keine Interaktion erfordern
und: der StartCommand wird nur in der englischen Sprachumgebung unterstützt, in anderen Sprachumgebungen musst du die Befehle mit SendKeys direkt an die Befehlszeile schicken.

Der Code im vorhergehenden Beitrag schreibt alle Files, die sich im Root (also im CATIA.ActiveDocument) befinden in ein Array, aber wie gesagt auch den Müll, der sich im SendTo befindet, und nur mit der benötigten Lizenz.

Aufrufen kannst du „Send To“ mit

Catia.StartCommand „directory“

Aber ich glaube wie gesagt nicht, das du so zu einer Lösung kommst.
Gruss

TomTom

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

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

---

Super, das nenn ich mal eine Erklärung.
Vielen Dank.

Ich werde mich nach meinem Urlaub mal eingehend damit befassen!!

mfg
mattu

------------------
A fool with a tool is still a fool

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

---

Hallo,
konnt mir jemand sagen, warum Code oben

Dim aListOfFiles(1000)
Set oSend = oCatia.CreateSendTo()
oSend.SetInitialFile oCatia.ActiveDocument.FullName
oSend.GetListOfDependantFile aListOfFiles

funtioniert nicht auf der 64bit-Platform? Ich bekomme Meldung: method getListOfDependantFile of object SendToService failed.
Wenn ich benutze die Klammern

...
oSend.GetListOfDependantFile (aListOfFiles)
...

Syntax ist schon OK aber aListOfFiles ist leer.
Auf der 32bit-Platform ist alles OK.
Danke

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

---

Versuch mal

Code:

---

Call oSend.GetListOfDependantFile (aListOfFiles)

---

64bit muss über die externe API gehen, da es auf 32bit runtergebrochen werden muss. 32bit kann dafür intern ablaufen, daher gibt's manchmal komische Fehler.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Call im Code gibt wieder Fehler: method getListOfDependantFile of object SendToService failed ....

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

---

Jetzt musste ich auch kurz drüber nachdenken. 

Viel Spaß mit dem Code:

Code:

---

Public Sub CATMain()

    Dim arrVarListOfFiles() As Variant
    Dim objBuffer          As Object
    Dim sendWork            As INFITF.SendToService
   
    Set sendWork = CATIA.CreateSendTo()
    Call sendWork.SetInitialFile(CATIA.ActiveDocument.FullName)
    Set objBuffer = sendWork
    ReDim arrVarListOfFiles(0)
    Call objBuffer.GetListOfDependantFile(arrVarListOfFiles)

End Sub

---

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

OK es lauft 
Jetzt muss ich auch nachdenken ...

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