---

Hallo an Alle,

Ich wollte die Elementen 2 typ sortieren. mit diesen Code:

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Clear

Dim selection2 As Selection
Set selection2 = drawingDocument1.Selection
selection2.Clear

On Error Resume Next
        posnummer2 = CInt(posnummer2)
        iErr = Err.Number
        If (iErr <> 0) Then
            posnummer2 = ""
            Err.Number = 0
            'Produkt
            selection1.Add drawingView1.Texts.Item(i)
        Else
            posnummer2 = "." & posnummer2
            'Part_
            selection2.Add drawingView1.Texts.Item(i)
        End If
       
     

Aber wenn der Makro ein Element zu selection1 hinzugefügt dann wird das gleichzeitig in selection2 auch erscheinen.

Wie kann ich die Elementen sortieren und eine/mehrere Gruppe von sortierte Elementen löschen?

Danke für die Hilfe

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

---

Hallo NyáriG,

im CATIA kannst Du nur mit einem Selection arbeiten.
Wenn Du ein Selection behalten willst, du musst es erst in einem Array schreiben. zB. (ungetestet)

Code:

---

ReDim TempSelection1(selection1.count)

For i=1 to selection1.count
  Set TempSelection1(i) = selection1.item(i).value
next

selection1.clear
'dann...

selection1.Add TempSelection1(i)

---

[Diese Nachricht wurde von imation1999 am 25. Feb. 2015 editiert.]

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

---

Hallo NyariG,

was verstehst Du unter einem 'Element 2 typ'?

Kannst Du uns ein Bild/ScreenShot zeigen?

Ich hab keine Ahnung, was genau Du wie sortieren willst.

Tschau,
Joe

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