社区 › VB › 求救，CAD2002与VB通信问题

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

求救，CAD2002与VB通信问题

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

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

acadApp.Visible=true
上面的程序是连接了，但没有显示出来。

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

原来是这样，多谢了！

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