Unable to explode leader after insertion...HELP Please

[slowmotion1914]

Here i have a lisp routine to explode only the leader after creation (its due to how the leaders translate into another program, is why we explode them) but the explode portion never seems to run. as a matter of fact nothing runs after the qleader command. Can someone take a look and show me whats wrong or fix.

 

 

(defun c:gt (/ lastEnt ss)
(setvar "qaflags" 1)
 (setq	lastEnt	(entlast)
ss	(ssadd)
 )
 (command "Qleader")
 (while (setq lastEnt (entnext lastEnt))
   (ssadd lastEnt ss)
 )
 (sssetfirst nil ss)
 (COMMAND "EXPLODE" ss)
 (setvar "qaflags" 0)
 (setq ss nil)
 (setq lastEnt nil)
 (princ)
)

Edited August 2, 2012 by slowmotion1914
update code

[SLW210]

Please read the CODE POSTING GUIDELINES and edit your post!

[slowmotion1914]

Updated code following the guidelines