Add if statement to this macro

[jonathann3891]

I have a macro that will lauch AutoCAD and open a specified drawing.

Is there a way to check if AutoCAD is running, and if so DO NOT open another drawing??

Public Sub OpnAcad()
 
    Dim strDrawing As String
    On Error Resume Next
    Set Graphics = GetObject(, "AutoCAD.Application")
    If Err.Description > vbNullString Then
        Err.Clear
        Set Graphics = CreateObject("AutoCAD.Application")
    End If
    ' ACAD.Visible = True
    strDrawing = "C:\Users\username\Desktop\test\PileSchedule.dwg"
    Graphics.Documents.Open (strDrawing)
 
    On Error GoTo 0
End Sub

 

[Jaafar Tribak]

Isn't that what the code you posted is already doing ?

 

[Jaafar Tribak]

Or do you mean by "another drawing" a new document ? If so then see if this works :

Public Sub OpnAcad()
 
    Dim strDrawing As String
    On Error Resume Next
    Set Graphics = GetObject(, "AutoCAD.Application")
    If Err.Description > vbNullString Then
        Err.Clear
        Set Graphics = CreateObject("AutoCAD.Application")
   [COLOR=#0000ff][B] Else[/B][/COLOR]
        [B][COLOR=#0000ff]Exit Sub[/COLOR][/B]
    End If
    ' ACAD.Visible = True
    strDrawing = "C:\Users\username\Desktop\test\PileSchedule.dwg"
    Graphics.Documents.Open (strDrawing)
 
    On Error GoTo 0
End Sub

 

[jonathann3891]

That works, but it opens the specified drawing and a blank drawing.

 

[jonathann3891]

Can the window size be added somewhere?

Application.WindowState = xlMaximized