---

Hallo,

ich weiß das ähnliche Beiträge hier schon öfters aufgetaucht sind aber irgendwie bringt mich keiner so richtig weiter. Ich habe vom Benutzer ein GeometricalSet auswählen lassen wo nur Punkte drin sein sollen, daraus wird dann eine Polyline erstellt. Soweit klappt alles. Aber jetzt soll noch überprüft werden ob in diesem Set schon eine Polyline existiert und falls ja, dann soll diese erst gelöscht werden. Habe es mit search in der UserSelection probiert und dann if usersel.count > 0 dann usersel.delete(). Aber irgendwie ist usersel1.count immer = 1. weiß jemand wo mein Denkfehler liegt? Es ist ein catscript...

MfG

Sascha

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

---

Hallo Sascha,

du musst die erste Selection löschen, dann ist dein Selection.Count nicht immer > 0.
D.h. irgendeinem Object (oSelectedElement) den Inhalt deiner Selection zuweissen (bzw. den ersten Item). Falls es mehrere sein sollen, muss du ein Array nehmen. Dann die Selection löschen und innerhalb des Objects neu suchen. Siehe Code unten:
Falls du noch Fragen hast, kannst du mich unter der Durchwahl -532 erreichen (Torben).

Sub CATMain()

Set oSelection = Catia.ActiveDocument.Selection

Dim InputObjectType(0)
Dim Status

InputObjectType(0) = "HybridBody"

Status = oSelection.SelectElement2(InputObjectType, "Select", False) 

If (Status <> "Normal") Then
  Exit Sub
Else 
  Set oSelectedElement = oSelection.Item(1).Value
  oSelection.Clear
  oSelection.EndSelectElement
End If

oSelection.Search "CATGmoSearch.GSMLineCorner,oSelectedElement"

If oSelection.Count > 0 Then
  oSelection.delete
Else
  Msgbox "Kein Element zum löschen vorhanden"
End If

End Sub

Hoffe es hilft.
Gruss TomTom

------------------
tomtom1972

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

---

Vielen vielen Dank, funzt einwandfrei :-)

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