AutoCAD 当前配置文件的注册表路径

'AutoCAD 当前配置文件的注册表路径
'2000中文版       HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADR14.0ACAD-1:804
'2002中文版       HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADR15.0ACAD-1:804
'2004中文版       HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADR16.0ACAD-201:804
'2005中文版       HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADR16.1ACAD-301:804
'2006中文版   --- HKEY_LOCAL_MACHINESOFTWARE\AutodeskAutoCADR16.2ACAD-4001:804
'2007中文版   --- HKEY_LOCAL_MACHINESOFTWARE\AutodeskAutoCADR17.0ACAD-5001:804
'2008中文版   --- HKEY_LOCAL_MACHINESOFTWARE\AutodeskAutoCADR17.1ACAD-6001:804
'2009中文版   --- HKEY_LOCAL_MACHINESOFTWARE\AutodeskAutoCADR17.2ACAD-7001:804
Function GetActiveProfileRegPath() As String
    Dim Version As String
    Dim ActiveProfile As String
    Dim Language As String
    Version = Left(AcadApplication.Version, 4)
    ActiveProfile = AcadApplication.Preferences.Profiles.ActiveProfile
    Select Case Version
        Case "14.0"
            Language = "ACAD-1:804"
        Case "15.0"
            Language = "ACAD-1:804"
        Case "16.0"
            Language = "ACAD-201:804"
        Case "16.1"
            Language = "ACAD-301:804"
        Case "16.2"
            Language = "ACAD-4001:804"
        Case "17.0"
            Language = "ACAD-5001:804"
        Case "17.1"
            Language = "ACAD-6001:804"
        Case "17.2"
            Language = "ACAD-7001:804"
    End Select
    GetActiveProfileRegPath = "SOFTWAREAutodeskAutoCADR" & Version & "" & Language & "Profiles" & ActiveProfile
End Function