Stop a lisp loop with a button

[Jimmy Sean]

Try replacing the (while T with (while (eq 5 (car (grread T 15 0)))

this way, it will allow you to pan around and once you hit any key or click the mouse, it will exit. Just keep in mind that it will only cycle the on/off state, etc. if your mouse is moving, but since you'll be panning around, it will work fine.

 

When I tried your original code I could never get it to flash at all, that is why I separated the on/off. If I could get it to work your way then I'm all for that.

[alanjt]

This should scroll fine. I added a print to the commandline so you could see the variable change from 0 to 1 (on to off).

 

(while (eq 5 (car (grread t 15 0)))
 (print (itoa (setvar 'lwdisplay (abs (1- (getvar 'lwdisplay))))))
 (command "_.delay" 200)
)

[Jimmy Sean]

This should scroll fine. I added a print to the commandline so you could see the variable change from 0 to 1 (on to off).

 

(while (eq 5 (car (grread t 15 0)))
 

 

Could you explain this line to me please?

 

Is there away to control how many on/offs before it pauses?

 

Thanks

[Jimmy Sean]

Could you explain this line to me please?

 

Is there away to control how many on/offs before it pauses?

 

Thanks

 

I figured out what the line of code means. Thanks for all the help but at this point the guy I work for doesn't like the functionality of it so I'm at a stand still with this. He doesn't like the fact that it stops unless you move the mouse. It would flash before without any input from the user and that is what he wants.

 

Again thanks for your help.

Sean

[alanjt]

I figured out what the line of code means. Thanks for all the help but at this point the guy I work for doesn't like the functionality of it so I'm at a stand still with this. He doesn't like the fact that it stops unless you move the mouse. It would flash before without any input from the user and that is what he wants.

 

Again thanks for your help.

Sean

Sorry I never got back to you on this. I completely forgot about this thread.

[Jimmy Sean]

Not a problem, I appreciate all the help you have given.

 

The problem with the other version is it takes too many escapes to get out of the loop and the version you helped with is it won't flash continually. I can't win.

[alanjt]

Not a problem, I appreciate all the help you have given.

 

The problem with the other version is it takes too many escapes to get out of the loop and the version you helped with is it won't flash continually. I can't win.

As I tell the guys around here, it's programming in AutoCAD, not magic.

[The Buzzard]

As I tell the guys around here, it's programming in AutoCAD, not magic.

 

I dont know about that Alan, This picture I found of you suggests the latter.

[alanjt]

I dont know about that Alan, This picture I found of you suggests the latter.

HaHa

Man, I wish my beard was that awesome.