Lisp Help

Wonder if someone could make me lisp to do a task that I have been doing for last couple of hours.. when superseeding drawings at work we bind all xrefs and then purge and audi them.. is it possible to make a lisp for the routine

1.Bind All Xrefs

2.Pure All - Yes

3.Audit - Yes

Would be very greatful and would come in handy just so i can do it at the click of one command instead of 3

Cheers

Nick

(defun c:all  nil
     (command "_XREF" "_BIND" "*")
     (repeat 4
           (vla-purgeall
                 (vla-get-activedocument (vlax-get-acad-object)))
           )
     (command "_audit" "Y")
     (princ))

thanks. what do I have to type to get it to work etc...

I typed 'all' if that is what your meant to do. it binds the xref but doesnt purge everything :S

command: all

Hang on.. let me check here on my end...

EDIT: Well, it works fine here Nick-H- ,What makes you say it doesnt purge everything? are you talking about layers/block/etc...? Purge command will only removed "UN-USED" collections and entities.

Would you like to post a drawing example

Sorry my bad, it does purge all things the only things that were left were a couple of bad layers and table styles

cheers

Sorry my bad, it does purge all things the only things that were left were a couple of bad layers and table styles

 

cheers

Cool beans

Glad it work for you Nick-H-

Be aware that the PurgeAll method will overlook MLeader Styles