Omitting Tons of Useless Text From my console window.

I have code, which you awesome people have helped me with so far. But when i apply it, my auto cad console get FILLED with all this "options" for entering numbers and letter and things that happen automatically. i was just wondering if i can pick things to omit FROM the text window. It's a little important to see what number i left off at to continue, or how i've labeled certain points.

i'm going to post the code cause i think i have to.

(defun c:p2f(/ p x y z j k ptcoord textloc cs_from cs_to file text filename 

rstr space xlen ylen zlen modspace)


(setq filename (strcat "c:\\"(getstring "\nEnter File Name")".txt"))
(setq k (getstring "\nEnter PREFIX"))
(setq j (getint "\nEnter Start Number"))

(while ;start while
(setq p (getpoint "Pick Point"))

(setq cs_from 1)
(setq cs_to 0)
(setq p1 (trans p cs_from cs_to 0))

(setq textloc (getpoint p "PLACE TEXT"))

(setq rstr 12)
(setq space (strcat "            "))

(setq x (rtos (car p1)))
(setq y (rtos (cadr p1)))
(setq z (rtos (caddr P1)))

(setq xlen (strlen x))
(setq ylen (strlen y))
(setq zlen (strlen z))

(setq modspacex (substr space 1 (- rstr xlen)))
(setq modspacey (substr space 1 (- rstr ylen)))
(setq modspacez (substr space 1 (- rstr zlen)))

(setq ptcoord (strcat k (rtos j 2 0)"\t" modspacex x"\t" modspacey y"\t" 

modspacez z))

(command "_leader" p textloc "" ptcoord "")

(setq file (open filename "a"))

(write-line ptcoord file)
(close file)

(setq j (+ j 1))

) ;end while
)

Now, i love how it works so far, so i'd hate to screw with it. i'm just wondering if there's a BETTER way to "multileader" without it prompting, and autofilling, or at least to have that process omitted.

Another idea is for it to create ti's OWN text window with just the readouts of what it's actually writing in notepad. I also have no idea how to get that. Google search has been very unforgiving to me.

thanks for any ideas.

You could set some sysvars like CmdEcho, NoMutt, Expert, etc. But you will not get rid of everything. Alternatively you could change the command-call into a pure programming method ... something like one of these: http://www.theswamp.org/index.php?topic=42930.0

http://forums.augi.com/showthread.php?82591-How-do-I-use-the-Active-X-function-AddMleader-in-Lisp

sweet! works like a charm! thanks.