Topic: Purging drawings without opening

[ELOQUINTET]

i am trying to clean up our library by purging all of the drawings. what i'd like to do is open all files in a given directory and purge them then close. I am trying to use this script and run it using ezscript but it's not doing it for some reason. here's my script:

;Open
open
;
;Purge all
Purge
;
all
;
*
;
n
;
save
;
exit
;;end of script

[JohnK]

Dan, The title of this thread says "Lisp help" But your question doesn't have anything to do with a lisp.

Could you please rename this thread to something a little more descriptive to your problem? (and don't just name it "script help" either! We are attempting to eliminate non-descriptive thread titles. TheSwamp is a database of information, we would like to keep the information as search able as possible.)

Thanx man.

[Keith™]

Dan, have you tried using VBA? It is so much better at that kind of stuff....

[JohnK]

*sigh* ...I guess i deserved that.

[ronjonp]

Dan, have you tried using VBA? It is so much better at that kind of stuff....

Something like this Dan:

-vbarun
thisdrawing.purgeall
qsave
close

[ELOQUINTET]

not that comfortable with vba yet. i don't really get the interface. how do i create a new routine or whatever you call it in vba. i have trev's gatte vba open and am looking at it but don't quite get the terms and format?

[ronjonp]

Dan,

Use the script I posted above. It should work for you.

Ron
     

Code: [Select]

-vbarun
thisdrawing.purgeall
qsave
close

[Serge J. Gianolla]

This is taken from David Stein, Example3.lsp:

Code: [Select]

;; This example involves the task of iterating through the Documents collection
;; and performing a Purge, Audit and Save operation on each document.

(defun C:DOALL ( / $acad docs dnum this)
  (setq $acad (vlax-get-acad-object)
        docs (vla-get-documents $acad)
        this (vla-get-activedocument $acad)
        dnum (vla-get-count docs)
  )
  (vlax-for each docs
    (vla-purgeall each)
    (vla-auditinfo each T)
    (vla-save each)
  )
  (vla-get-activedocument this)
  (vlax-release-object docs)
  (vlax-release-object this)
  (vlax-release-object $acad)
  (princ (strcat "\nProcessed " (itoa dnum) " drawings."))
  (princ)
)

[Ron Heigh]

try this
http://www.afralisp.com/vba/bp2002.htm

[ELOQUINTET]

man that's sweeeet ron thank you very much