|
Using AutoLisp you can only explode one entity
at a time using the command function. ;<--Coding starts here (defun c:multiex ( / sel i n_ent ) (setq sel (ssget)) (setq i 0) (setq n_ent(sslength sel)) (repeat n_ent (command "_explode" (ssname sel i)) (setq i (+ 1 i)) (princ) );defun (princ) ;Coding ends here==> ================================================== Or would you like an even quicker way? Try this : ;<--coding starts here (defun c:ex () (setvar "QAFLAGS" 1) (command "explode" "all" "") (setvar "QAFLAGS" 0) (princ) ) (princ) ;coding ends here --> I can just hear everybody! "What's this
"QAFLAGS?" |
|