求助VB调用CAD画图，之前有好心人给贴的代码弄进VB后是AcTIVEX不能创建对象，我是CAD2007

Question

CAD能引用的部件都引用了，可是还是不能调用，求直接做好的VB源程序，大侠发我邮箱444961524@qq.com，能帮我实现的，网银给打10个金

Answer 1

Private Sub Command1_Click()
On Error Resume Next
Dim cad As AcadApplication
Set cad = GetObject(, "autocad.application")
If Err Then
Err.Clear
Set cad = CreateObject("autocad.application")
End If
cad.Visible = True
End Sub
元宝就不需要了，这个试过2010CAD可以引用。至于画图，你要自己做了

Answer 2

你要实现什么样的功能，先具体说一说

追问

只要VB程序能自动调用打开AUTOCAD软件就可以了

追答

那很简单啊，假设你用的是autocad 2004，打开cad，新建一个文件，随便在里面画点东西，然后存入到c:\test.dwg
打开vb，在工程、引用里面勾选autocad 2004 type libery，输入以下代码运行测试看看是否打开了你的c:\test.dwg应用
Private Sub Form_Load()
Dim cadapp As New AcadApplication
Dim cadfile As New AcadDocument
Set cadfile = cadapp.Documents.Open("c:\test.dwg")
cadapp.Visible = True
End Sub
'当然你可以用vb代码往里面画线、圆弧，或者标注什么的，功能比较全面，通过这个可以大幅提高重复工作的效率。比如有时候设计一个很长的河道断面，几百个断面，把GPS测量过来的数据，通过VB处理代码输出到CAD，自动画出各个断面图，顺便自动计算出各个断面开挖或回填面积等。

追问

运行之后总是提示部件要求挂起 然后要切换到 过了几分钟提示AXTIVE X不能创建对象
我CAD是2007的 加了2007的类型库