Just PURGE - no question asked

If you want to perform a PURGE in your drawing, without any interactive questions, you can use the commandline version of this command: -PURGE, or a simple LISP macro:

1. Either add the following menu macro to your menu:
_-PURGE;_All;*;_N;

2. Or add the the following LISP macro:
(vl-load-com)(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

Or use LISP to define your own new command PURGEA:

(defun C:PURGEA ()
(vl-load-com)
(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
(prin1)
)