topic Re: in Visual LISP, AutoLISP and General Customization Forum

Pausing the text screen

Anonymous — Thu, 02 Dec 1999 00:35:48 GMT

How do I do this? I've looked at the alias.lsp by Autodesk but can't see
where exactly it's calling this out. Any help?

I'm sending info from a text file to the text screen (for fyi purposes
only). I've got everything, except how to make it pause.

Thanks.

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com

Re: Pausing the text screen

Anonymous — Thu, 02 Dec 1999 01:50:35 GMT

(getstring "\nPress Enter to continue: ")
--
Dave D
(remove '-' for Email)

Joshua Tapp wrote in article
<824et3$i3224@adesknews2.autodesk.com>...
> How do I do this? I've looked at the alias.lsp by Autodesk but can't see
> where exactly it's calling this out. Any help?
>
> I'm sending info from a text file to the text screen (for fyi purposes
> only). I've got everything, except how to make it pause.
>
> Thanks.
>
> --
> Joshua Tapp
> Designer/Intern
> SCM Consultants, Inc.
> "Successful Projects and Satisfied Clients"
> www.scm-ae.com
> josht@scm-ae.com
>
>
>

Re: Pausing the text screen

Anonymous — Thu, 02 Dec 1999 08:24:04 GMT

Try

(setq i 0)
(while ( How do I do this? I've looked at the alias.lsp by Autodesk but can't see
> where exactly it's calling this out. Any help?
>
> I'm sending info from a text file to the text screen (for fyi purposes
> only). I've got everything, except how to make it pause.
>
> Thanks.
>
> --
> Joshua Tapp
> Designer/Intern
> SCM Consultants, Inc.
> "Successful Projects and Satisfied Clients"
> www.scm-ae.com
> josht@scm-ae.com

Re:

Anonymous — Thu, 02 Dec 1999 17:16:52 GMT

Thanks. I guess what I mean is how to tell it to pause after so many lines.
How does it count the lines?

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
David Doane wrote in message
news:01bf3c67$a18e0340$c655d2d0@lms-1...
> (getstring "\nPress Enter to continue: ")
> --
> Dave D
> (remove '-' for Email)
>
>
> Joshua Tapp wrote in article
> <824et3$i3224@adesknews2.autodesk.com>...
> > How do I do this? I've looked at the alias.lsp by Autodesk but can't
see
> > where exactly it's calling this out. Any help?
> >
> > I'm sending info from a text file to the text screen (for fyi purposes
> > only). I've got everything, except how to make it pause.
> >
> > Thanks.
> >
> > --
> > Joshua Tapp
> > Designer/Intern
> > SCM Consultants, Inc.
> > "Successful Projects and Satisfied Clients"
> > www.scm-ae.com
> > josht@scm-ae.com
> >
> >
> >

Re:

Anonymous — Thu, 02 Dec 1999 17:18:11 GMT

I tried that, and it sent the file through twice. Thanks, though.
What's the "3e6"?

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
Darko Bogdan wrote in message
news:38462CA3.F99FD570@ck.tel.hr...
> Try
>
> (setq i 0)
> (while ( (graphscr)
>
>
> Darko Bogdan

Re:

Anonymous — Thu, 02 Dec 1999 19:37:59 GMT

"3e6" is engineering notation shorthand for 3,000,000. What Darko gave
you was a sort of substitute for (command "delay" 5000), which doesn't do
what you want, in any case. What you really need is a counter that
increments between each (read-line)/(princ) group, and pauses for user
input before resetting the counter and continuing:

(while (setq txt (read-line infile))
(setq counter 0)
(while (< counter 25) ; << number of lines between pauses
(princ (strcat txt "\n"))
(setq txt (read-line infile)
counter (1+ counter))
)
(getstring "*** Enter for next screen ***")
)
__
Joshua Tapp wrote in message
news:8269kl$mrq26@adesknews2.autodesk.com...
> I tried that, and it sent the file through twice. Thanks, though.
> What's the "3e6"?

Re:

Anonymous — Thu, 02 Dec 1999 19:56:50 GMT

Thanks, Paul. It's almost working now, except for some reason there's an
extra carriage return at the bottom of the file I'm reading. I'll take it
out (don't know why it's there in the first place). Thanks!

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
Paul Turvill wrote in message
news:826hrf$7d13@adesknews2.autodesk.com...
> "3e6" is engineering notation shorthand for 3,000,000. What Darko gave
> you was a sort of substitute for (command "delay" 5000), which doesn't do
> what you want, in any case. What you really need is a counter that
> increments between each (read-line)/(princ) group, and pauses for user
> input before resetting the counter and continuing

Re:

Anonymous — Thu, 02 Dec 1999 20:16:57 GMT

You could also put an (if ...) clause in the routine to force it to
ignore blank lines, including extraneous ones at the end of a file:

(if (/= txt "")
(princ (strcat txt "\n"))
)
__
Joshua Tapp wrote in message
news:826iu3$7818@adesknews2.autodesk.com...
> Thanks, Paul. It's almost working now, except for some reason there's
an
> extra carriage return at the bottom of the file I'm reading. I'll take
it
> out (don't know why it's there in the first place). Thanks!

Re:

Anonymous — Thu, 02 Dec 1999 21:16:18 GMT

Thanks. This didn't fix the problem, though, so I'm not sure where the
problem is exactly.

The error message says:

error: bad argument type
(STRCAT TXT "\n")
(PRINC (STRCAT TXT "\n"))
(IF (/= TXT "") (PRINC (STRCAT TXT "\n")))
....and so forth.....

I wonder why it has a problem with either. Here's the whole code just in
case it helps:

(defun c:AutoL (/ filen inline) ;I substituted the variables I was already
using for "txt" and "infile".
(prompt "\nSCM Macro: AutoLoad Catalogue - Network version\n\n")
(setq filen (open "H:\\LISP\\SCMAutoL.lsp" "r"))
(progn
(textscr)
(while (setq inline (read-line filen))
(setq i 0)
(while (< i 15)
(if (/= inline "")
(princ (strcat inline "\n"))
)
(setq inline (read-line filen)
i (1+ i)
)
)
(getstring "*** Enter for next screen ***")
)

)
(graphscr)
(repeat 3 (print))
(princ)
)

This just lists the contents of a lisp file that autoloads several others.
After each autoload statement, there's a comment on what each does.

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
Paul Turvill wrote in message
news:826k4h$7512@adesknews2.autodesk.com...
> You could also put an (if ...) clause in the routine to force it to
> ignore blank lines, including extraneous ones at the end of a file:
>
> (if (/= txt "")
> (princ (strcat txt "\n"))
> )

Re:

Anonymous — Thu, 02 Dec 1999 22:31:49 GMT

Change the line
(while (...
>Thanks. This didn't fix the problem, though, so I'm not sure where the
>problem is exactly.
>
>The error message says:
>
>error: bad argument type
>(STRCAT TXT "\n")
>(PRINC (STRCAT TXT "\n"))
>(IF (/= TXT "") (PRINC (STRCAT TXT "\n")))
>....and so forth.....
>
>I wonder why it has a problem with either. Here's the whole code just in
>case it helps:
>
>(defun c:AutoL (/ filen inline) ;I substituted the variables I was already
>using for "txt" and "infile".
> (prompt "\nSCM Macro: AutoLoad Catalogue - Network version\n\n")
> (setq filen (open "H:\\LISP\\SCMAutoL.lsp" "r"))
> (progn
> (textscr)
> (while (setq inline (read-line filen))
> (setq i 0)
> (while ( (if (/= inline "")
> (princ (strcat inline "\n"))
> )
> (setq inline (read-line filen)
> i (1+ i)
> )
> )
> (getstring "*** Enter for next screen ***")
> )
>
> )
> (graphscr)
> (repeat 3 (print))
> (princ)
>)
>
>This just lists the contents of a lisp file that autoloads several others.
>After each autoload statement, there's a comment on what each does.
>
>--
>Joshua Tapp
>Designer/Intern
>SCM Consultants, Inc.
>"Successful Projects and Satisfied Clients"
>www.scm-ae.com
>josht@scm-ae.com
>Paul Turvill wrote in message
>news:826k4h$7512@adesknews2.autodesk.com...
>> You could also put an (if ...) clause in the routine to force it to
>> ignore blank lines, including extraneous ones at the end of a file:
>>
>> (if (/= txt "")
>> (princ (strcat txt "\n"))
>> )
>
>

Re:

Anonymous — Thu, 02 Dec 1999 22:55:06 GMT

Thanks. That worked. I'll look up why it needed this.

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
Ian Bryant wrote in message
news:826s8b$7925@adesknews2.autodesk.com...
> Change the line
> (while ( to (while (and inline ( Regards

Re:

Anonymous — Thu, 02 Dec 1999 23:20:53 GMT

Joshua,
Your `while' loop was continuing through to 15,
even though the end of file had been reached.
At this stage (setq inline (readline)) returns nil,
and (strcat nil "\n"), causes an error,
so break out of loop when inline is nil.
Regards Ian

Joshua Tapp wrote in message <826tca$7a26@adesknews2.autodesk.com>...
>Thanks. That worked. I'll look up why it needed this.
>
>--
>Joshua Tapp
>Designer/Intern
>SCM Consultants, Inc.
>"Successful Projects and Satisfied Clients"
>www.scm-ae.com
>josht@scm-ae.com
>Ian Bryant wrote in message
>news:826s8b$7925@adesknews2.autodesk.com...
>> Change the line
>> (while (> to (while (and inline (> Regards
>
>

Re:

Anonymous — Thu, 02 Dec 1999 23:55:01 GMT

Thanks, Ian. I wasn't coming up with an answer.

--
Joshua Tapp
Designer/Intern
SCM Consultants, Inc.
"Successful Projects and Satisfied Clients"
www.scm-ae.com
josht@scm-ae.com
Ian Bryant wrote in message
news:826v48$7937@adesknews2.autodesk.com...
> Joshua,
> Your `while' loop was continuing through to 15,
> even though the end of file had been reached.
> At this stage (setq inline (readline)) returns nil,
> and (strcat nil "\n"), causes an error,
> so break out of loop when inline is nil.
> Regards Ian
>
> Joshua Tapp wrote in message <826tca$7a26@adesknews2.autodesk.com>...
> >Thanks. That worked. I'll look up why it needed this.
> >
> >--
> >Joshua Tapp
> >Designer/Intern
> >SCM Consultants, Inc.
> >"Successful Projects and Satisfied Clients"
> >www.scm-ae.com
> >josht@scm-ae.com
> >Ian Bryant wrote in message
> >news:826s8b$7925@adesknews2.autodesk.com...
> >> Change the line
> >> (while ( >> to (while (and inline ( >> Regards
> >
> >
>
>