---

Hallo V5 Gemeinde,
habe folgende Frage: Ich will eine Selection wieder rückgängig machen also in einer selection verschiedene Operationen durchführen, und wieder auf die ursprüngliche erst Selection zurückspringen.
dachte das so:

Dim Selection1 As Selection
Set Selection1 = CATIA.ActiveDocument.Selection
Dim Selection2 as Selection
Set Selection2 = Selection1
Selection1.Search "......"
..........Aktionen...........
Set Selection1 = Selection2

das funktioniert aber nicht. die Selection2 wird ohne erneute Zuweisung bei dem Search mit geändert. Kann man das entkoppeln oder anderweitig umgehen?
MfG Ronny
Wohl dem der eine Klima hat, hab keine...

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

---

Hallo Ronny,

es gibt pro Dokument immer nur ein Selection-Instanz.
Die Anweisung Set Selection2 = Selection1 erzeugt also keine neue Instanz sondern nur einen weiteren Verweis auf die Selection. Wird die Selection an irgendeiner Stelle geändert, beispielsweise auch durch interaktive Auswahl, ändern sich auch beide Selection-Objekte.
Du mußt also vor Änderung der Selection nicht das Objekt sichern, sondern den Inhalt.

Bsp:

Dim Selection1 As Selection
Set Selection1 = CATIA.ActiveDocument.Selection
Selection1.Search "....."

'Auswahl sichern:
Dim SelBackup() As Object
Redim SelBackup(Selection1.Count)
For i = 1 To Selection1.Count
  Set SelBackup(i) = Selection1.Item(i).Value
Next i

'Auswahl ändern:
Selection1.Search "....."
........Aktionen........

'Gesicherte Auswahl wieder herstellen
Selection1.Clear
For i = 1 To UBound(SelBackup)
  Selection1.Add SelBackup(i)
Next i

Gruss Steffen

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