---

Hallo Leute!
Also was mich interessieren würde ist ob ich bei einem Selectionset einfach ein Element entfernen kann? ohne ein Neues Array zu machen

und ohne daß ich ich dann bei
For each ent in ObjSelectionset
next ent <<<-einen Fehler bekomme?
Ich weiß ich kanns mit On Error Resume Next auch abfangen
aber sauberer wäre es das Element aus dem Selectionset zu entfernen
und das sollte recht schnell funktionieren!
Mfg Chris

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

---

was ist mit der Methode RemoveItems ?

Gibts sogar ein Bsp in der hilfe zu.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

geht aber nicht

Sub ONsset_1() 'Neu programmiert
Dim ObjSSet, Status, ent, Anz, Index, a, ARRDEL(), ARRI
ARRI = 0
Status = 0
'On Error Resume Next
Call getselectionset("Defsset1", ObjSSet, Status)
If Status = 0 Then Exit Sub
'Call AllesAus
Anz = ObjSSet.count
'On Error Resume Next
For a = 0 To ObjSSet.count
On Error Resume Next
Set ent = ObjSSet(a)
   
    If Err = 0 Then
        Index = Index + 1
        If ent.Visible = False Then
            ent.Visible = True
        End If
    Else
        ARRI = ARRI + 1
        ReDim Preserve ARRDEL(1 To ARRI)
        ARRDEL(ARRI) = a
        Debug.Print "Fehler im Sset gefunden"
   
    End If
Err.Clear

'On Error Resume Next
Next a
On Error GoTo 0
For a = 1 To UBound(ARRDEL)
ObjSSet.RemoveItems (VBA.CInt(ARRDEL(a)))
Next a
Exit Sub

End Sub
Sub getselectionset(Name, ObjectsSelectionset, Status)
Dim ent
For Each ent In ThisDrawing.SelectionSets
If ent.Name = Name Then
    Status = 1
Set ObjectsSelectionset = ent
    Exit For
End If
'Debug.Print Ent.Name
Next ent
End Sub

[Diese Nachricht wurde von c.schojer am 21. Jul. 2008 editiert.]

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

---

Hallo Chris,

Zitat:

---

Original erstellt von c.schojer:
geht aber nicht

---

Das geht schon. Dein Fehler ist in der Deklaration.

Zitat:

---

Dim ObjSSet, Status, ent, Anz, Index, a, ARRDEL(), ARRI

---

Das zu entfernende Objekt muss in einem Array sein. Auch wenn es nur eines ist. Bei dir ist es ein Variant und wird zum Objekt.

Code:

---

Dim DelEnt(0) as acadentity

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

geht leider aber auch nicht

Sub OFFsset1() 'Neu programmiert
Dim ObjSSet, Status, ent, Anz, Index, a, ARRDEL(), ARRI, DelEnt() As AcadEntity
ARRI = 0
Status = 0
'On Error Resume Next
Call getselectionset("Defsset1", ObjSSet, Status)
If Status = 0 Then Exit Sub
'Call AllesAus
Anz = ObjSSet.count
'On Error Resume Next
For a = 0 To ObjSSet.count
On Error Resume Next
Set ent = ObjSSet(a)
   
    If Err = 0 Then
        Index = Index + 1
        If ent.Visible = True Then
            ent.Visible = False 'True
        End If
    Else
        ARRI = ARRI + 1
        ReDim Preserve ARRDEL(1 To ARRI)
        ARRDEL(ARRI) = a
        Debug.Print "Fehler im Sset gefunden"
   
    End If
Err.Clear

'On Error Resume Next
Next a
On Error GoTo 0
ReDim Preserve DelEnt(0 To ARRI - 1)
For a = 1 To UBound(ARRDEL)
Set DelEnt(a - 1) = ObjSSet(ARRDEL(a))
Next a
ObjSSet.RemoveItems DelEnt
Exit Sub

End Sub

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

---

Hallo Chris,
irgendwie ist nicht ersichtlich was du mit dem Programm erreichen willst und wie es funktioniert.
Da ist weiterer Rat schwer 

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Der selectionset soll korrigiert werden wenn ein Objekt gelöscht wird.
und dieser wird im Programm dann noch weiter verwendet.
Ich will nur ne Möglichkeit haben aus einem Selectionset einen gelöschten Eintrag zu entfernen. (Und das soll den Rechner nicht in die Knie zwingen sondern schnell gehen)
Mfg Chris

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

---

ich würde in der Schleife über das selectionset nicht einfach nur die zu löschenden Einträge merke, sondern einfach paralell einen temporären Selectionset zusammenstellen, der nur die gültigen Objekte enthält.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

@ Fuchsi
Tja das ist gerade das was ich mir sparen wollte aber danke

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