galaxy24 发表于 2004-2-17 23:24:00

求救，CAD2002与VB通信问题

Sub Ch2_ConnectToAcad()<BR>                       Dim acadApp As AcadApplication<BR>                       On Error Resume Next<BR>                       <BR>                       Set acadApp = GetObject(, "AutoCAD.Application")<BR>                       If Err Then<BR>                                                       Err.Clear<BR>                                                       Set acadApp = CreateObject("AutoCAD.Application")<BR>                                                       If Err Then<BR>                                                                                       MsgBox Err.Description<BR>                                                                                       Exit Sub<BR>                                                       End If<BR>                       End If<BR>                       MsgBox "Now running " + acadApp.Name + _<BR>                                                                               " version " + acadApp.Version<BR>End Sub<BR>这是CAD2002帮助里面提供的连接方法，可是我的vb就是连接了CAD，另外CAD2004版本我也试过，也是不行。能帮我分析一下可能会是什么原因吗？谢谢

efan2000 发表于 2004-2-18 17:27:00

acadApp.Visible=true


上面的程序是连接了，但没有显示出来。

galaxy24 发表于 2004-2-18 23:06:00

原来是这样，多谢了！

页: [1]
查看完整版本: 求救，CAD2002与VB通信问题