topic Re: Select a Block at desired location in Visual LISP, AutoLISP and General Customization Forum

Select a Block at desired location

karthand — Thu, 30 Jan 2020 07:15:53 GMT

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

Re: Select a Block at desired location

ВeekeeCZ — Thu, 30 Jan 2020 08:28:34 GMT

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

Re: Select a Block at desired location

Kent1Cooper — Thu, 30 Jan 2020 13:06:16 GMT

@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".