• На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Тема: Почему возникают ошибки при открытии чертежа из Excel?

Для открытия чертежа из Excel использую код:

ПолучитьЧертёжAutoCAD:
   Set objMyACAD = GetObject(strПолноеИмяФайла)
   If DetectAutoCAD = 0 Then
      glngОтвет = MsgBox("Ошибка при получении чертежа AutoCAD, продолжить получать чертёж AutoCAD?", vbYesNoCancel, gstrНазваниеПрограммы)
      If glngОтвет = vbYes Then
         GoTo ПолучитьЧертёжAutoCAD
      ElseIf glngОтвет = vbNo Then
         Exit Sub
      Else
         End
      End If
   End If
   objMyACAD.Application.Visible = True

Function DetectAutoCAD() As Long
   'Процедура находит выполняемый AutoCAD и регистрирует его.
   Const WM_USER = 1024
   Dim hWnd As Long
   'Если AutoCAD выполняется, этот вызов API возвращает его дескриптор.
   hWnd = FindWindow("AUTOCADMAIN", 0)
   If hWnd = 0 Then  '0 означает, что AutoCAD не выполняется.
      DetectAutoCAD = hWnd
      Exit Function
   Else
   'AutoCAD выполняется. Используйте функцию API SendMessage, чтобы ввести его в таблицу выполняемых объектов (Running Object Table).
      SendMessage hWnd, WM_USER + 18, 0, 0
      DetectAutoCAD = hWnd
   End If
End Function

Если ACAD закрыт то появляется сообщение об ошибке с предложением послать отчёт в AutoDesk, что я обязательно делаю. А где у меня ошибка в коде понять не могу.
Причём если AutoCAD открыт при работе макроса то ошибки не возникает.
Ингда появляются сообщения о нехватке памяти. Помогите разобраться как правильно открывать чертежи из Excel!

  • Откуда: Санкт-Петербург
  • На форуме с 24 октября 2008г.
  • Сообщений: 19
  • Спасибо: 0

Re: Почему возникают ошибки при открытии чертежа из Excel?

Извините. Давно не заглядывал на этот форуь. Для работы с Acad'ом из Access и Excel я применяю следующие две функции:
Private Function AutoCADOpen()
    'Разработал В.Г. Тимаков 16.01.2007
    'Цель: Открытие AutoCAD'приложения
   
    'попытка работать с открытым AutoCAD-приложением
        On Error GoTo StartAutoCAD
        Set MyAutoCAD = GetObject(, "AutoCAD.Application")
        wasAutoCADOpen = True
StartAutoCAD:
    If Err.Number = 429 Then 'если нет открытого AutoCAD-приложения
        'вставить здесь запуск окна с текстом "Подождите, пожалуйста. Идет загрузка приложения AutoCAD"
        Set MyAutoCAD = CreateObject("AutoCAD.Application")
    End If
    Err.Clear
    MyAutoCAD.Visible = True
End Function

Private Function AutoCADdrawOpen(FileName$)
    'Разработал В.Г. Тимаков 16.01.2007
    'Цель: Открытие AutoCAD'документа (файла)
   
    Dim MyAutoCADdraw As Object
    Dim isDocOpen As Boolean
    Dim DOC As AcadDocument
    If wasAutoCADOpen Then 'если ACAD был открыт
        'попытка работать с уже открытым файлом
            isDocOpen = False
            If Documents.Count > 0 Then
                For Each DOC In Documents
                    If DOC.FullName = FileName Then
                         DOC.Activate: isDocOpen = True
                    End If
                Next
            End If
        If Not isDocOpen Then Set MyAutoCADdraw = MyAutoCAD.Documents.Open(FileName)
    Else
        Set MyAutoCADdraw = MyAutoCAD.Documents.Open(FileName)
    End If
End Function