Purge Routine....Comments?

[TJARONIK]

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

 

[Russ]

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:

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

 

[Russ]

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:

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

 

[TJARONIK]

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

 

[Dave F]

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:

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