• Artem
  • Восстановленный участник
  • На форуме с 21 июня 2001г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Заверешение Acad из VBA Automation ?

Пробую вот этот пример из форума
Sub Example_AddCircle()
    ' This example creates a circle in model space.
[...]
    Dim AcadApp As AcadApplication
    Set AcadApp = New AcadApplication
    Dim MainDoc As AxDbDocument
    Set MainDoc = AcadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.16")
[...]
    Set MainDoc = Nothing
    AcadApp.Quit ' завершаем AutoCAD
    Set AcadApp = Nothing
End Sub
Автокад после этого физически выходит, но процесс autocad остается висеть в памяти... мож знает кто, что за фича?
Иль дописать надо чего?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Заверешение Acad из VBA Automation ?

Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Sub BrutExit()
 DestroyWindow ThisDrawing.hwnd
End Sub

Сама жестокость ;)

  • Artem
  • Восстановленный участник
  • На форуме с 21 июня 2001г.
  • Сообщений: 9
  • Спасибо: 0

Re: Заверешение Acad из VBA Automation ?

Я понял почему он не завершается. Я открываю шаблон  - он создает "Рисунок1.dwg" - я сохраняю под своим именем "*.dwg" , а "Рисунок1.dwg" - продолжает висеть в памяти.
Сейчас попытаюсь все переписать не под DBX, а под ACAD Application...