Opening an ACAD drawing Error: MDI mode!

[Wooderson78]

I can't seem to open an Autocad drawing in VBA. i keep getting a Collection not available in MDI mode error. Use documents. Here's the code I'm trying to run.


Set acad = CreateObject("Autocad.Application")
Set acad = GetObject(, "AutoCAD.Application")
acad.Visible = False

'Hide the dialogue box
Set acaDoc = acad.ActiveDocument
acaDoc.Open "C:\Projects\W7ls0116.dwg"
Set pViewport = acaDoc.ActiveViewport
pViewport.ZoomExtents
Set sset = acaDoc.SelectionSets.Add("NEWSS")
sset.Select acSelectionSetAll Set acad = CreateObject

[alex_read]

You should only need the 1st line rather than the top 2 - try commenting out the 2nd line to start with.

What line does this fall over on? & what is the bottom line there meant to do please?

[samalendu]

Hope this will work...

Code:
--------------------------------------------------------------------
Dim acadApp As AcadApplication

Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
'Open AutoCAD app if not already open
Set acadApp = CreateObject("AutoCAD.Application")
acadApp.Visible = True
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If