'Autocad main window is invisible ' error

[Ron Hunter]

Hi,
I have recently started to create objects within Autocad using VBA within an Excel spreadsheet.

In this instance I have a control spreadsheet where the user specifies an external spreadsheet to open and get data from. I want to use VBA to instruct Autocad to create various layers and objects within the file autocad currently has open. The problem is that:

The control spreadsheet opens and reads the data. It executes the code to create the layers and object but when it comes to execute the command to 'zoomextents' the current autcad view I get the error 'Autocad main window is invisible'. How can I make the autocad file the active object?

I have attached the vba code I am using...

Thanks in advance for any assistance with this

[Ed Jobe]

Welcome to AUGI.
To insert code, click on Go Advanced and use the code tags.

Sub new_vba()
Dim cad As AcadApplication
Dim cad_file As AcadDocument
Dim east_north(0 To 2) As Double
Dim file_path
Dim k As Long
Dim handle, row_no, i, j As Integer
Dim file_name As Variant
Dim point_no, counter, counter1 As Integer
Dim code, dummy, last_layer As String
Dim east, north As Single
Dim easts, norths As String
Dim data_read(1000, 15)
Dim temp(500, 6)
Dim layer(100, 2)
Dim acadcir(0) As AcadCircle
Dim objnewlayer As AcadLayer
Dim hatchobject As AcadHatch
Dim radius As Double

'initialise the data array
For i = 1 To 1000
For j = 1 To 14
data_read(i, j) = ""
Next j
Next i

Unfortunately, there is something about your code that won't allow me to display the rest of it.

[Ed Jobe]

Maybe this thread will help.