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\"

 

 1   ''' <summary>
 2     ''' 将程序集随acad启动注册表写入注册表
 3     ''' </summary>
 4     ''' <param name="keyLocal">HKLM,HKCU</param>
 5     Private Shared Sub DllAutoLoader(keyLocal As RegistryKey)
 6 
 7         Dim regPath As String = HostApplicationServices.Current.RegistryProductRootKey 'Software\Autodesk\AutoCAD\R18.0\ACAD-8001:804
 8         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
 9         Dim assName = Assembly.GetExecutingAssembly().CodeBase
10         Dim apps_Acad = keyLocal.OpenSubKey(Path.Combine(regPath, "Applications"), False)
11         Dim counts = apps_Acad.SubKeyCount, flag As Boolean = False
12         For Each item As String In apps_Acad.GetSubKeyNames()
13             If item = Path.GetFileNameWithoutExtension(assName) Then flag = True
14         Next
15         If flag = False Then
16             Dim autocad_App As Microsoft.Win32.RegistryKey
17             autocad_App = keyLocal.OpenSubKey(Path.Combine(regPath, "Applications"), True) 'RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.FullControl
18             Dim myNerLoader = autocad_App.CreateSubKey(Path.GetFileNameWithoutExtension(assName), RegistryKeyPermissionCheck.Default)
19             myNerLoader.SetValue("DESCRIPTION", "加载自定义dll文件", Microsoft.Win32.RegistryValueKind.String)
20             myNerLoader.SetValue("LOADCTRLS", 2, Microsoft.Win32.RegistryValueKind.DWord)
21             myNerLoader.SetValue("LOADER", assName, Microsoft.Win32.RegistryValueKind.String)
22             myNerLoader.SetValue("MANAGED", 1, Microsoft.Win32.RegistryValueKind.DWord)
23             Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，重启AutoCAD 生效！" + Environment.NewLine + "注册表地址为：" + myNerLoader.Name)
24         Else
25             Application.ShowAlertDialog(Path.GetFileNameWithoutExtension(assName) + "程序自动加载完成，无需重复加载！")
26         End If
27     End Sub

View Code