Добрый день уважаемые форумчане.
До последнего момента пользовался кодом который позволял добавлять и нумеровать литы в подшивке под AutoCad2016 работало все безупречно, но при переходе на акад 2020 при выполнении тогоже кода возникает ошибка:
.
При переходе в отладку кода останов происходит на строке "Set ssm = New AcSmSheetSetMgr"
Sub changeNumber()
Dim iterDb As IAcSmEnumDatabase
Dim 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 не помогло.
Очень прошу помочь оживить код.
Заранее спасибо
