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

xiaohaiclj 发表于 2004-8-14 12:13:00

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

哈哈，很多菜鸟同我一样拷贝了本站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、砸了电脑卖废铁

cqnj023 发表于 2004-8-15 10:31:00

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

wmz 发表于 2004-8-15 13:39:00

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

bubu 发表于 2004-9-18 17:44:00

找不到库怎么办

wzw393831667 发表于 2009-5-25 17:25:00

狂顶你~~~~

查看完整版本: 对于VB无法连接CAD的的问题的回答