Lisp Help

[Nick-H-]

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

[pBe]

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

[Nick-H-]

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

 

[Nick-H-]

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

[pBe]

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

 

[Nick-H-]

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

 

cheers

[pBe]

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-

[Lee Mac]

Be aware that the PurgeAll method will overlook MLeader Styles