AfraLisp Blog

The AutoLisp/Visual Lisp/VBA Resource Website

AfraLisp Blog

Home Newsletter Utter Rubbish Coding Tips AutoCAD Tips Contact Downloads WAUN

Using AutoLisp you can only explode one entity at a time using the command function.
This is untrue and this is why :

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

(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?"
Don't ask me, I just use it.......

The AutoLisp/Visual Lisp/VBA Resource Website

Copyright 1999-Perpetuity by AfraLisp

All rights reserved.
Information in this document is subject to change without notice.
Site created and maintained by Kenny Ramage

The AutoLisp/Visual Lisp/VBA Resource Website