Objekt ze schránky se vloží tam, kde byla provedena selekce, tj. ve vašem případě productDocument1 (zřejmě hlavní sestava). Řešením je tedy vybrat požadovanou sestavu a do ní vkládat.

Je to opravdu tak, jak jsem říkal, ale o trochu složitější. Nejprve je třeba zkopírovat vybraný objekt do schránky, pak vybrat sestavu, kam chcete kopírovat a teprve potom lze pomocí Paste vkládat do aktivní sestavy - (Pozor - CATIA.ActiveDocument je top objekt v okně, nikoliv aktivní produkt) - tu je třeba také určit (ještě by se měl ošetřit případ vkládání do Partu nebo vkládání sestavy do sebe samotné). V příloze je vzorová sestava k makru, vyzkoušejte.

Sub CATMain()

   'nastavime prislusne objekty

   Set oActiveDocument = CATIA.ActiveDocument

   Set oTopProduct =oActiveDocument.Product

   Set oL1SubProducts = oTopProduct.Products

   Set oPart1 = oL1SubProducts.Item(1)

   Set oProduct2 = oL1SubProducts.Item(2)

   Set oL2SubProducts = oProduct2.Products

   Set oPart2 = oL2SubProducts.Item(1)

   Set oProduct3 = oL2SubProducts.Item(2)

   Set oSelection = oActiveDocument.Selection

   oSelection.Clear

   

   'zde si vyberte co chcete vkladat, napr. Part1

   oSelection.Add oPart1

   'a zkopirujte to Do schranky

   oSelection.Copy()

   oSelection.Clear

   

   'zjistime co je aktivni - parametr in v query

   oSelection.Search ".,in"

   Set oPasteIntoProduct = oSelection.Item(1).Value

   oSelection.Clear

   

   'vyberete tuto sestavu

   oSelection.Add oPasteIntoProduct

   'a zkopirujte Do ni objekt ze schranky

   oSelection.Paste

   oSelection.Clear

End Sub

Uživatel odpovídá na příspěvek #246:
SUPER. Dekuji moc.
To presne jsem potreboval, jeste zkusim doladit to, jak jste sam naspal, aby se makro ukoncilo v pripade, ze je aktivni CATpart.

S pozdravem Pavel K.

Projdete všechny instance a porovnáváte název s tím co znáte, pokud je shoda, nalezl jste váš Part. Pak je tu ještě metoda GetItem("nazev"), která dokáže nalézt objekt v kolekci s konkrétním názvem. Navíc je to rychlejší, protože se nemusí procházet celá kolekce.