社区 › VB › VB调用CAD问题

cgchbsz 发表于 2008-1-9 15:54:00

VB调用CAD问题

Private Sub Form_Load()
    On Error Resume Next
    Me.Hide
    '获得正在运行的对象
      Set acadApp = GetObject(, "AutoCAD.Application.16")
      If Err Then
             Err.Clear
         '‘创建一个新的AUTOCAD应用程序对象
             Set acadApp = CreateObject("AutoCAD.Application.16")
         If Err Then
             MsgBox "不能运行AutoCAD,请检查是否安装！"
             Me.Show
             Exit Sub
         End If
      End If
Me.Show
   
    acadApp.Visible = True
    acadApp.WindowState = acMax
End Sub
问题是:开机第一次运行的时候,总是回出现"部件要求挂起"有切换/重试选项
仅仅是开机第一次
第二次就不会出现了
请大家帮忙分析下

查看完整版本: VB调用CAD问题