Pause for a specified interval

I'm having a problem with the following code. The first time the app runs, i
get a 'no function definition: C:BR_VW' error. The next time it is run,
everything works fine. I'm hoping that If i get the lisp routine to wait
while the vlx is loading it might work.

Does anybody have a pause routine that you could pass an arg in seconds to?

Any suggestions?

Dale

(defun c:br_view ()
(if (and (null c:br_vw) (findfile "Bo.vlx"))
(progn
(load "Bo.vlx")
(c:br_vw)
)
(c:br_vw)
)
)

 

No function definition for delay. This is what I've used previously in VB.

Public Sub g_sb_Delay(ai_Count As Long)

Dim Start As Long
Dim i As Long
i = 0

Start = Timer ' Set start time.
Do While Timer < Start + ai_Count
DoEvents ' Yield to other processes.
Loop

End Sub

 

Got it. Thanks to Tony Tanzillo.

(defun wait (seconds / stop)
(setq stop (+ (getvar "DATE")
(/ seconds 86400.0)))
(while (> stop (getvar "DATE")))
)

 

The waiting has no affect whatsoever though.

I still get the error no matter how long it waits.

 

Oops!
It should've been...

(command "delay" "1000")

--
Matt W

There are 3 kinds of people:
Those who can count, and those who can't.

"Dale Levesque" <dale at dynamicwindows.com> wrote in message
| No function definition for delay. This is what I've used previously in VB.
|
| Public Sub g_sb_Delay(ai_Count As Long)
|
| Dim Start As Long
| Dim i As Long
| i = 0
|
| Start = Timer ' Set start time.
| Do While Timer < Start + ai_Count
| DoEvents ' Yield to other processes.
| Loop
|
| End Sub
|
|
| | > If I remeber correctly, (delay 1000) will make LSP wait for 1 second.
| > Don't know if there's something similar for VLISP.
| >
| > --
| > Matt W
| >
| > There are 3 kinds of people:
| > Those who can count, and those who can't.
| >
| > "Dale Levesque" <dale at dynamicwindows.com> wrote in message
| > | > | I'm having a problem with the following code. The first time the app
| runs,
| > i
| > | get a 'no function definition: C:BR_VW' error. The next time it is
run,
| > | everything works fine. I'm hoping that If i get the lisp routine to
wait
| > | while the vlx is loading it might work.
| > |
| > | Does anybody have a pause routine that you could pass an arg in
seconds
| > to?
| > |
| > | Any suggestions?
| > |
| > | Dale
| > |
| > | (defun c:br_view ()
| > | (if (and (null c:br_vw) (findfile "Bo.vlx"))
| > | (progn
| > | (load "Bo.vlx")
| > | (c:br_vw)
| > | )
| > | (c:br_vw)
| > | )
| > | )
| > |
| > |
| >
| >
|
|

 

Make a call within the lsp to load itself and run.

 

Huh? How can it run it's code to load itself and run if it isn't loaded?

 

consider:

.. . .
(defun lobo()(load "bo.vlx"))
(vlax-add-cmd "lobo" 'lobo)
(command "lobo")
((while (= (logand (getvar "cmdactive") 1) 1)
(command pause))
.. . .

rs

 

Just load the function in acad2000.lsp or acad2002.lsp.
Then call it when needed.
Bob