Tady je jednoduchá pomoc. Odstraňte řádek oSelPart.Clear() - tím si pokaždé výběr smažete - nebo přidejte oSelPart.Copy() před oSelPart.Clear(). Jinak pokud byste chtěl do výběru opět přidávat, musíte si nejprve geometrii někam uložit (např. jako pole s objekty) a pak přidat do výběru příkazem oSelPart.Add( objekt).

A vy to potřebujete jen vložit? Pokud to zkopírujete do schránky ještě než otevřete part v novém okně, zůstane to tam a nemusíte to znovu kopírovat.

Aha, to jste měl říct hned. Budu to psát z hlavy, tak snad tam nenasekám chyby.
(kód pro VB Studio 2008, pokud píšete ve VB6, přidejte si 'set' při vytváření objektů)

Sub CatMain()

Dim oSelectedObjecs() As Object 'pole s vybranymi objekty

Dim oSelection As Selection

Dim i As Short

   oSelection = CATIA.ActiveDocument.Selection

   ReDim oSelectedObjects(oSelection.Count2) 'redeklarace pole

   For i = 1 To oSelection.Count2  

      oSelectedObjects(i - 1) = oSelection.Item(i).Value 'vlozime vybrany prvek Do pole

   Next

   oSelection.Clear()

   'ted si otevrete nove okno s partem a dale si musite znovu nastavit selekci v partu

   oSelection = CATIA.ActiveDocument.Selection

   For i = 0 To UBound(oSelectedObjects)

      oSelection.Add(oSelectedObjects(i)) 'pridate prvek Do vyberu

   Next

   oSelection.Copy()

End Sub

a pak uz se jen vratite zpatky a vlozite vyber kam potrebujete. Netvrdím, že to bude fungovat. Nejsem si jistý, jestli půjdou přidat prvky do výběru, když se vytvářely v jiném okně. Pak by se musely ukládat názvy objektů a hledat je metodou FindObjectByName()

Search je ošidný, pokud nebudete specifikovat typ elementu, vyhledá i to co nechcete. Třeba pokud zadáte název Point.1, vyberou se všechny body s tímto názvem (i ze skic).
Musel byste tedy u každého elementu přesně specifikovat o jaký typ se jedná, a i pak není zaručeno že se vám některé názvy nebudou shodovat s jinou geometrií.

Jinak tu selekci nebudete dělat znovu - je třeba jen znovu nastavit instanci a do ní pak nasypat prvky uložené v poli. Teď mi ještě napadlo, tu první selekci by asi chtělo nastavit na partu v sestavě, ze kterého kopírujete (byla by deklarovaná vzhledem k partu) a pak by se nemusela nastavovat znovu. Jak to udělat jsem vám odpovídal v posledním příspěvku.

Dobry den,
dekuji za pomoc.
Ja jsem dane makro take jiz vytvoril - princip je, ale jiny nez ten Vas - ten take vyzkousim - prijde mi lepsi.
To moje makro, ktere jsem sestavil diky vasim dilcim napadum funguje tak, ze part s oznacenymi features se otevre do noveho okna, tam se pomoci funkce FindObjectByName opet reference najdou, zkopiruji, vrati do hlavni sestavy a tam se jako paste special vlozi do aktivniho partu.
Vse funguje OK, ale nevyhoda je, ze pokud zdrojovy part obsahuje hodne features, tak pomerne dlouho trva, nez makro v druhem okne pomoci dane funkce jednotlive features najde.
Vubec me nenapadlo to sestavit Vasim zpusobem tj. ze do druheho okna se neotevira zdrojovy part, ale part do ktereho potrebuji nakopirovat linky. SUPER napad.

Pokud by Vas zajimalo, to moje makro, tak je v priloze.

Diky moc.

Tak jsem zkousel to vase makro a je "temer" OK.
Vadi mi na nem je to, ze musi byt aktivni sestava a ne part do ktereho kopiruji linky.
Nechapu proc prikaz oSelection.Copy() musi byt pri aktivni sestave, jinak vyskoci chybova hlaska catstriptu.
Pokud makro upravim tak, ze zacatek scriptu vymazu, Copy provedu manualne a pak terpve spustim makro, tak je vse OK. Pri manualnim Copy je jedno co je aktivni (part ci sestava), ale v makru ne. Nechapu.
Predpokladam, ze tema, ktere jste zalozil na aktivaci partu ci produktu makrem se vztahuje k tomuto problemu. Je to tak?

Dekuji.

Co myslite terminem "Workbench"?
Jak by se muselo prosim kon***ne nastavit?

Dekuji