Delete Layouts - Explode All - Purge - Audit

[smaher12]

I am playing around with vlisp and was wondering if anyone may have a better suggestion for the following. I feel like it can be condensed a little more.  Especially in the (vla-get-activedocument (vlax-get-acad-object)) area.

  (vl-load-com)
  (vlax-for layout
    (vla-get-layouts
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (if (/= (vla-get-name layout) "model")
      (vla-delete layout)
    )
  )

  (setvar "qaflags" 1)
    (repeat 3
        (vl-cmdf "explode" (ssget "x") "")
    )
  (setvar "qaflags" 0)

  (setq $doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq aud (vla-auditinfo $doc t))
    (repeat 3
        (vla-purgeall $doc)
        aud
    )
 (princ)
)