---

clip1.jpg clip2.jpg

Hallo

ich habe folgendes Problem mit Selektion (simples Catscript erstellt 5 Geometrical.Set's)
für Root funktioniert aber für Stufe 2 (egal Geometrical.Set oder Part.Body) hängt bei Linie 69

oInputType(0) = "HybridBody"
oStatus = oSelection.SelectElement2(oInputType, "Select a Geometrical Set", True)
If (oStatus = "Cancel") Then
Exit Sub
End If
Set mySelection = oSelection.Item(1).Value

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item(mySelection.Name) - Linie 69

Macro Aufzeichnung (für Selektion Stufe 2) zeigt folgendes:

Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
Set hybridBodies2 = hybridBody1.HybridBodies
Set hybridBody2 = hybridBodies2.Item("Centre_Of_Gravity")
part1.InWorkObject = hybridBody2

Problem mit SelectElement2 ?

[Diese Nachricht wurde von PRZJEDRZ am 09. Nov. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

versuche es mal statt mit
Set hybridBody1 = hybridBodies1.Item(mySelection.Name)
mit
Set hybridBody1 = mySelection.Item(1).value

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super
es hat geklappt mit
Set hybridBody1 = oSelection.Item(1).Value
Vielen Dank !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP