MARCOC
Guest
Hello everyone
somewhere maybe on this forum I downloaded this lisp
(defunc c:exall(/ bset)
(setvar "qaflags" 1)
(while(setq bset(ssget "_x"((0 . "insert")))))
(command "_.explode" bset ")
); end while
(repeat 3(command "_-purge" "all" "n"))
(setvar "qaflags" 0)
(princ)
); end of c:exall
that works perfectly on the blocks, but does not explode the polylines
1) Does anyone know how to change it so that even the polylines explode? ? ?
2) Can you report that command sequence on a script?? ?
3) how can you apply this lisp to more dwg together, without having to open one by one? ?
Thank you very much
somewhere maybe on this forum I downloaded this lisp
(defunc c:exall(/ bset)
(setvar "qaflags" 1)
(while(setq bset(ssget "_x"((0 . "insert")))))
(command "_.explode" bset ")
); end while
(repeat 3(command "_-purge" "all" "n"))
(setvar "qaflags" 0)
(princ)
); end of c:exall
that works perfectly on the blocks, but does not explode the polylines
1) Does anyone know how to change it so that even the polylines explode? ? ?
2) Can you report that command sequence on a script?? ?
3) how can you apply this lisp to more dwg together, without having to open one by one? ?
Thank you very much