AutoCAD注册表路径
'2000中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R14.0\ACAD-1:804
'2002中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-1:804
'2004中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.0\ACAD-201:804
'2005中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-301:804
'2005英文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-301:409
'2006中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:804
'2007中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.0\ACAD-5001:804
'2008中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.1\ACAD-6001:804
'2009中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.2\ACAD-7001:804 
'2010中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.0\ACAD-8001:804 
'2011中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:804 
'2012中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.2\ACAD-A001:804
'2013中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R19.0\ACAD-B001:804
'2014中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R19.1\ACAD-D001:804 
'2015中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R20.0\ACAD-E001:804
'2016中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R20.1\ACAD-F001:804
'2017中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R21.0\ACAD-0001:804
'2018中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R22.0\ACAD-1001:804
'2019中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R23.0\ACAD-2001:804
'2020中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R23.1\ACAD-3001:804
'2021中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R24.0\ACAD-4101:804
'2022中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R24.1\ACAD-5101:804
'2023中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R24.2\ACAD-6101:804
'2024中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R24.3\ACAD-7101:804
'2025中文版      HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R25.0\ACAD-8101:804

    Private Function GetCadPath(ByVal CadVersion As String, ByRef cadRegPath As String) As String
        cadRegPath = ""
        Dim keyLocalMachine As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
        Using key As RegistryKey = keyLocalMachine.OpenSubKey("Software\Autodesk\HardCopy")
            If key IsNot Nothing Then
                Dim values As String() = key.GetValueNames()
                For Each value As String In values
                    If value.Contains(CadVersion) Then
                        Dim subKey As RegistryKey = keyLocalMachine.OpenSubKey("Software\" + value)
                        Dim result As Object = subKey.GetValue("AcadLocation")
                        If result IsNot Nothing Then
                            cadRegPath = "Software\" + value
                            Return result.ToString()
                        End If
                    End If
                Next
            Else
                '未找到
            End If
        End Using
        Return ""
    End Function