VB启动CAD有问题

zhc3dport

2 z) H9 V$ u- O
7 W: Z5 Z9 A' Y5 R. i5 K, }) r% c各位大虾
$ U( s  E. U0 s$ w- N8 I本人在用VB启动CAD时出现“类型不匹配”的现象，无法启动

1. Public ACADApp As AcadApplication On Error Resume Next
   1 [& ?, \3 Z# H4 R
2. Set ACADApp = GetObject(, "autocad.application")
   
3. If Err Then
   ! t) _1 O; b, ~2 t0 `
4. Err.Clear
   
5. Set ACADApp = CreateObject("autocad.application")
   # n' o$ j  \( B& T: C: n
6. If Err Then
   - Q, d& }! S6 f) v& a
7. MsgBox ("不能运行Autocad,请检查是否安装了autocad")
   
8. Exit Sub
   . d, o3 \, `$ j3 T! e
9. End If
   
10. End If
    - X) H/ `/ r4 Y& F
11. ACADApp.Visible = True

复制代码

请求帮助！

7 d; C9 {/ T- j7 y* V2 R- h
4 Y* T. M& B. F# c, W

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

搞定了，多谢了