Topic: How to use timer in LSP program?

[baitang36]

For example, run a function every minute

[kdub_nz]

From a quick Google search
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/run-lisp-every-hour/m-p/7385593/highlight/true#M358836

I didn't test it.

[baitang36]

From a quick Google search
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/run-lisp-every-hour/m-p/7385593/highlight/true#M358836

I didn't test it.

thank you

Code - Auto/Visual Lisp: [Select]

1. (defun @sysvar_reactor (Reactor Info / Reaction Test DATE)
2.    (or *doc* (setq *doc* (vla-get-activedocument *acad*)))
3.    (setq Reaction (vlr-current-reaction-name)
4.               DATE (getvar "DATE")  ;; Units are days
5.    )
6.    ;; The next two lines are for creating a global list of sysvars that have triggered the reaction
7.    ;; Note that sysvars such as DATE, CDATE, TDUSRTIMER, and VIEWCENTER  do NOT trigger.
8.    (setq sysvar (car info))
9.    (or (vl-position sysvar sysvars)(setq sysvars (cons sysvar sysvars)))
10.    (cond
11.      ((not **LAST_DATE**)(setq **LAST_DATE** DATE))
12.      ((not **INTERVAL**))
13.      ((/= (type **ALARM_FUNCTION**) 'LIST))
14.      ((>= DATE (+ **LAST_DATE** (/ **INTERVAL** 1440.0)))
15.        (eval **ALARM_FUNCTION**)
16.        (setq **LAST_DATE** DATE)
17.      )
18.    )
19.    (princ)
20. )
21. (defun c:setalarm ( / str interval ok)
22.   (while (not ok)
23.     (initget 1)
24.     (setq str (getstring T "\nEnter alarm function to run: "))
25.     (if (= (type (read str)) 'LIST)
26.       (setq  ok 1)
27.       (prompt "\nInvalid function.  Please reenter.")
28.     )
29.   )
30.   (initget 5) ;; require input and disallow negative values
31.   (setq interval (getint "\nEnter alarm interval in minutes (0 to turn off): "))
32.   (@setalarm str interval)
33. )
34. (defun @setalarm (func interval / ok)
35.     (if (and (= (type func) 'STR)(= (type (read func)) 'LIST))
36.       (setq **ALARM_FUNCTION** (read func) ok 1)
37.       (prompt "\nInvlaid function")
38.     )
39.     (if (and  ok (numberp interval)(> interval 0))
40.       (setq **INTERVAL** interval ok 1)
41.       (setq ok (prompt "\nInterval must be greater than or equal to 0."))
42.     )
43.     (cond
44.       ((not ok))
45.       ((> **INTERVAL** 0)
46.         (if (/= (type $sysvar_reactor) 'VLR-SysVar-Reactor)
47.           (setq $sysvar_reactor
48.             (vlr-SysVar-reactor "Uhden Sysvar Reactor"
49.               '((:vlr-sysVarChanged . @sysvar_reactor))
50.             )
51.           )
52.         )
53.         (or (vlr-added-p $sysvar_reactor)(vlr-add $sysvar_reactor) 1)
54.         (setq  **LAST_DATE** (getvar "DATE"))
55.         (princ (strcat "\nAlarm has been set at " (menucmd "M=$(edtime,$(getvar,date),HH:MM:SS)")))
56.         (princ (strcat "\nAlarm will go off in " (itoa **INTERVAL**) " minute(s)."))
57.       )
58.       ((and
59.           (= (type $sysvar_reactor) 'VLR-SysVar-Reactor)
60.           (vlr-added-p $sysvar_reactor)
61.           (or (vlr-remove $sysvar_reactor) 1)
62.           (not (setq $sysvar_reactor nil))
63.           (princ "\nAlarm has been turned off.")
64.         )
65.      )
66.   )
67.   (princ)
68. )
69.  

I tried it, but it didn't work