Вопрос вот в чем - какие возможны проблемы и подводные камни во взаимодействии такой фоновой программы с ОС?
Вот код:
- Код: Выделить всё
Sub Main()
Dim app As Object
'параметр обеспечивающий автозагрузку при повторных запусках AutoCAD в продолжении сеанса Windows
Dim Flag As Boolean
Flag = True
On Error Resume Next
Do
Do
Err.Clear
'получаем объект "AutoCAD.Application"
Set app = GetObject(, "AutoCAD.Application")
If (Err.Number = 429) Then
'AutoCAD не запущен
Flag = True
End If
'pause
Call vPause
Loop While (Err.Number = 429) 'end do
If (Flag) Then
If (app.Version = "15.06") Then
app.ActiveDocument.SendCommand "(load ""MyStartUp.lsp"") "
Flag = False
End If
End If
Set app = Nothing
Loop While (Err.Number <> 429) 'end do
End Sub
Private Sub vPause()
Dim PauseTime As Single
Dim Start As Single
Dim Finish As Single
'задержка на 0,1 сек
PauseTime = 0.1
Start = Timer
Do While (Timer < Start + PauseTime)
DoEvents
Loop
End Sub
