怎样选择CAD启动版本

guohq

系统里安装了AutoCAD05、06、07、08，现在想在VB里启动CAD，如何根据选择来启动想要的那个版本呢?

Dim acadApp As AcadApplication

Set acadApp = GetObject(, "autocad.application")

wylong

1. AutoCAD产品名  版本号  ProgID
2. AutoCAD 2000   R15   AutoCAD.Application.15
3. AutoCAD 2002   R15   AutoCAD.Application.15
4. AutoCAD 2004   R16   AutoCAD.Application.16
5. AutoCAD 2005   R16.1   AutoCAD.Application.16.1
6. AutoCAD 2006   R16.2   AutoCAD.Application.16.2
7. AutoCAD 2007   R17   AutoCAD.Application.17
8. AutoCAD 2008   R17.1   AutoCAD.Application.17.1
9. AutoCAD 2009   R17.2   AutoCAD.Application.17.2
10. AutoCAD 2010   R18   AutoCAD.Application.18
11. AutoCAD 2011   R18.1   AutoCAD.Application.18.1
12. 用法指导：
13. CreateObject ("AutoCAD.Application.17.1") '启动AutoCAD 2008.
14. 如果不指定版本号，如CreateObject("AutoCAD.Application")，程序就会启动用户最后一次使用的AutoCAD的版本。

复制代码

guohq

谢谢解答！