"Tic-Tac"

Discussion in 'AutoCAD' started by Rolf Rosenquist, Feb 16, 2004.

  1. Rolf Rosenquist

    Rolf Rosenquist Guest

    Dear friends!

    In a while-loop I want to add a tic-tac and for me that means alternate /
    and \ that the program is running.
    I would appriciate any suggestions!

    Rolf
     
    Rolf Rosenquist, Feb 16, 2004
    #1
  2. Rolf Rosenquist

    R.K. McSwain Guest

    (setq bcount 0)
    (defun BUMP()
    (setq BCOUNT (1+ BCOUNT))
    (princ (strcat "\r" (nth (rem BCOUNT 4) '("/" "-" "\\" "|"))))
    (princ)
    )

    Just call (bump) as needed
     
    R.K. McSwain, Feb 16, 2004
    #2
  3. Rolf Rosenquist

    Rolf Rosenquist Guest

    Mr McSwain!

    Thanks a lot!

    It helps me to show the user that the program still runs when reducing -
    with about 70% - the number of blocks to be exploded.

    Rolf


    "R.K. McSwain" <> skrev i meddelandet
    (setq bcount 0)
    (defun BUMP()
    (setq BCOUNT (1+ BCOUNT))
    (princ (strcat "\r" (nth (rem BCOUNT 4) '("/" "-" "\\" "|"))))
    (princ)
    )

    Just call (bump) as needed
     
    Rolf Rosenquist, Feb 16, 2004
    #3
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads
There are no similar threads yet.
Loading...