---

Hallo,

ich habe ein selection gemacht.

Code:

---

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Search "((((((CATStFreeStyleSearch.Point + CAT2DLSearch.2DPoint) + CATSketchSearch.2DPoint) + CATDrwSearch.2DPoint) + CATPrtSearch.Point) + CATGmoSearch.Point) + CATSpdSearch.Point),all"
If selection1.Count = 0 Then
        Exit Sub
End If

---

selection1 hat momentan 100 Point und ich möchte item(10) und item (15) löschen. Aber nicht nur vom selection sondern von Part.

selection1.Item(10).delete gibt's leider nicht. 

Wie könnte ich das löschen?

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

---

Servus
Wenn du nur die beiden Punkte löschen willst müssen auch nur diese beiden selektiert sein.
du kannst zB:
- Filter anpassen dass nur die beiden Punkte gesucht werden
- Schleife über deine momentane Selektion laufen lassen, falls die Punkte noch benötigt werden in einem Array/Collection zwischen speichern und aus der Selektion entfernen. (zu-löschende Punkte bleiben in der Selektion)
- ....

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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