Hallo Smerg,
so funktioniert das nicht!
Vom selektierten Body kommst du über Parent nur zur Datei des Parts, aber nicht zum Root-Product! Um zum Root-Product zu kommen, musst du zuerst die Instanz des Parts finden, mit welcher Du Dich dann über Parent zum Root-Product hoch hangeln kannst!
Wenn Du nur einen Body selektiert hast, findest Du die Instanz über 'Selektion.FindObject("CATIAProduct")', wobei hier "Selektion" der Name Deiner Selektion ist! Danach kannst Du Dich nach oben hangeln, wobei Du dann immer auf Instanz-Ebene bist.
Deswegen sollte die Abfrage dann korrekterweise 'If UCase(oItem.Parent.Parent.Name) = "CNEXT" Then' lauten, um sowohl die "verschobene" Suche als auch die Nicht-Groß-Klein-Unterscheidung von Windows zu berücksichtigen!
mfg,
Lusilnie
------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!
frei nach größeren Geistern
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP