VB启动CAD有问题

zhc3dport

: v8 A$ h4 D8 g. G* z6 \6 V6 _0 x
各位大虾
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动

1. Public ACADApp As AcadApplication On Error Resume Next
   & _1 P: z, Z8 S$ F% Q) c
2. Set ACADApp = GetObject(, "autocad.application")
   
3. If Err Then
   1 r% N; L  {: A  G7 w8 k: r. }
4. Err.Clear
   0 _% P4 J2 A* m# Y% c
5. Set ACADApp = CreateObject("autocad.application")
   0 p5 q  O; O' l3 n! O6 n3 Z
6. If Err Then
   
7. MsgBox ("不能运行Autocad,请检查是否安装了autocad")
   . D  i3 Y; R+ _' n1 P
8. Exit Sub
   9 S' W3 F) k  s5 w! C1 H
9. End If
   
10. End If
    
11. ACADApp.Visible = True

复制代码

请求帮助！

* u* R& U3 h  F
7 [8 \( g+ |+ H+ s

zhc3dport

是不是本人装了两个版本的CAD的原因啊2004\2007

woaishuijia

你引用AutoCAD类库了吗?

zhc3dport

引用了，在只装2004时可以调用，但在两个CAD系统下就不能用了，

woaishuijia

在 autocad.application 后面加上版本号,例如

1. CreateObject("autocad.application.16")

复制代码

应该是打开2004的.或者

1. CreateObject("autocad.application.16.0")

复制代码

,我手头没有这两个版本,也说不准.反正2004是R16.0版本,2007是R17.0版本,打开2007应该是

1. CreateObject("autocad.application.17")

复制代码

或者

1. CreateObject("autocad.application.17.0")

复制代码

,前提是和引用的类库一致

zhc3dport

搞定了，多谢了