Delay / Wait in Lisp

[irneb]

Anyone know of a way to delay further execution for a specified time? I know I can use the DELAY command, but that doesn't work if you cannot issue a command at that point.

[TimSpangler]

Anyone know of a way to delay further execution for a specified time? I know I can use the DELAY command, but that doesn't work if you cannot issue a command at that point.

Try this

;;; ------------ SUBROUTINE TO PAUSE
(defun WAIT (Seconds / Stop)
		
	(setq Stop (+ (getvar "DATE") (/ Seconds 86400.0)))
	(while (> Stop (getvar "DATE"))
		(princ)
	)
)

[irneb]

Thanks, that should work I suppose ... just ... it uses 100% CPU to wait ... so what I'm waiting for is never completing ... oh well, maybe I simply have to find other ways of writing my code!

[TimSpangler]

Not sure what you are trying to do but you may want a while loop? What I posted was a sub to stop processing

Anyone know of a way to delay further execution for a specified time?

If you want to wait til something is completed then you'll need a loop for that.

[irneb]

Thanks, I do get the picture. The thing is it's an asynchronous call to ACad using ActiveX. So while the lisp is (princ)'ing it makes ACad not respond to the ActiveX call. If it was in another proggy, then windows would have shared the CPU load. All I can think of is to check the CMDACTIVE sysvar, but still that's going to loop right?

Oh well, maybe look into reactors ... just need to restart the lisp after approximately X seconds, but leave ACad's running alone so the other command has time to finish. BTW, I'm using a call to the Script ActiveX object to send keys to ACad - so I can try to send Alt+? into a dialog box.