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 ---Спасибо. Вопрос решился)
--- Конец цитаты ---
Интересно каким способом?
Навигация
Перейти к полной версии