VLDB Code Example: Purge All Opened Drawings

This little chunk of code will run a Purge on all drawings currently opened in your editor.

(defun AllDocs-Purge ( / docs)
    (vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
        (vla-PurgeAll dwg)
    )
)