Topic: Hmm

[MP]

Different is good ...

Workin':

Code: [Select]

(defun Working ( )
    (if (not (eq 'str (type *modemacro*)))
        (setq *modemacro* (getvar "modemacro"))
    )
    (setvar "modemacro"
        (setq *working*
            (cond
            ((eq *working* "!....") "!!...")
            ((eq *working* "!!...") "!!!..")
            ((eq *working* "!!!..") "!!!!.")
            ((eq *working* "!!!!.") "!!!!!")
            ("!....")
            )
        )
    )
    (princ)
)
Cleanup:

Code: [Select]

(defun Done ( )
    (if (eq 'str (type *modemacro*))
        (setvar "modemacro" *modemacro*)
    )
    (setq *modemacro* nil)
    (princ)
)
Test drive:

Code: [Select]

(progn

    ;;  fake a process

    (defun NOP ( )
        (repeat 50000
            (princ)
        )
    )
   
    ;;  pretend we're workin'

    (repeat 100
        (NOP)
        (Working)
    )
   
    ;;  cleanup
   
    (Done)
   
)

[CAB]

Neat idea, but it is misbehaving in ACAD 2000
I only see the first change to modemacro

[MP]

Neat idea, but it is misbehaving in ACAD 2000
I only see the first change to modemacro

Bummer, looks like this in AutoCAD 2006:

[CAB]

Cooool, that,s what i had imagined..

BTW- Whats Bugs do?

[MP]

Bugs, bugs and more bugs.

:kewl:

[CAB]

Is that (spell) Buggs Bunny or something else?

[MP]

I'm thinking it's a doog myself.

[CAB]

 :kewl:

[MP]

Woof!

[CAB]

 
Looked like Bugs to these old eyes until you doctored er ugh enlarged it.