Topic: DoEvents in LISP ?

[mailmaverick]

When my LISP routine takes long time to execute, the window freezes.

I use (acet-ui-status .....) along with (vla-eval (vlax-get-acad-object) "DoEvents")

This solves my purpose. But for DoEvents to work, VBA Module needs to be installed from following link :-

http://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/download-the-microsoft-visual-basic-for-applications-module.html

Now, in my computer, I have VBA module installed. But when I run this LISP in any other computer where VBA is not installed, it gives error.

Is it possible to do DoEvents in LISP ?

Or otherwise, any other solution to stop window freeze ?

[mailmaverick]

Anyone

[Lee Mac]

The window freezes for this reason - as far as I am aware, there is no way around this using only AutoLISP, unless you continously accept user input via grread whilst processing.

[divtiply]

There is an ARX solution -- http://www.maestrogroup.com.ua/support/ProgressBars.zip
Use (onidleacad [time-interval]) in your main loop.

[mailmaverick]

The window freezes for this reason - as far as I am aware, there is no way around this using only AutoLISP, unless you continously accept user input via grread whilst processing.

Can we use grread with a timer, say 0.01 seconds in which it will wait for user input (dummy input) for 0.01 seconds and if it doesn't get it, then the program execution will proceed. That way maybe we can refresh the screen during LISP routine.

[roy_043]

I seem to recall a recent similar topic where using (grtext -1 str) in each loop solved the problem.
Can't find it though.

[mailmaverick]

I seem to recall a recent similar topic where using (grtext -1 str) in each loop solved the problem.
Can't find it though.

R U talking about this thread : http://www.theswamp.org/index.php?topic=25336.5

[roy_043]

I seem to recall a recent similar topic where using (grtext -1 str) in each loop solved the problem.
Can't find it though.

R U talking about this thread : http://www.theswamp.org/index.php?topic=25336.5

No.

[Lee Mac]

Here is a very simple example to demonstrate how grread may be used to prevent freezing/non-responsiveness whilst processing:

Code - Auto/Visual Lisp: [Select]

1. (defun c:10secprocess ( / t1 t2 )
2.     (alert
3.         (strcat
4.             "The following process will take 10 seconds."
5.             "\nThe AutoCAD window will not freeze during this time."
6.         )
7.     )
8.     (setq t1 (getvar 'millisecs)
9.           t2 (+ 10000 t1)
10.     )
11.     (acet-ui-progress-init "Processing..." 10500) ;; 10s + some tolerance
12.     (while (< (getvar 'millisecs) t2)
13.         (grread t)
14.         (acet-ui-progress-safe (- (getvar 'millisecs) t1))
15.     )
16.     (acet-ui-progress-done)
17.     (princ)
18. )

Any slight movement of the mouse will suffice whilst the program is running to ensure processing continues.