VB启动CAD有问题

zhc3dport

  {  e( n4 V# Y8 v8 F各位大虾
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动

1. Public ACADApp As AcadApplication On Error Resume Next
   2 S* u9 J0 i1 u( g' C' v
2. Set ACADApp = GetObject(, "autocad.application")
   
3. If Err Then
   ' t7 e6 p+ f5 _+ [" P  W
4. Err.Clear
   " Y3 Q2 a( N; S6 H  j0 U' I
5. Set ACADApp = CreateObject("autocad.application")
   8 d: B+ u: N& E- E/ M
6. If Err Then
   
7. MsgBox ("不能运行Autocad,请检查是否安装了autocad")
   ( m! t/ v+ N0 ^' Q9 B% x+ Y
8. Exit Sub
   
9. End If
   
10. End If
    5 _3 C/ K& l# Y5 @: f' U
11. ACADApp.Visible = True

复制代码

请求帮助！

2 G/ U3 ~0 F5 n  \7 j+ N

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

搞定了，多谢了