Purge Routine....Comments?

Comments, suggestions, etc. on this routine? Anything I can do to make it better? Seems to work fine for me, just wondering if someone might be able to spot something.

"Catch" Ya Later,
Tim

 

I do pretty much the same thing with scripts, but I find Audit's to be a good add when your doing a lot of putging as well.



"TJARONIK" <> wrote in message news:...

Comments, suggestions, etc. on this routine? Anything I can do to make it better? Seems to work fine for me, just wondering if someone might be able to spot something.

"Catch" Ya Later,
Tim

 

I don't belive it does, the command line version does not appear to purge nested Items.  And although the manual says it's an option in the to purge nested Items from the dialog boxed verison, my experince has been that the option doesn't work well.  Better off the old way by making a scripted purge loop.



"TJARONIK" <> wrote in message news:...

I was just reading in the acad manual and also checking out the dialouge purge. What I noticed was that dialouge offers to purge nested items. Anyone know if it is possible to purge nested items from the command line?

T

 

Thanks for the input Russ. I wrote this purge routine back in version 12 I think. It has worked well and hey, basic is best. Again, thanks for your input Russ.

"Catch" Ya Later,
Tim

 

This one works for me.



It loops around until it's run out of purgable info.



If you like it, use it.



 



(defun C:FXPURGE (/ FLAG)
  (while (= FLAG nil)
    (setq FLAG t)
    (command "purge" "a" "*" "y")
    (while (= 1 (logand 1 (getvar "cmdactive")))
      (command "y") ; keep answering 'yes' as long as it asks
      (setq FLAG nil)
    ) ; while
  ) ; while
  (command "qsave")
  (princ)
) ; defun



"TJARONIK" <> wrote in message news:...

Comments, suggestions, etc. on this routine? Anything I can do to make it better? Seems to work fine for me, just wondering if someone might be able to spot something.

"Catch" Ya Later,
Tim