würde mich auch interessieren,
bin noch absoluter neuling (beschäftige mich seit einer woche damit),
aber vlt hilft dir das (vorerst):
Function defkoerp ()
Dim torso(0)
torso(0) = "Body"
Dim UserSel As Selection
Set UserSel= CATIA.ActiveDocument.Selection
UserSel.Clear
Dim X As CATBSTR
X = UserSel.SelectElement2(torso, "Körper wählen", True)
If X = "Normal" Then
defkoerp=UserSel.Item(1).Value.Name
Else
MsgBox ("Abbruch")
End If
End Function
thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP