Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Mentor
smaher12
Posts: 191
Registered: ‎11-20-2011
Message 1 of 1 (158 Views)

Delete Layouts - Explode All - Purge - Audit

158 Views, 0 Replies
02-04-2013 11:30 AM

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)
)

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.