[evgm]

Здравствуйте.

Программа, написанная на VB, выводит в AutoCAD используя объектную модель. Если после окончания вывода закрыть документ AutoCADa
то он (AutoCAD) рушится с криками

FATAL ERROR: Unhandled Access Violation Reading 0x0000 Exception at 0h

и предлагает отправить отчет об ошибке
В кратце сюжет такой:

Set ACAD = CreateObject("AutoCAD.Application")
Call ACAD.Documents.Add
ACAD.Visible = True
ACAD.WindowState = acMax
ACAD.ActiveDocument.ActiveSpace = acModelSpace
...
далее идет вывод
ACAD.ActiveDocument.ModelSpace.Add...
...
Call ACAD.ZoomExtents
Call ACAD.ActiveDocument.Regen(acAllViewports)
Call ACAD.ActiveDocument.SaveAs(filename.dwg")

Причем иногда (очень редко) закрывается нормально, без ошибок.
Это наблюдается и в среде разработки VB с откомпилленным exe.
Никак не пойму почему так. Подскажите, пожалуйста.
Заранее спасибо.

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

Какая версия VB? Наличие ServicePack на VB и на AutoCAD?

[evgm]

Visual Basic 6.0 + SP6
AutoCAD 2006 v. Z.54.10 без сервис паков
AutoCAD 2006 Type Library - acax16enu.tlb v. 16.2.54.0

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

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

Попробуй на AutoCAD ServicePack поставить (это по принципу лягушки, попавшей в крынку с молоком). Я на ADT 2006 Eng + SP1 прогнал такой код (без импортирования tlb):

Код:

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

Option Explicit
Option Base 0

Private Function GetOrCreateObject(ApplicationName As String) As Object
Dim Res As Object
  On Error GoTo lErrGetObject
  Set GetOrCreateObject = GetObject(, ApplicationName)
  Exit Function
lErrGetObject:
  Set GetOrCreateObject = CreateObject(ApplicationName)
  Exit Function
End Function

Sub Main()

Dim oAcad As Object
Dim oAcadDoc As Object

  Set oAcad = GetOrCreateObject("AutoCAD.Application.16")
  oAcad.Visible = True
Dim sTemplatePath As String, sTemplateFile As String
  sTemplatePath = oAcad.Preferences.Files.TemplateDwgPath
  Set oAcadDoc = oAcad.Documents.Add(sTemplatePath & "\acadiso.dwt")
  
  With oAcadDoc.ModelSpace
Dim ptStart(2) As Double, ptEnd(2) As Double
  ptStart(0) = -1020: ptStart(1) = 0: ptStart(2) = 0
  ptEnd(0) = 1000: ptEnd(1) = 325: ptEnd(2) = 0#
    .AddLine ptStart, ptEnd
  End With
  
  oAcadDoc.Regen 1 'acAllViewports
  oAcadDoc.Close True, "c:\test.dwg"
  oAcad.quit
  
  Set oAcadDoc = Nothing
  Set oAcad = Nothing

End Sub

Вроде сработало нормально...

[evgm]

Установка Sp1 на Autocad не помогает
за то помогает анализ кода...
oAcad.Visible=True
когда он и без того уже был видимый судя по всему приводил к такой ошибке
по крайней мере устранение повторного visible=true и тестирование всяко разно в течение часа наводит на такую мысль - ошибка исчезла
какие есть мнения??

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

Ну тогда тупо заменить строку

Код:

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

oAcad.Visible=True

на

Код:

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

If Not(oAcad.Visible) Then
  oAcad.Visible = True
End If

Проверить сейчас не могу

[evgm]

конечно нужно !
но вот почему же так происходит?