Select a Block at desired location

[karthand]

I would like to know if there any way to select a block at a desired co ordinate, purge and delete the objects at an enclosed area.

I have already modified few lisps and was able to figure out the second part, but need help with selecting the block at the given co ordinates.

(defun C:DTTX (/ ss1)
(ssget "C" '((0 . "insert") (10 401 14 0)))
(c:burst)
(if (setq ss1 (ssget "_W" '(395 18) '(410 10) '((0 . "TEXT"))))
(command "_.erase" ss1 "")
(alert "TEXT Not Found")
);; End of if
(princ)
)

[ВeekeeCZ]

So you have given an insertion point of some block... 

[Kent1Cooper]

---

@karthand wrote:

....

(ssget "C" '((0 . "insert") (10 401 14 0)))
....

---

That (ssget) function requires two points between the "C" and the filter list, to define the crossing window.

If you know there will be a Block with its insertion point at that location, change the "C" to an "X".