topic Re: Automate for selecting all circles & delete from entire drawing in AutoCAD Forum

Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Wed, 23 Jul 2025 06:51:58 GMT

I want to automate for selecting all circles of 5mm dia & delete from entire drawing

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Wed, 23 Jul 2025 06:53:59 GMT

Qselect is not working for this even try to record macros...

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Wed, 23 Jul 2025 06:55:07 GMT

Please if anybody can provide me the solution for this

Re: Automate for selecting all circles & delete from entire drawing

cadffm — Wed, 23 Jul 2025 10:32:21 GMT

Hi,

if you drawing is drawn 1unit=1mm, this is a simple statement to erase all 5diam circles on non-locked Layers in the current space only.

Command: (if (setq ss (ssget "_X" (list'(0 . "CIRCLE")'(40 . 2.5)(cons 410 (getvar 'CTAB)))))(command "_.erase" "_p" ""))

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Wed, 23 Jul 2025 11:03:08 GMT

Great ...

Thanks a lot... Its working perfectly... 🙂

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Thu, 24 Jul 2025 09:30:48 GMT

Can I make a shortcut key for the same as this is too repeated work... I added ZOMM all also to this one & now if you can provide to make macros for this one, please ...

(command "_.zoom" "_a")(if (setq ss (ssget "_X" (list'(0 . "CIRCLE")'(40 . 3.5)(cons 410 (getvar 'CTAB)))))(command "_.erase" "_p" ""))

Re: Automate for selecting all circles & delete from entire drawing

cadffm — Thu, 24 Jul 2025 10:43:59 GMT

we changed from 5.0 to 7.0 ? okay

>" if you can provide to make macros for this one, please ..."

Macro? You can add the line in macros, so what is the problem?

Create a Command-Tool in your Toolpalette or any other Button for Toolbars, menus or Ribbon and add the line. ^C^C^C(command "_.zoom" "_a");(if (setq ss (ssget "_X" (list'(0 . "CIRCLE")'(40 . 3.5)(cons 410 (getvar 'CTAB)))))(command "_.erase" "_p" ""))

>"Can I make a shortcut key"

Shortcut are defined in you CUI

but I can offer edited lines, so after load a new command is available: DelAll7diaCircles

(defun c:DelAll7diaCircles nil (command "_.zoom" "_a") (if (setq ss (ssget "_X" (list'(0 . "CIRCLE")'(40 . 3.5)(cons 410 (getvar 'CTAB)))))(command "_.erase" "_p" "")) (princ) )

Re: Automate for selecting all circles & delete from entire drawing

Kent1Cooper — Thu, 24 Jul 2025 17:27:49 GMT

@sanjayph1111 wrote:

Qselect is not working for this ....

I'm curious about that -- it should work. Could you be doing something like giving it a radius where you should be giving it a diameter?

Also, suggestions so far work to remove Circles in only the current space, because the Erase command in an AutoLisp (command) function with object selection can "see" only those. It would not be difficult to write something to remove them from all spaces in the drawing, if you need that.

Re: Automate for selecting all circles & delete from entire drawing

cadffm — Thu, 24 Jul 2025 17:53:21 GMT

Quote: I want to automate for ...

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Tue, 12 Aug 2025 07:33:00 GMT

I created shortcut Key also for the same. But the issue is that for some files it works & not all. I checked the dimensions as you can find in attached screenshots...
Why this may happen & how to resolve it.

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Tue, 12 Aug 2025 07:39:50 GMT

Find DXF File as well

Re: Automate for selecting all circles & delete from entire drawing

Brock_Olly — Tue, 12 Aug 2025 07:49:34 GMT

Your white circle isn't exactly 7, it's 6.99998600 (set LUPREC variable to 8 and see)
When I edit the property to 7 and run the command it works fine.

Here's Cadffm's command updated to give some tolerance: (0.01)
(command "_.zoom" "_a") (if (setq ss (ssget "_X" (list '(0 . "CIRCLE") (cons 410 (getvar 'CTAB))))) (foreach e (vl-remove-if-not '(lambda (x) (<= (abs (- (cdr (assoc 40 (entget x))) 3.5)) 0.01)) (mapcar 'cadr (ssnamex ss))) (entdel e)))

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Tue, 12 Aug 2025 07:52:32 GMT

Please find reference attached AutoCAD DXF file, so that you can find the issue in this...

Re: Automate for selecting all circles & delete from entire drawing

sanjayph1111 — Tue, 12 Aug 2025 08:24:25 GMT

Perfect...
It's now working to delete all 7mm dia circles...

Thanks a lot... 🙂

Re: Automate for selecting all circles & delete from entire drawing

cadffm — Tue, 12 Aug 2025 09:14:52 GMT

The previous code deletes all 7units dia circles,

tha last code delete all 7units dia circles and circle with dia near to 7units.

Re: Automate for selecting all circles & delete from entire drawing

Brock_Olly — Tue, 12 Aug 2025 09:41:33 GMT

The code *was* working, your circles were not exactly 7mm..