---

Hallo liebe Catiauser,

Habe in kleines Problem mit der Programmierung in VB2005 Express(.NET)
und dem Befehl .InWorkObject.

Bei dem Programm

Dim CATIA As Object = GetObject(, "CATIA.Application")
Dim CatiaActiveDoc As Object = CATIA.ActiveDocument
Dim Part As Object = CatiaActiveDoc.Part
Dim Bodies1 As Object = Part.Bodies.Item("A")
Part.InWorkObject = Bodies1

möchte ich den Körper “A” in Bearbeitung setzen.
Aber leider bekomme ich immer die Fehlermeldung:

„Mitglied nicht gefunden. (Ausnahme von HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND)“

Mit dem Befehl
Msgbox(Part.InWorkObject.Name)
kann ich auch den in Bearbeitung befindlichen Körper anzeigen.
Nur halt nicht wechseln… 

Als vbscript habe ich keine Probleme… 

Language="VBSCRIPT"
Sub CATMain()
Dim CatiaActiveDoc
Set CatiaActiveDoc= CATIA.ActiveDocument
Dim Part
Set Part = CatiaActiveDoc.Part
Dim Bodies1
Set Bodies1 = Part.Bodies.Item("A")
Part.InWorkObject = Bodies1
End Sub

Und catvba geht auch… 

Kann mir einer weiter helfen?
Währe euch sehr dankbar für einen Tip!

Lieber Gruß und eine frohe Ostern an alle…

System :XPpro
Catia: V5 R14 SP6

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