Audit_Purge_Zoom Extents_Save LISP

[gunveet3QA9A]

Hi All,

I'm looking for LISP file that could Audit, Purge, Zoom extents the whole drawing(including layouts),  & Save the file. 

I'm hoping someone else has already created one. If not, could someone help me create one?

Thanks

[pendean]

No luck with a websearch yet?

https://www.google.com/search?q=autocad+lisp+to+Audit+Purge+Zoom+Extents+QSave 

[gunveet3QA9A]

Not yet...been looking for a few days now.

[paullimapa · Accepted solution]

for zoom extents on all layouts:

(repeat (setq i (length (layoutlist)))(setvar "ctab" (nth (setq i (1- i)) (layoutlist)))(vla-zoomextents (vlax-get-acad-object)))

for purge all:

(vl-cmdf "_.-Purge" "_All" "*" "_N")

for Audit:

(vl-cmdf "_.Audit" "_Y")

lastly:

(vl-cmdf "_.Qsave")

[gunveet3QA9A]

Thanks for this Paul.

How would I be able to convert this into a LISP file?

[paullimapa · Accepted solution]

Just do this

(defun c:doit ()
; place all the lines of code here
)

Save file as doit.lsp in AutoCAD file support search path and 

then at command prompt enter

(load"doit")

then to run the code enter command:

doit 

[gunveet3QA9A · Accepted solution]

This works great. Thank you Paul!

[paullimapa]

Glad to have helped…cheers!!!