Hallo Wicky,
hatte vor einer Woche das gleiche Problem (Topic: Selektieren von Elementen)
Damit müsste es klappen:
Dim Was (1)
Was(1) = "AnyObject"
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear
MsgBox ("Bitte jetzt das Objekt auswählen")
Dim Ergebnis
Ergebnis = UserSel.SelectElement2 (Was, "Bitte das Objekt jetzt auswählen", true)
If Ergebnis = "Normal" Then
MsgBox (UserSel.Item(1).Value.Name)
Else
MsgBox ("Abbruch")
End if
UserSel.Clear
Dim MySelection1 'as Selection
Set MySelection1 = UserSel.Item(1).Value
Dim Messref1 'As Reference
Set Messref1 = MySelection1
Weiterarbeiten kannst du dann mit "Messref1".
Gruss Nico
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP