---

Hallo, ich habe gerade ein Beispielmakro aus der Automation in VBA benutzt, nur geht irgendwie der CATIA.SystemService.Print nicht, ich bekomme folgende Fehlermeldung:

Object doesn't support this property or method (Error 438)

geht der SystemService.Print nicht über VBA, wenn doch, wie geht es?

[Diese Nachricht wurde von AndiKrue am 11. Mai. 2009 editiert.]

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

---

Hallo AndiKrue,

DIM es mal bitte As Object und ruf dann vom Object diese Methode auf.

------------------
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

---

Hallo, hab ich schon versucht, geht auch nicht.

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

Dim SysS As Object
Set SysS = CATIA.SystemService

SysS.Print "Retrieve the current part"

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

---

hm...

Ich nehme an As Variant und As SystemService hast du auch schon probiert.

Hm... ich kenne den Fehler, ich weiß nur nicht mehr in welchem Zusammenhang...

------------------
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

---

Habs grade nochmal mit Variant und SystemService probiert, geht leider auch nicht, im Catscript hab ich keine Probleme.
Wäre es möglich, dass eine Referenz fehlt?

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

---

Hallo,

versuch mal folgendes:

Code:

---

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

'Die beiden mal auskommentieren und CATIA.SystemService.Print direkt aufrufen
'Dim SysS As Object
'Set SysS = CATIA.SystemService

CATIA.SystemService.Print "Retrieve the current part"

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo AndiKrue,

hier tritt wieder mal ein spezieller CATIA-Spaßmach-Fehler auf: Die Funktion wird ausgeführt obwohl anschließend eine Fehlermeldung erscheint. In diesem speziellen Falle führt folgende Scriptänderung zum Ziel:

Code:

---

Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")

Dim SysS As Object
Set SysS = CATIA.SystemService

Dim SpassString As String
SpassString = SysS.Print "Retrieve the current part"

---

Dann siehst Du die Ausgabe im "CNEXTOUTPUT", z.B. einer "DOS-Box", wenn im Environment diese Variable als "CNEXTOUTPUT=CONSOLE" definiert wurde.


mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

It works! 10  Gummipunkte!  
Allerdings mussten bei mir noch Klammern drum, also so:

AusgabeString = SysS.Print("Begin Instantiation")

[Diese Nachricht wurde von AndiKrue am 12. Mai. 2009 editiert.]

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

---

Hallo AndiKrue,

sorry, natürlich gehören Klammern darum! 

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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