Сообщество программистов Autodesk в СНГ

ADN Club => VBA => Тема начата: DimkaCactus от 12-12-2021, 10:19:45

Название: Ошибка -2147221231 при работе с подшивками.
Отправлено: DimkaCactus от 12-12-2021, 10:19:45
Добрый день уважаемые форумчане.
До последнего момента пользовался кодом который позволял добавлять и нумеровать литы в подшивке под AutoCad2016 работало все безупречно, но при переходе на акад 2020 при выполнении тогоже кода возникает ошибка:
(https://i.postimg.cc/y3h3mMyb/002.png) (https://postimg.cc/y3h3mMyb).

При переходе в отладку кода останов происходит на строке "Set ssm = New AcSmSheetSetMgr"
Код - Visual Basic [Выбрать]
  1. Sub changeNumber()
  2.  
  3. Dim iterDb As IAcSmEnumDatabase
  4. Dim ItemDb As IAcSmPersist
  5.         Set ssm = New AcSmSheetSetMgr
  6.         Set iterDb = ssm.GetDatabaseEnumerator
  7.         Set ItemDb = iterDb.Next
  8.         Do While Not ItemDb Is Nothing
  9.         Set db = ItemDb
  10.         Call db.LockDb(db)
  11.     On Error Resume Next
Подключение библиотек AcSmComponents23 1.0 Type Library,  AcSmComponents24 1.0 Type Library не помогло.
Очень прошу помочь оживить код.
Заранее спасибо
Название: Re: Ошибка -2147221231 при работе с подшивками.
Отправлено: Александр Ривилис от 12-12-2021, 16:02:14
DimkaCactus,
Напоминаю про правило форматирования кода на нашем форуме!
Название: Re: Ошибка -2147221231 при работе с подшивками.
Отправлено: Александр Ривилис от 12-12-2021, 16:16:49
DimkaCactus,
У тебя какая-то проблема при регистрации AcSmComponents23 1.0 Type Library при установке AutoCAD 2020 (именно эта библиотека нужна для AutoCAD 2020). Возможно поможет установка обновлений на AutoCAD 2020.
Название: Re: Ошибка -2147221231 при работе с подшивками.
Отправлено: DimkaCactus от 13-12-2021, 18:48:20
Спасибо. Вопрос решился)
Название: Re: Ошибка -2147221231 при работе с подшивками.
Отправлено: Александр Ривилис от 13-12-2021, 19:28:52
Цитата: DimkaCactus от 13-12-2021, 18:48:20
Спасибо. Вопрос решился)
Интересно каким способом?