Hallo Tiberius,
ich habe die Frage sicher falsch verstanden, aber hier mein Code.
Code:
Option ExplicitSub CATMain()
Dim prodWork As ProductStructureTypeLib.Product
Dim selWork As INFITF.Selection
Set selWork = CATIA.ActiveDocument.Selection
Set prodWork = selWork.Item2(1).Value
Call MsgBox(prodWork.Parent.Parent.Name)
End Sub
Analog dazu über das ReferenceProduct vom Part.
------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila
Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen
Xing
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP