---

Hallo,

ich habe folgendes zusammengestottert!
(defun c:löschen()

(command "-umgrenzung" "o" "o" "P" "" (getpoint "\nzu löschendes Objekt wählen: ") "")
(setq Objekt(entlast))
(setq Eckp (cdr (assoc 10 (entget Objekt))))
(command "löschen" Eckp "")
(command "löschen" Eckp "")
)

So, bewirken soll es das ich in ein Objekt klicken kann und es löschen. Ich muß nicht das Objekt direkt anpicken.
Natürlich ist das sehr an den Haaren herbeigezogen mit umgrenz. das zu machen.
Gibt es da noch andere Möglichkeiten?
und gibt es denn 'ne Möglichkeit alle Objekte auf einmal zu löschen die auf meinenm Eckp liegen?

Danke

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

---

???
(progn
(setq P(getpoint "\nzu löschendes Objekt wählen: "))
(setq Auswahl(ssget "_c" (mapcar '- P '(1 1 1))(mapcar '+ P '(1 1 1))))
(command "_erase" Auswahl "")
)

sowas ???

------------------
- 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

---

Dank Dir erstmal,

aber leider löscht mir das recht viele Objekte und nicht nur das wo ich hineinklicke.

Gruß convex

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

---

so, also es klappt leider nicht, da das Auswahlrechteck entweder zu groß ist und mehrere Objekte mit einschließt, oder zu klein ist und nichtmal das entsprechende Objekt erkennt

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