VB启动CAD有问题

zhc3dport

3 L' U5 V, B/ k" ^
& C7 o/ W# u0 b$ I7 _各位大虾
本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动

1. Public ACADApp As AcadApplication On Error Resume Next
   ' U6 O# g) X: _
2. Set ACADApp = GetObject(, "autocad.application")
   ) R3 Z* m9 `8 }" v. v
3. If Err Then
   0 _# Q  v. E5 Y/ Y
4. Err.Clear
   $ H) O: I1 e. X5 o( I/ H
5. Set ACADApp = CreateObject("autocad.application")
   
6. If Err Then
   
7. MsgBox ("不能运行Autocad,请检查是否安装了autocad")
   1 A% {7 @/ p" ~; D3 q, Z% k2 ~
8. Exit Sub
   
9. End If
   ) |6 i5 o1 U: }! m8 K; [) O6 x+ b
10. End If
    
11. ACADApp.Visible = True

复制代码

请求帮助！


+ @* e6 M8 w1 V8 g4 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

搞定了，多谢了