script for binding xrefs and purging?

Hi! I have a huge bunch of dwg. sheet files that I need to bind the xrefs in and purge. I'm using Desktop 3.3. Could somebody please tell me how to do this using a script??
thanks
Tom NYC

 

Just step through the commands as you would at the command prompt. Write it
in a text file and save it with a .scr extension. Use script pro or some
other program to run it on multiple drawings. Saving the file at the end of
the script is also necessary. There are probably better ways to accomplish
this than with a qsave command so others may have additional input.

Your script should/could contain the following: (binds xrefs and purges 3
times.) - you may also want to add an audit at the end as sometimes purging
causes errors (at least that was my experience in R2000).


-xref
bind
*
-purge
all
*
n
-purge
all
*
n
-purge
all
*
n
qsave

in and purge. I'm using Desktop 3.3. Could somebody please tell me how to do
this using a script??

 

thanks very much-----

 

If you like, I've amalgamated a lisp that binds all xrefs and adds the date
to the filename, and saves as a new file in the original drawing directory.

If you want it, let me know and I'll email it.

 

I'd love to try it-

thanks
Tom

 

Try this,
It will save as "filename-bound" , delete unloaded xrefs and bind loaded ones.

(defun saveasm ()
(setq dpref (GETVAR "dwgprefix"))
(setq dname (getvar "dwgname"))
(setq dname1 (substr dname 1 (- (strlen dname) 4)))
(setq dnamefin (strcat dpref dname1 "-bound"))
(command "saveas" "" dnamefin)
)

(defun bindall ()
(command "xref" "b" "*")
(command "purge" "a" "*" "n")
)


(defun remove-unloaded-xrefs ()
(vlax-for block (vla-get-blocks
(vla-get-activedocument
(vlax-get-acad-object)))
(if (and (= :vlax-true (vla-get-isxref block))
(= 0 (vla-get-count block))
)
(vla-detach block)
)
)
)


(defun c:SAVEBIND ()
(princ "\nContinue? Yes / [No]")
(setq yn "Yes")
(initget "Yes No" )
(setq yn (getpoint "\nThis will saveas and bind all Xrefs *REMEMBER TO SAVE FIRST*"))
(if (= yn "Yes")
(PROGN
(saveasm)
(remove-unloaded-xrefs)
(bindall)
)
(princ)
)
(PRINC)
)


Spencer