Welcome to AUGI.
To insert code, click on Go Advanced and use the code tags.
Code:
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.