Code:
Dim UserSelection As Selection
Set UserSelection = CATIA.ActiveDocument.SelectionIf InStr(UserSelection.Item(1).Document.FullName, ".CATPart") <> 0 Then
Dim TempPart As Part
Set TempPart = UserSelection.Item(1)
Set pList = TempPart.Parameters
ElseIf InStr(UserSelection.Item(1).Document.FullName, ".CATProduct") <> 0 Then
Dim TempProduct As Product
Set TempProduct = UserSelection.Item(1)
Set pList = TempProduct.Parameters
Else
' Und hier will ich die Fälle abhandeln wo der User nicht
' direkt auf einem Part bzw. Product drauf klickt und ich einfach den nächsthöheren
' Part auswähle.
' vielleicht mit: UserSelection.Item(1).Parent ?
End If