[求助]vb程序问题导致Autocad致命错误的解决方法

songtq · 发表于 2007-9-1 22:50:00

各位朋友，本人采用cangcang朋友提供的将界面嵌入到VB窗口的方法，代码如下。其他操作与CAD不嵌入VB相同，但VB程序出现错误或异常时，都会引起AutoCAD致命错误，而对于不采用嵌入VB界面的方式，就不会引起AUTOCAD错误。请高手解释一下原因，当采用嵌入方式的时候，怎样解决，才不至于由于VB出现异常导致CAD致命错误，多谢！！

songtq · 发表于 2007-9-1 22:53:00

cangcang朋友提供的将Autocad界面嵌入到VB窗口的代码
[CODE][/CODE]
Public Sub AutoCAD_Appliaction(pic As VB.PictureBox, AcadApp As AcadApplication, AcadDoc As AcadDocument) '调用AUTOCAD在VB图形窗口中
On Error Resume Next
Dim i As Integer
Set AcadApp = GetObject(, "AutoCAD.Application.16")
If Err Then
      Err.Clear
      Set AcadApp = CreateObject("AutoCAD.Application.16")
      If Err Then
         pic.Visible = False
         MsgBox Err.Description
         pic.Visible = True
         Exit Sub
      End If
Else
      If AcadApp.Documents.Count > 1 Then
         For i = AcadApp.Documents.Count To 1 Step -1
            Set AcadDoc = AcadApp.Documents.Item(i - 1)
            AcadDoc.Save
            AcadDoc.Close
         Next
      End If
End If
Set AcadDoc = Nothing

Dim z As AcadMenuGroup
Dim j As AcadToolbar

For Each z In AcadApp.MenuGroups
      For Each j In z.Toolbars
      j.Delete
      Next j
Next z

lHwnd = GetParent(GetParent(AcadApp.ActiveDocument.hwnd))
If lHwnd = 0 Then Exit Sub
SetParent lHwnd, pic.hwnd
SetWindowText lHwnd, "图形显示"
AcadApp.Visible = True
AcadApp.WindowState = acMax

End Sub