[thdr]

Помогите пожалуйста разобраться в коде.
Имею Win 7 64, автокад 2013 + vba enabler 64. На 32 битной системе все работает нормально, получаю нужный результат.
На 64 битной системе отладчик стопорится на Set ThdrDLL = ThisDrawing.Application.GetInterfaceObject("alexUt.lexUtil") и соответственно ошибка Выдает ошибку Run-time error - 2147221164 (80040154) Problem in loading application.

Привожу код

Код:

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

Dim strWBName As String, strWSName As String
Dim blnSecTab As Boolean
Dim objExcel As Excel.Application
Dim objExWB As Workbook
Dim exWSheet As Worksheet
Dim exFCell As Range
Dim blnSaveFile As Boolean
Dim WinHwnd As Long

Public Sub sbAllAcTableExport()
  Dim acMS As AcadBlock
  Dim acPS As AcadBlock
  Dim acEnt As AcadEntity
  Dim iCntMS As Integer, iCntPS As Integer, iTabOrd As Integer, iMaxL As Integer
  
  Dim acLayout As AcadLayout
  Dim acLyts As AcadLayouts
  
  Dim ThdrDLL As Object
  Set ThdrDLL = ThisDrawing.Application.GetInterfaceObject("alexUt.lexUtil")
    
  blnSaveFile = True
  blnSecTab = False
  
  Set acMS = ThisDrawing.Blocks.Item("*Model_Space")
  For Each acEnt In acMS
    If acEnt.ObjectName = "AcDbTable" Then
      sbInsAcTableToEx acEnt
      blnSecTab = True
      iCntMS = iCntMS + 1
    End If
  Next
  
  Set acLyts = ThisDrawing.Layouts
  iMaxL = acLyts.Count - 1
  
  For iTabOrd = 1 To iMaxL
    For Each acLayout In acLyts
      If acLayout.TabOrder = iTabOrd Then
        Set acPS = acLayout.Block
        For Each acEnt In acPS
          If acEnt.ObjectName = "AcDbTable" Then
            sbInsAcTableToEx acEnt
            blnSecTab = True
            iCntPS = iCntPS + 1
          End If
        Next
        Debug.Print acLayout.Name
      End If
    Next
  Next iTabOrd
  
  AppActivate "AutoCAD"
  MsgBox "Экспорт таблиц в Excel окончен." & vbCrLf & "Экспортироанно из пространства модели - " & iCntMS & _
    vbCrLf & "Экспортированно из пространства листов - " & iCntPS, vbOKOnly + vbInformation, "Процедура окончена."
  
  ThdrDLL.WindowActivate WinHwnd
  
ExitSub:
  Set acMS = Nothing: Set acPS = Nothing: Set acLayout = Nothing: Set acLyts = Nothing
  Set acEnt = Nothing: Set ThdrDLL = Nothing
  Set objExcel = Nothing: Set objExWB = Nothing: Set exFCell = Nothing: Set exWSheet = Nothing
End Sub

[Кулик Алексей aka kpblc]

alexUt.lexUtil - это что и откуда? Соответствующее приложение вообще существует? Загружено? Зарегистрировано?

[Олег (jr.)]

однозначно надо иметь версию "alexUt.lexUtil.dll" переписанную на 64-бит,
проще сделать свой модуль это не так сложно,или ищи в Google

[thdr]

Олег не подскажите как? может как-то пересобрать библиотеку под 64.?

Да Алексей, библиотеку я зарегистрировал в системе, в реестре запись появилась, сама библиотека лежит в SysWow64.

[Олег (jr.)]

Сообщение от thdr Олег не подскажите как? может как-то пересобрать библиотеку под 64.? Да Алексей, библиотеку я зарегистрировал в системе, в реестре запись появилась, сама библиотека лежит в SysWow64.

Нужен полный доступ к коду и затем в сборке заменить ссылки на библиотеки
из папки где хранятся соответствующие тем что были на 32 битные,
или лучше скопипастить код и создать отдельную сборку

[thdr]

Сообщение от Олег (jr.) Нужен полный доступ к коду и затем в сборке заменить ссылки на библиотеки из папки где хранятся соответствующие тем что были на 32 битные, или лучше скопипастить код и создать отдельную сборку

Олег, а можно ссылочку, я вчера пол интернета облазил, такое ощущение что 64 битная система не понимает код этот. Ситуация такая в 32 битной системе макросы для автокада работают отлично. А вот на 64 битной такая вот проблема. Пробовал даже использовать hex редактор, нашел там пути в этой dll, которые не соответствовали. Поправил.

[Boxa]

Сообщение от thdr Ситуация такая в 32 битной системе макросы для автокада работают отлично. А вот на 64 битной такая вот проблема.

У меня вообще через раз макросы запускались, потому мигрировал на .net, чего и Вам желаю.

[hwd]

VBA - это вообще не надёжный товарищ, своего рода тёмная лошадка. Сейчас он не стабилен и на краю пропасти, а в версии AutoCAD 2014... В общем посмотрим Но автодеск продолжает настоятельно валить с этого языка.

[Олег (jr.)]

Сообщение от thdr Олег, а можно ссылочку, я вчера пол интернета облазил, такое ощущение что 64 битная система не понимает код этот.

тебе нужен полный доступ к коду чтобы собрать новую сборку для 64-бит,
просто изменить ссылки не поможет, проще создать новый проект и скопипастить в него код,
естественно ссылки должны быть те что нужно,
насчет макросов ищи здесь или тоже самое в Гугле:
http://yandex.ru/yandsearch?text=64-...o+problem&lr=2

Можешь попробвать пример отсюда:
http://forums.autodesk.com/t5/Visual...ht/true#M93666
последний пример