哈哈，很多菜鸟同我一样拷贝了本站VB连接CAD获得CAD对象的程序后，
却无法连接CAD，现在我终于发现了原因：
1、没有设定acadapp.visible=true
2、没有设定.application.16 后面的版本号
设定acadapp.Visible = True通常被人忽略，但是这个小问题会造成大麻烦，版本号很多帖子都有讲了，装了好几个版本的时候电脑会不知道你指的是那一个的！
为了方便同我一样广大的菜鸟同志，我把程序放下边了：
Dim acadapp As Object
'初始化CAD
On Error Resume Next
Set acadapp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
acadapp.Visible = True
End Sub
其实我也是在本论坛的帖子群里疯狂浏览才发现acadapp.Visible = True这个问题的
如果你还是无法连接CAD，不要紧我还有三个方法：
1、重装CAD
2、重装VB
3、砸了电脑卖废铁
置顶卡
