---

Hallo zusammen,

ich benötige Hilfe für die Selektion von mehreren bodies anhand Ihrer Position im Baum.
Im Forum habe ich bereits folgendes gefunden:

selection1.Search "CATPrtSearch.BodyFeature,all"

Damit werden alle bodies selektiert. Kann bzw. wie kann ich "all" durch z.B. 3-24 ersetzten, so dass nur bestimmte Bodies selektiert werden?

Vielen Dank
kaeja

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

---

Servus,

Set Body1 = selection1.item(1).value

set body39 = selection1.item(39).value

selection1.clear
selection1.add Body1
selection1.add Body39

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

---

Moin ThomasJay,

vielen Dank für die schnelle Antwort. Bei mir läuft es leider nicht durch.

Code:

---

Sub CATMain()

Dim productDocument1 As PartDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As selection
Set selection1 = productDocument1.selection

Dim body1 As body
Dim body5 As body

Set body1 = selection1.item(1).value
set body5 = selection1.item(5).value

selection1.clear
selection1.add body1
selection1.add body5
 
End Sub

---

Auch macht es mir den Anschein als würden hier nur zwei Körper selektiert und nicht Körper 1 bis 5. Richtig?
Ich hoffte, dass es eine Möglichkeit gibt mit dem selection1.Search "CATPrtSearch.BodyFeature,???" einen Bereich zu selektieren ohne eine Schleife schreiben zu muessen.

Gruß
kaeja

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

---

wo bekommst du denn eine Fehlermeldung und Welche.

Ja es selektiert nur die 2, ich dachte das willst du. Für ein Feld wirst du wohl eine Scheife machen müssen, das geht aber auch sehr einfach.

Code:

---

for i = 3 to 24
Set Body = selection.item(i).value
selection.add Body

Next

---

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

---

Ok, danke. Also doch mit Schleife.

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