Tohle rekordér nenahraje, ale dá se to napsat třeba takhle:

Sub CATMain()



   Set oPart = CATIA.ActiveDocument.Part

   Set oSelection = CATIA.ActiveDocument.Selection



   If oSelection.Count <> 1 Then

      MsgBox "Musí být vybrán právě jeden objekt!"

      Exit Sub

   End If

   

   oPart.InWorkObject = oSelection.Item(1).Value



End Sub

A ještě by bylo dobré ošetřit stav, kdy nepracujeme s Partem - aby to nepadalo.

Makru pak stačí přiřadit nějakou klávesovou zkratku, volná je třeba F8.

Ve finále ale bude místo tří kliků jeden klik a jeden stisk klávesy. Úspora sice je, ale malá.

zdravím
já používám po najetí myši nad dané body vyvolání kontextového menu
a poté stisk klávesy f(podtržené písmeno daného příkazu).
tedy také jeden klik a jedno stisknutí klávesy.