vb和CAD链接问题！很奇怪的问题，请大侠看看

spirit_sw

我的VB程序本来用下面的子过程链接CAD用的好好的，不过最近这段时间一直链接不上，VB总提示“部件要求挂起，请稍后再试”。这是什么原因啊，在别人电脑上都是好好的，这跟系统有关系吗？除了重装系统还有其他办法吗？请各位大侠帮忙看看： Public Sub subAcdInit()
Dim i As Integer
Dim sDwg As String
Dim myDoc As AcadDocument

On Error Resume Next

Set myAutoCAD = GetObject(, "Autocad.Application")
If Err Then
Err.Clear
Set myAutoCAD = CreateObject("Autocad.Application")
myAutoCAD.Visible = True

If Err Then
MsgBox Err.Description
Exit Sub
End If

End If
End Sub

myfreemind

那可能是因为你autocad这边还有命令在执行，多按几下ESC键！！

sooma

你没有定义“myAutoCAD”变量。