如何在程序中判断当前系统中安装的autocad版本？
我现在做autocad二次开发，需要在程序中判断当前系统中是否安装了autocad、autocad版本及其安装路径。我查看了注册表，好像不行，因为注册表中HKEY_CURRENT_USER\Software\Autodesk\AutoCAD下的相关的键都是带autocad版本的，如R15、R16，可是如果系统中先后安装过几个版本的autocad，就会在注册表中留下几个相关键，让程序无法判断。大家有什么好办法吗？谢谢！

[解决办法]
用下面语句试试：
dim cadver As String
cadver=acaddoc.Getvariable( "Acadver ")　 '获取AutoCad的版本号

[解决办法]
dim acaddoc
set acaddoc=createobject( "autocad.application ")
acaddoc.visible=true
msgbox acaddoc.version '当前autocad版本号