Check if autoCAD is open

[Anonymous]

Hello there!

How can I writhe a VBA to check if autoCAD Application is open, and when YES then call a Sub and when NO make a message box that autoCAD is close.

Below have you a VBA that I whant to integrate in Excel.

Sub runsub(control As IRibbonControl)

Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument

If acadApp Is Nothing Then
MsgBox "AutoCAD is closed"
Else
Call Zeichnung
End If
End Sub

Can you please help me out?

Best regards

Alex

[Alfred.NESWADBA]

Hi,

you can use GetObject() to try to get a connection to an running instance of AutoCAD.

But in case you don't get a positive result that does not mean that AutoCAD was not started, it could also be that AutoCAD is running, just not responding (current active with something).

Check the list of processes for "acad.exe" could also be a test.

- alfred -

[Jonathan3891]

Sub sbACAD()
Dim objAutoCAD As Object

On Error Resume Next
Set objAutoCAD = GetObject(, "AutoCAD.Application")
On Error GoTo 0

If objAutoCAD Is Nothing Then
          
MsgBox "AutoCAD is not running", vbOKOnly, "Error"
          
Else: AppActivate "AutoCAD"
objAutoCAD.WindowState = 3

End If
End Sub