Text dotazu:
Dobrý den,
snažím se udělat program, který když ve 3D ploše kliknu na díl, který je součástí podsestavy, zobrazil by jméno té konkrétní podsestavy do který vybraný díl patří.

Mám tedy tento filtr:


Dim oProduct As String
Dim Filtr(0)
Dim UserSel As Object
Dim E As Variant

Filtr(0) = "Product"

Set UserSel = CATIA.ActiveDocument.Selection

E = UserSel.SelectElement2(Filtr, "Vyber product!", False)

If E = "Normal" Then
oProduct = (UserSel.Item(1).Value.Name)
MsgBox oProduct
Else
Exit Sub
End If

ten mi ale zobrazí Instans name dílu. Díl v sestavě je vlastně v první urovni Product, tak filtr omezený na product nepomůže.

Můžete mi prosím poradit, jak toto vyřešit?
Děkuji.