---

Hallo,
ich habe in VBA eine Selection erzeugt:

    Dim Sel(0)
    Dim Selection
    Dim UserSelect
    Dim pProduct as Object

    Sel(0) = "Product"
    Set UserSelection= CATIA.ActiveDocument.Selection
    UserSelection.Clear
    Selection = UserSelection.SelectElement2(Sel, "Select a Object!", True)
    If Selection = "Cancel" Then
        Exit Sub
    End If

  Set pProduct = UserSelection.Item(1).Value

Wenn ich nun eine eine Product-spezifische Methode anwenden will, bekomme ich folgende Fehlermeldung:
"Object doesn't support this property or method"

Wenn ich pProduct als Product (Dim pProduct as Product) deklariere erhalte ich folgende Fehlermeldung:
"Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic"

Was kann ich nun machen?
Ich will mit dem Object, welches ich augewählt habe weiterarbeiten und die entprechenden Methoden darauf anwenden?

Vielen Dank für eure Hilfe!

 

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

---

Hallo,
was genau soll im Assembly denn ausgewählt werden ? Ein Bauteil oder eine Unterbaugruppe? Product an sich ist ein abstraktes Objekt und kein wirklichens CATIA-Objekt.
Versuch mal den Filter mit "Part" zu deklarieren um etwaige Bauteile oder Unterbaugruppen auszuwählen.

SG

Jens Hansen 

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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

---

Code:

---

    Dim SelFilter(0)
    Dim SelElm2Result
    Dim UserSelect
    Dim pProduct 'as Object

    SelFilter(0) = "Product"
    Set UserSelection= CATIA.ActiveDocument.Selection
    UserSelection.Clear
    SelElm2Result = UserSelection.SelectElement2(SelFilter, "Select a Object!", True)
    If Not SelElm2Result = "Normal" Then
        Exit Sub 'Undo, Redo und Cancel führen zum Abbruch
    End If

  Set pProduct = UserSelection.Item(1).Value
  MsgBox TypeName(pProduct)

---

Eigentlich solltest du ein Product in der Selection haben.   Überprüf dies aber nochmal (mit TypeName erhältst du den Typ des Objekts).

Falls es kein Product ist kannst du die mit FindObject das zugehörige Product suchen lassen: http://ww3.cad.de/foren/ubb/Forum137/HTML/002544.shtml#000002

Weiters würde ich dir empfehlen für deine Variablen keine zweideutigen Bezeichnungen zu verwenden (z.B. Selection: Variable oder Selection?!?)

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