[vlalexey]

При вставки блока в чертеж:

Код:

[Выделить все]

Dim insPnt(0 To 2) As Double
insPnt(0) = 0
insPnt(1) = 0
insPnt(2) = 0
Call ThisDrawing.ModelSpace.InsertBlock(insPnt, "D:\test.dwg", 1, 1, 1, 0)

получаю следующее сообщение:

Run-time error '-2145386445 (80200033)'
Ошибка файлера

(В англ. автокаде - Filer error)

Причем в новом файле этот код успешно выполняется (хоть несколько раз). Но если выполнить _purge - после этого этот Filer error и появляется

Содержимое test.dwg - несколько простых примитивов (пробовал различные файлы вместо test.dwg)
AutoCAD 2008 и 2010

[Лиспер]

Попробуй перед вставкой блока проверять его наличие в таблице блоков.

[vlalexey]

Не совсем понял про проверку:
Если определение блока есть в таблице блока - код нормально отрабатывает.
Также код нормально отрабатывает на новом файле.
Но если я вставлю блок удалю его и затем его определение (через _purge), то код перестает отрабатывать, хотя по идее должен подгрузить блок из "D:\test.dwg"

Может есть какой-то костыль, который гарантированно выполнял вставку блока из другого файла (вне зависимости есть или нет определение этого блока в текущем файле)?

[Александр Ривилис]

Попробуй так:

Код:

[Выделить все]

Public Sub ttt()
Dim insPnt(0 To 2) As Double
insPnt(0) = 0
insPnt(1) = 0
insPnt(2) = 0
Dim blockRefObj As AcadBlockReference
Dim path As String
path = "D:\test.dwg"
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insPnt, path, 1, 1, 1, 0)
End Sub

Вроде бы разницы никакой, но работает после _PURGE (во всяком случае в AutoCAD 2008). А твой код после _PURGE выдает туже ошибку.

[vlalexey]

Да, действительно после добавления:

Код:

[Выделить все]

Dim mStr As String
mStr = "D:\test.dwg"
Call ThisDrawing.ModelSpace.InsertBlock(insPnt, mStr, 1, 1, 1, 0)

Все заработало (в 2008 и 2010)
Спасибо большое.

Т.е. есть получается разница передавать константу или строковую переменную?
Хорошо, что решилось, но непонятны корни проблемы.