Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub Ask_In_Work_Object()
Dim oPart As Part
Set oPart = CATIA.ActiveDocument.Part
Dim oObject As Object
Set oObject = oPart.FindObjectByName(oPart.InWorkObject.Parent.Parent.Name)
MsgBox oObject.Name
End Sub