select multiple objects

[W_T_]

This LISP,
It can only select one object.
I hope it can select multiple objects

(defun c:Erase-All-R ()
 (command "_.ERASE" "_ALL" "_R")
 (princ "\nPlease select objects and press Enter.") 
 (command pause )
 (command "")
 (princ)
)

[paullimapa · Accepted solution]

(defun c:Erase-All-R ()
 (command "_.ERASE" "_ALL" "_R")
 (princ "\nPlease select objects and press Enter.") 
; (command pause )
  (while (> (getvar "CMDACTIVE") 0)(vl-cmdf pause)) 
; (command "")
 (princ)
)

[Kent1Cooper · Accepted solution]

This is all you really need:

(defun C:EAB () (command-s "_.erase" "_all" "_remove") (prin1))

The command will supply its own prompt for removing objects from the selection, so you don't need to write that out.

[EAB stands for Erase All But -- change it to whatever you prefer.]

[W_T_]

いつもありがとうございます。

[paullimapa]

Glad to have helped….cheers!!!