判断当前用户已安装的Autocad版本

zzyong00

1. Dim ret1 As Boolean, strSubKn() As String, strVn() As String, VT() As ValueType
   
2. Dim i As Long, j As Long
   
3. ret1 = GetKeyInfo(HKEY_CURRENT_USER, "Software\Autodesk\AutoCAD", strSubKn(), strVn(), VT())
   
4. If ret1 Then
   
5.     Debug.Print "已安装的Autocad版本："
   
6.     For i = 0 To UBound(strSubKn)
   
7.         Select Case strSubKn(i)
   
8.             Case "R15.0": Debug.Print "Autocad2000"
   
9.             Case "R15.1": Debug.Print "Autocad2002"
   
10.             Case "R16.0": Debug.Print "Autocad2004"
    
11.             Case "R16.1": Debug.Print "Autocad2005"
    
12.             Case "R16.2": Debug.Print "Autocad2006"
    
13.             Case "R17.0": Debug.Print "Autocad2007"
    
14.             Case "R17.1": Debug.Print "Autocad2008"
    
15.             Case "R17.2": Debug.Print "Autocad2009"
    
16.             Case "R18.0": Debug.Print "Autocad2010"
    
17.             Case "R18.1": Debug.Print "Autocad2011"
    
18.             Case "R18.2": Debug.Print "Autocad2012"
    
19.             Case "R19.0": Debug.Print "Autocad2013"
    
20.             Case "R19.1": Debug.Print "Autocad2014"
    
21.             Case "R20.0": Debug.Print "Autocad2015"
    
22.             Case "R20.1": Debug.Print "Autocad2016"
    
23.             Case "R21.0": Debug.Print "Autocad2017"
    
24.             Case "R22.0": Debug.Print "Autocad2018"
    
25.             Case Else: Debug.Print "未知"
    
26.         End Select
    
27.     Next i
    
28. End If

Dim ret1 As Boolean, strSubKn() As String, strVn() As String, VT() As ValueType<br /> Dim i As Long, j As Long<br /> ret1 = GetKeyInfo(HKEY_CURRENT_USER, "Software\Autodesk\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>", strSubKn(), strVn(), VT())<br /> If ret1 Then<br />     Debug.Print "已安装的Autocad版本："<br />     For i = 0 To UBound(strSubKn)<br />         Select Case strSubKn(i)<br />             Case "R15.0": Debug.Print "Autocad2000"<br />             Case "R15.1": Debug.Print "Autocad2002"<br />             Case "R16.0": Debug.Print "Autocad2004"<br />             Case "R16.1": Debug.Print "Autocad2005"<br />             Case "R16.2": Debug.Print "Autocad2006"<br />             Case "R17.0": Debug.Print "Autocad2007"<br />             Case "R17.1": Debug.Print "Autocad2008"<br />             Case "R17.2": Debug.Print "Autocad2009"<br />             Case "R18.0": Debug.Print "Autocad2010"<br />             Case "R18.1": Debug.Print "Autocad2011"<br />             Case "R18.2": Debug.Print "Autocad2012"<br />             Case "R19.0": Debug.Print "Autocad2013"<br />             Case "R19.1": Debug.Print "Autocad2014"<br />             Case "R20.0": Debug.Print "Autocad2015"<br />             Case "R20.1": Debug.Print "Autocad2016"<br />             Case "R21.0": Debug.Print "Autocad2017"<br />             Case "R22.0": Debug.Print "Autocad2018"<br />             Case Else: Debug.Print "未知"<br />         End Select<br />     Next i<br /> End If

mod：
以上为判断当前用户已安装的Autocad版本的vb6代码，对于32位autocad，vba也可以，但64位autocad，哪个mod不能直接用！
对于低版本的autocad，R??.?不知道是否和autocad版本对应，请安装的相应版本的autocad的同学测试斧正！

dong20030432

听说ACADVER系统变量可以获得CAD版本号，你用这吗？

dong20030432

代码测试结果：
我以前安装过2004，现在安装了2006和2018（绿色版），全部测试出来了。

言戲無軍

非常感谢楼主，通过这个代码，终于可以实现64，32位系统自动加载程序了。写完程序就可以把这个只支持32位系统的程序扔掉了

664571221

言戲無軍 发表于 2018-8-22 00:58
非常感谢楼主，通过这个代码，终于可以实现64，32位系统自动加载程序了。写完程序就可以把这个只支持32位系 ...

你好大神你搞了什么程序呢

fjfhgdwfn

今天下附件，附件都打不开，报文件损坏。

sunny_8848

论坛有修复附件的小程序的