topic Check if autoCAD is open in VBA Forum

Check if autoCAD is open

Anonymous — Tue, 05 Jul 2016 17:11:41 GMT

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

Re: Check if autoCAD is open

Alfred.NESWADBA — Wed, 06 Jul 2016 08:44:00 GMT

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 -

Re: Check if autoCAD is open

Jonathan3891 — Wed, 06 Jul 2016 16:42:47 GMT

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