ADN Club > VBA

Ошибка -2147221231 при работе с подшивками.

(1/1)

DimkaCactus:
Добрый день уважаемые форумчане.
До последнего момента пользовался кодом который позволял добавлять и нумеровать литы в подшивке под AutoCad2016 работало все безупречно, но при переходе на акад 2020 при выполнении тогоже кода возникает ошибка:
.

При переходе в отладку кода останов происходит на строке "Set ssm = New AcSmSheetSetMgr"

--- Код - Visual Basic [Выбрать] ---Sub changeNumber() Dim iterDb As IAcSmEnumDatabaseDim ItemDb As IAcSmPersist        Set ssm = New AcSmSheetSetMgr        Set iterDb = ssm.GetDatabaseEnumerator        Set ItemDb = iterDb.Next        Do While Not ItemDb Is Nothing        Set db = ItemDb        Call db.LockDb(db)    On Error Resume NextПодключение библиотек AcSmComponents23 1.0 Type Library,  AcSmComponents24 1.0 Type Library не помогло.
Очень прошу помочь оживить код.
Заранее спасибо

Александр Ривилис:
DimkaCactus,
Напоминаю про правило форматирования кода на нашем форуме!

Александр Ривилис:
DimkaCactus,
У тебя какая-то проблема при регистрации AcSmComponents23 1.0 Type Library при установке AutoCAD 2020 (именно эта библиотека нужна для AutoCAD 2020). Возможно поможет установка обновлений на AutoCAD 2020.

DimkaCactus:
Спасибо. Вопрос решился)

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

--- Цитата: DimkaCactus от 13-12-2021, 18:48:20 ---Спасибо. Вопрос решился)

--- Конец цитаты ---
Интересно каким способом?

Навигация

[0] Главная страница сообщений