message

i know how to put a message on screen in lisp, but is it possible to make it
disappear automatically after let's say 5 seconds?
martin

 

Is the message via a dcl message box?

Try the delay command: for 5 sec
(command "delay" "5000")

 

If you use DOSLIB (R. Mcneel & Assoc.), it has a function called
(dos_splash) which will display a splash screen with any desired BMP file
for a set number of seconds. www.mcneel.com

 

it's (alert) in lisp
martin

 

Martin,
Crude..but will work. Does text insert. If you do a 'dialog' of any kind (e.g. .dcl load, alert..etc), will not 'disappear' until you 'inter-act' to it.

----------------------
(defun get_date ( / A yr mo dax hr mi); second (se) passed on
(setq A (rtos (getvar "CDATE") 2 6)) ; get Julian date
(if (/= A nil)
(progn
(setq yr (substr A 3 2)); year (2 digit)
(setq mo (substr A 5 2)); month
(setq dax (substr A 7 2)); day
(setq hr (substr A 10 2)); hour
(setq mi (substr A 12 2)); minute
(setq se (substr A 14 2)); second
(princ)
); end progn
); end if
); end get_date
;
; Print your message...
;
(command "_text" "10,10" "0.125" "0" "THIS MESSAGE WILL SHOW UP FOR 5 SECONDS !")
;
; wait in loop for 5 seconds..
;
(get_date)
(setq sec (atoi se))
(if (or (= sec 55)(> sec 55))
(setq target (- sec 55)); 0 thru 4
(setq target (+ sec 5))
); end if
(while (/= sec target)
(get_date)
(setq sec (atoi se))
); end while
(command "_erase" "_L" "")
(command)

 

Dos_msgbox also has the ability to accept an amount of time to be displayed.

(setq answer (dos_msgbox "This Program does this or that." "AutoCAD Message" 4 3))

Bill

 

Dos_msgbox also can accept an amount of time to be displayed.

(setq answer (dos_msgbox "This Program does this or that." "AutoCAD Message" 4 3))

Bill

 

If your talking about just text - DOSLIB also has a message box function
that has an optional argument to close the dialog after a set number of
seconds. (dos_msgbox)