• На форуме с 8 сентября 2005г.
  • Сообщений: 57
  • Спасибо: 0

Тема: Открытие AutoCADA из Excel'a

Вопрос такой
Не могу открыть приложение AutoCAD 2004 из ехеля
CreateObject("Acad.Application.16")
Выдает что ActivX не могет создать объект
Что не так.
Кстати на 2005 все работает как по маслу.
Второе: использую всю эту бадью для того чтобы послать в чертеж команду _Zoom _E. Блин задолбал периодически кад вылетает с просьбой отослать кого нить куда нить.
это баг када или я чето делаю не так
после получения объекта када
dim dwg as object
dim documents_AD as object
set documents_AD=acad.Documents
цикл
set dwg=document_AD.Open(name)
dwg.SendCommand("_Zoom _E ")
dwg.Save
dwg.Close
кон_цикл
все это повторяется для многих файлов в циклк соответственно и непонятно почему кад вылетает и всегда по разному. Мож опять че-то не так, хотя по логике вроде бы все правильно

  • На форуме с 19 марта 2004г.
  • Сообщений: 358
  • Спасибо: 0

Re: Открытие AutoCADA из Excel'a

> Vic
Надо писать
CreateObject("AutoCAD.Application.16")

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Открытие AutoCADA из Excel'a

> Vic
Я пользую без ссылки на конкретную версию,
всегда работает:

Dim oAcadApp As AcadApplication
Dim oAcadDoc As AcadDocument
Set oAcadApp = CreateObject ("Autocad.application")

~'J'~