Instant Erase ...!

ERASE all POINTs / NODEs

Some times an AutoCAD draftsman wants to erase all the "POINTs/NODEs" within a selection area or from whole drawing. It requires 2 separate commands...

1. Filter out POINTs/NODEs from the whole drawing or from a selection area
2. Applying the command ERASE

But the following single command will instantly erase "POINTs/NODEs" within a selection area or from whole drawing.

(Instead of POINT you can use any other entity type as required such as LINE, CIRCLE, TEXT etc. Please change the POINT to your required entity type in the coding below.)

;COMMAND = ESE

;CODING STARTS HERE
(prompt "\nType ESE to run....")

(defun C:ESE (/ sep)
(setq sep (SSGET '((0 . "POINT")) ))
(command "erase" sep "")
(princ)
)
;CODING ENDS HERE

Save this as "ESE.lsp".