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", , Microsoft.Win32.RegistryValueKind.DWord)
             myNerLoader.SetValue("LOADER", assName, Microsoft.Win32.RegistryValueKind.String)
             myNerLoader.SetValue("MANAGED", , Microsoft.Win32.RegistryValueKind.DWord)
             Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，重启AutoCAD 生效！" + Environment.NewLine + "注册表地址为：" + myNerLoader.Name)
         Else
             Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，无需重复加载！")
         End If
     End Sub