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

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

哈哈，很多菜鸟同我一样拷贝了本站VB连接CAD获得CAD对象的程序后，


却无法连接CAD，现在我终于发现了原因：


<FONT size=2>                               1、没有设定acadapp.visible=true<BR>                                                               2、没有设定autocad.application.16 后面的版本号                                                                                                                                               </FONT>


<FONT size=2>设定acadapp.Visible = True通常被人忽略，</FONT>但是这个小问题会造成大麻烦，版本号很多帖子都有讲了，装了好几个版本的时候电脑会不知道你指的是那一个的！<BR>为了方便同我一样广大的菜鸟同志，我把程序放下边了：


Dim acadapp As Object<BR>'初始化CAD<BR>On Error Resume Next<BR>Set acadapp = GetObject(, "autocad.application.16")<BR>If Err Then<BR>               Err.Clear<BR>               Set acadapp = CreateObject("autocad.application.16")<BR>If Err Then<BR>               MsgBox Err.Description<BR>Exit Sub<BR>End If<BR>End If<BR>acadapp.Visible = True<BR>End Sub


其实我也是在本论坛的帖子群里疯狂浏览才发现acadapp.Visible = True这个问题的<BR>如果你还是无法连接CAD，不要紧我还有三个方法：<BR>                               1、重装CAD<BR>                               2、重装VB<BR>                               3、砸了电脑卖废铁

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

感谢<A name=42978><FONT color=#000066><B>xiaohaiclj</B></FONT></A>，难怪以前有时能启动cad2002，有时不能，原来有版本号的问题。

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

<FONT size=2>"设定acadapp.Visible = True通常被人忽略，</FONT>但是这个小问题会造成大麻烦"


楼主说这个话不够准确,其实,设不设<FONT size=2>acadapp.Visible = True仅仅是不是让CAD显示不显示的问题,如果不加这一句,也是可以的,CAD会在后台运行.当然,你得将你的图档保存,如加上这样一句:</FONT>


<FONT size=2>AcadDoc.SaveAs,&lt;文件名&gt;</FONT>


<FONT size=2></FONT>

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

找不到库怎么办

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

狂顶你~~~~
页: [1]
查看完整版本: 对于VB无法连接CAD的的问题的回答