对于VB无法连接CAD的的问题的回答

xiaohaiclj

哈哈，很多菜鸟同我一样拷贝了本站VB连接CAD获得CAD对象的程序后， 却无法连接CAD，现在我终于发现了原因： 1、没有设定acadapp.visible=true
2、没有设定AutoCAD.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、砸了电脑卖废铁

cqnj023

感谢xiaohaiclj，难怪以前有时能启动cad2002，有时不能，原来有版本号的问题。

wmz

"设定acadapp.Visible = True通常被人忽略，但是这个小问题会造成大麻烦" 楼主说这个话不够准确,其实,设不设acadapp.Visible = True仅仅是不是让CAD显示不显示的问题,如果不加这一句,也是可以的,CAD会在后台运行.当然,你得将你的图档保存,如加上这样一句: AcadDoc.SaveAs,<文件名>

bubu

找不到库怎么办

wzw393831667

狂顶你~~~~