Unable to explode leader after insertion...HELP Please

[pporter]

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

[BlackBox]

Actually, everything runs correctly... You're just not observing that the following lines of code are actually executing prior to your even starting the "QLeader" command itself. Just follow the command line:

(defun c:gt (/ lastEnt ss)
  (setvar "qaflags" 1)
  (setq lastEnt (entlast)
        ss      (ssadd)
  )
  (command "Qleader")
  (prompt "\n** This line runs before your \"qleader\" command ends ** ")
  (while (setq lastEnt (entnext lastEnt))
    (ssadd lastEnt ss)
  )
  (sssetfirst nil ss)
  (COMMAND "EXPLODE" ss)
  (setvar "qaflags" 0)
  (setq ss nil)
  (setq lastEnt nil)
  (princ)
)

[pporter]

Thanks for the reply...I guess what i dont understand is why is the lines after Qleader are running before command enters. because of this the leader and nothing else is ever exploded. What im trying to do is place a leader on the screen then go back and exploded the newly created leader. no need to explode the mtext, just the leader.

[Opie]

It is continuing to run because you are not pausing the routine while requesting user input, via the qleader command.