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.
(if (/= (vla-get-name layout) "model")
(setvar "qaflags" 1)
(vl-cmdf "explode" (ssget "x") "")
(setvar "qaflags" 0)
(setq $doc (vla-get-activedocument (vlax-get-acad-object)))
(setq aud (vla-auditinfo $doc t))
Access a broad range of knowledge to help get the most out of your products and services.
Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.
Upgrading to a 2015 product? Make sure to check these out 1st!