Dobrý den,

zapomněl jste napsat, kde chcete kopírovat. Jen v rámci Partu nebo v sestavě?

V Partu je to celkem jedno, ale při kopírování / vkládání v sestavě musí být - oproti tomu jak je to když kopírujete manuálně - aktivní sestava, tj. zapnuté prostředí Assembly design, jinak kopírování padne.

Navíc Paste je interaktivní, vždycky musíte vybrat cíl kopírování.

V praxi tedy nějak takhle - pro sestavu (otestováno - neošetřeno): Vyzkoušejte to třeba pro kopírování Body. Cíl vyberte jiný Part.

Sub CATMain()

   Set oSel = CATIA.ActiveDocument.Selection

   oSel.Clear()

   ' kontrola prostredi ASD - kdyz neni, spustime ho

   If (CATIA.GetWorkbenchID() <> "Assembly") Then

      oSel.Add(CATIA.ActiveDocument.Product)

      CATIA.StartWorkbench("Assembly")

   End If

   ' filtr pro kopirovane objekty - nastavime na vse

   Dim ObjSel(0)

   ObjSel(0) = "AnyObject"

   ' vyber kopirovaneho

   Status = oSel.SelectElement2(ObjSel, "Vyberte kopirovane ... ", false)

   If (Status = "Cancel") Then

      Exit sub

   End If

   oSel.Copy()

   ' vyber cile

    Status = oSel.SelectElement2(ObjSel, "Vyberte cil ... ", false)   

   If (Status = "Cancel") Then

      Exit sub

   End If

   ' a konecne vlozeni

   oSel.PasteSpecial("CATPrtResultWithOutLink")

   oSel.Clear()



   CATIA.ActiveDocument.Product.ReferenceProduct.Update()

End Sub

Dokonce to vložení funguje i tak, že už není potřeba strom, stačí kliknout kamkoliv na grafiku partu do kterého chci makrem zkopírované tělo vložit.
Ještě jednou mnohokrát děkuji !!! Ušetřil jste mi trilion kliknutí :)

Dobrý den,
po nějaké době jsem tento script znovu oprášil a začal mě házet nějakou chybu spojenou s updatem (přikládám screen), nevíte prosím čím by to mohlo být?
Přitom kolegovi funguje bez tohoto eroru. Možná jen nějaká změna nastavení, která u mě proběhla, ale nemůžu odhalit jaká.