---

hallo
ich versuche seit 2 Stunden folgendes hinzubekommen.
1)Auswahl aller Elemente im Koordinatenbereich
-1,-1,-1
-1000,-1000,-1000
2)Löschen der gefundenen Elemente
Ich kriegs jedoch nicht hin.
kann da jemand helfen ?

------------------
************************************
 

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

---

Und wie versuchst Du das ?
Kannst Du mal Deinen Code einstellen?

Prinzipielle Vorgehensweise wäre
- SelectionSet erstellen
- Filter definieren (bestimmte Elemente, Layer)
- Selectieren (bei Dir vermutlich mit maode acSelectionSetWindow oder acSelectionSetCrossing, je nachdem ob die gekreuzten Elemente mit verwendet werden sollen )
- Löschen aller Elemente im Selectionset aus der Zeichnung(delete oder erase)

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

---

Hallo und danke für deine Rückmeldung.
Das habe ich bisher versucht
******************
Private Sub Clean_old()
  Dim objSelection As AcadSelectionSet
  On Error Resume Next
    Set objSelection = ThisDrawing.SelectionSets.Item("SS1")
    If objSelection Is Nothing Then
        Set objSelection = ThisDrawing.SelectionSets.Add("SS1")
    Else
        objSelection.Clear
    End If
    On Error GoTo 0
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
   
    Dim pts As Variant
    Dim pte As Variant
   
    startPoint(0) = -1
    startPoint(1) = -1
    startPoint(2) = 0#
    endPoint(0) = -1000
    endPoint(1) = -1000
    endPoint(2) = 0#
   
    objSelection.Select acSelectionSetWindow, startPoint, endPoint
    objSelection.Erase

ThisDrawing.Regen acAllViewports
End Sub

Es passiert aber rein gar nichts 

------------------
************************************
 

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

---

Prinzipiell ist Dein Code richtig und macht auch das gewünschte.
Kannst ja das SelectionSetWindow mal durch SelectOnScreen ersetzen

Meine Vermutung liegt jetzt darin, dass bei Dir ein lokales BKS eingestellt ist
wechsle doch einmal auf Welt und Draufsicht, stimmen die Koordinaten noch?

[Diese Nachricht wurde von KlaK am 13. Sep. 2014 editiert.]

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

---

Ergänzung: diese Form von Selection erwartet die Objekte am Bildschirm selektierbar. Ist der Bereich -1,-1 bis -1000,-1000 ausserhalb des sichtbaren Bereichs, dann ist die Selektion fraglich (kann vielleicht noch im REGEN-Bereich etwas finden, meist aber nicht).

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


www.cars4fun.at

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

---

Vielen Dank für eure Antworten.
Ich habe dies nun mit einem klassischen SendCommand gelöst

------------------
************************************
 

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