Тема: Ошибка: No database
Проблема в следующем:
В базе данных в поле binary храниться чертеж формата DWG. По выбору пользователем элемента я считываю чертеж в файл из базы данных и при вызове InsertBlock выдает ошибку:
No Database
Код процедуры следующий:
Dim Acad As AcadApplication
Dim Aobj As AcadBlockReference
Dim returnPnt As Variant
Dim stream As New ADODB.stream
On Error GoTo err
stream.Type = adTypeBinary
stream.Open
stream.Write SQLLINK.Recordset.Fields("Element_dwg").GetChunk(SQLLINK.Recordset.Fields("Element_dwg").ActualSize)
stream.SaveToFile (App.Path & "\data\1.dwg")
stream.Close
Me.Hide
Set Acad = GetObject(, "AutoCAD.Application.16")
returnPnt = Acad.ActiveDocument.Utility.GetPoint(, "Enter a point: ")
[b]Set Aobj = Acad.ActiveDocument.ModelSpace.InsertBlock(returnPnt, App.Path & "\data\1.dwg", 1#, 1#, 1#, 0)[/b]
Me.Show
Exit Sub
err:
MsgBox err.Description
Exit SubОшибка в выделенном блоке программы. Что я не так делаю?
з.ы. Файл создаеться и открываеться !!!проверенно!!!.
з.ы.ы. AutoCad вставляет блок из этого файла (вручную) !!! проверенно !!!
з.ы.ы.ы. Заранее спасибо.
