How would this lisp be modified to just get the total list of apps and delete them all at once rather than cycle through them and delete?
;;If you're using A2K+ (R15)...
;; Removes the registered application
(defun c:KillApps ( / name removed cnt)
(vl-load-com)
(setq cnt 0)
(if (not *acad*)(setq *acad* (vlax-get-acad-object)))
(vlax-for app (vla-get-registeredapplications (vla-get-activedocument *acad*))
(setq name (vla-get-name app))
(if
(not
(vl-catch-all-error-p
(vl-catch-all-apply 'vla-delete (list app))
)
)
(progn
(setq cnt (1+ cnt))
(setq removed
(princ
(strcat
"\nRemoved application \""
name
"\""
)
)
)
);end progn
)
)
(if (not removed)
(princ "\nNo applications were removable.")
(print cnt)
)
(princ)
)
Thanks,
Ron