Re: Repeat function in AutoCAD VBA
Well, AutoCAD core console does not support VBA, so you cannot use it with VBA code.
Using another app's feature (Excel's Application.OnTime, as you mentioned) is bad idea, to say the least.
If you have to use VBA for certain reason, VBA has built-in function - Timer, which you use to record a time period elapsed and run particular code at certain interval.
Firstly, I do not know what you need AutoCAD to do, but assume it would process one or more drawings every time a new job item is detected in your database. I'd think using AutoCAD core console would be better choice with proper notification mechanism, likely a service time of app. But that would be out of topic of this forum and beyond the question you asked here.
Regardless what exactly your business process, VBA's Timer CAN provide a way to execute VBA code in a given interval. You just need a bit programming (we are programmer here, eh?). Following code shows how to do in VBA:
Option Explicit
Private Const PAUSE As Integer = 5 '' Seconds for Timer to pause
Private Const INTERVAL As Long = 20 '' 30 seconds
Private startTime As Date
Private start As Integer
Public Sub DoWork()
Dim go As Boolean
Dim currentTime As Date
Dim timeDiff As Long
startTime = Now
Do
go = True
start = Timer
Do While Timer < start + PAUSE
DoEvents
Loop
currentTime = Now
Debug.Print currentTime
timeDiff = DateDiff("s", startTime, currentTime)
Debug.Print timeDiff
If timeDiff > INTERVAL Then
'' This is where the work is done in every a while
'' determined by const INTERVAL, I set it for 20 seconds
'' you can set it to 3000 (5 min)
go = DoSomething
If go Then startTime = Now
End If
Loop While go
MsgBox "Repeating work has been cancelled!"
End Sub
Private Function DoSomething() As Boolean
Dim msg As String
msg = "Do work here... done." & vbCr & vbCr & _
"Do you want to it again?"
If MsgBox(msg, vbYesNo + vbQuestion) = vbYes Then
DoSomething = True
Else
DoSomething = False
End If
End Function
I do not think using VBA with its Timer is a very good solution to your business need, but again, the code here is only meant to show how to use Timer to run a piece of code with given interval. Run the code and watch the immediate window for the output from Debug.Print, you can have clear sense how the code works.
