How to retrieve the active product object 3

[USB Memory]

Hi all

Does someone know how to retrieve the active product object?
Active product means that the product is in editing.

for example.
Red circle product is in editing (active product) bellow.

I know there is activedocument Property but the property gives only top product document.

 

[Little Cthulhu]

Dim sel: set sel = CATIA.ActiveDocument.Selection
sel.Clear
sel.Search "CATAsmSearch.Product,in"
Dim activeProduct: set activeProduct = sel.Item(1).LeafProduct
sel.Clear

 

[CAD2015]

I do not understand this very well.....Why don't you just double-click on the product you want to activate/edit?....

CAD 2015

 

[ferdo]

In programming, the original poster didn't specify this.

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[CAD2015]

Thanks, Fernando!

CAD 2015

 

[USB Memory]

Thank you, Little Cthulhu.
I did well as you mentioned.
Is the product object definitely put in item(1)?
As far as I Checked, item(1) has the active product but other items don't have it.

Thanks

 

[USB Memory]

Thank you, CAD2015
Is it possible to retrieve the active product "object" by double-click on the product?
If it is possible, I would like to know the way as well.

Thanks

 

[ferdo]

https://www.eng-tips.com/viewthread.cfm?qid=343896

Regards
Fernando

https://www.youtube.com/playlist?list=PL9mSHa4SOedV3dr0D3kfIWFUg7mIYm94k

https://www.youtube.com/playlist?list=PL9mSHa4SOedVUEkEojiX_kdzpe0sDbaz2

 

[USB Memory]

Thank you, ferdo

I watched the link you attached but it is not working as my image
Little Cthulhu's solution perfectly match what i want to do.

 

[Little Cthulhu]

Is the product object definitely put in item(1)?

Yes, it is when ",in" scope is used (meaning "search inside of UI-active product").