Public Function OpenDocument() As Boolean
appObj = New AcadApplication
Application.DoEvents()
If bAbortFlag = True Then
Exit Function
End If
If appObj Is Nothing Then
WriteToErrorLog(CStr(nErrorDocNo), dwgName, "File Operation", "Application not initialised", "", "", "")
nErrorNo = nErrorNo + 1
OpenDocument = False
Else
Try
docObj = appObj.Documents.Open(fileName)
Catch ex As Exception
WriteToErrorLog(CStr(nErrorDocNo), dwgName, "File Operation", "Unable to Open the Input Drawing File", "", "", "")
nErrorNo = nErrorNo + 1
Exit Function
End Try
' Saving the File as Temporary Sheet.......
end if
End Function
In errorlog.xls file "Application not initialised", error is printed. But the problem is after that I am getting one more window. I dont want this window to appear. the program has to close that window and terminate the application objects.
Message was edited by: anjanact