明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 549|回复: 3

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

[复制链接]
发表于 2018-1-11 21:01 | 显示全部楼层 |阅读模式
  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

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



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-1-15 10:34 | 显示全部楼层
听说ACADVER系统变量可以获得CAD版本号,你用这吗?

点评

读取注册表相关的内容  发表于 2018-1-15 13:37
发表于 2018-1-15 10:42 | 显示全部楼层
代码测试结果:
我以前安装过2004,现在安装了2006和2018(绿色版),全部测试出来了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-7-20 06:38 , Processed in 0.163973 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表