VBNET AUTOCAD NETAPI 让插件随autocad启动

定义一个函数，随AutoCAD 启动加载当前程序集到autocad，涉及到写入注册表，注意这是在autocad内部加载dll之后处理的方法。。。。

写入HKLM表示所有登录的用户都会受影响(autocad 需要以管理员身份启动才能成功写入注册表)，写入HKCU表示当前登录的用户才会收影响

"LOADCTRLS"：控制程序随CAD加载的方式，设为Ox02随CAD启动一起加载；
"LOADER"：告诉CAD所要加载的程序的路径；
"MANAGED"：设为Ox01，告诉CAD这是托管程序。

注意32为cad在64为的电脑上注册表如果写入HKLM 会用不同的路径在“HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\”

注意32为cad在64为的电脑上注册表如果写入HKCU 会用不同的路径在“HKEY_LOCAL_MACHINE\SOFTWARE\"

 

  ''' <summary>
    ''' 将程序集随acad启动注册表写入注册表
    ''' </summary>
    ''' <param name="keyLocal">HKLM,HKCU</param>
    Private Shared Sub DllAutoLoader(keyLocal As RegistryKey)

        Dim regPath As String = HostApplicationServices.Current.RegistryProductRootKey 'Software\Autodesk\AutoCAD\R18.0\ACAD-8001:804
        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim assName = Assembly.GetExecutingAssembly().CodeBase
        Dim apps_Acad = keyLocal.OpenSubKey(Path.Combine(regPath, "Applications"), False)
        Dim counts = apps_Acad.SubKeyCount, flag As Boolean = False
        For Each item As String In apps_Acad.GetSubKeyNames()
            If item = Path.GetFileNameWithoutExtension(assName) Then flag = True
        Next
        If flag = False Then
            Dim autocad_App As Microsoft.Win32.RegistryKey
            autocad_App = keyLocal.OpenSubKey(Path.Combine(regPath, "Applications"), True) 'RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.FullControl
            Dim myNerLoader = autocad_App.CreateSubKey(Path.GetFileNameWithoutExtension(assName), RegistryKeyPermissionCheck.Default)
            myNerLoader.SetValue("DESCRIPTION", "加载自定义dll文件", Microsoft.Win32.RegistryValueKind.String)
            myNerLoader.SetValue("LOADCTRLS", 2, Microsoft.Win32.RegistryValueKind.DWord)
            myNerLoader.SetValue("LOADER", assName, Microsoft.Win32.RegistryValueKind.String)
            myNerLoader.SetValue("MANAGED", 1, Microsoft.Win32.RegistryValueKind.DWord)
            Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，重启AutoCAD 生效！" + Environment.NewLine + "注册表地址为：" + myNerLoader.Name)
        Else
            Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，无需重复加载！")
        End If
    End Sub