Text dotazu:
Dobrý den,

po spuštění makra si uživatel vybere Extract1, který by se měl přejmenovat podle plochy ze které daný Extract vznikl.
Extract se ovšem přejmenuje na Hybridshapes na místo Split1.(viz. obr. výsledek, kterého bych chtěl docílit)

Sub CATMain()



Dim partDocument1 As Document

Dim part1 As Part



'error handling

On Error Resume Next



Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part



If Err.Number=0 Then



'------------------    

'Vyber geom setu uzivatelem pro vypocet myArea

    Dim What(0)

	What(0) =  "AnyObject"



'Definice vyberu

Dim UserSel As Selection

Set userSel = CATIA.ActiveDocument.Selection

UserSel.Clear

Msgbox("vyber prvek")

'Vyber plochy

Dim oSel 

oSel = UserSel.SelectElement2(What , "Vyber prvek", False)



'Zobrazení názvu vybraného objektu

Msgbox ("Child name:"& UserSel.Item(1).Value.Name)



Dim obj

Set obj = UserSel.Item(1).Value



Dim PExtract 

Set PExtract = obj.Parent



Msgbox ("Parent:"& PExtract.Name)





obj.Name  = PExtract.Name



UserSel.Clear



'error handling

        Else

                Msgbox "Not a part document! Open in new window."

        End If



End Sub

Přiložené obrázky: