VB编写的自动加载arx程序 支持win10 64位系统 修改后可加载lsp net等

言戲無軍

把此程序放到需要加载的arx同目录下，将此程序名称改为arx同样名字(如 Myapp.exe  32位：Myapp.16.arx 64位：Myapp.16.X64.arx  16为arx版本对应的CAD版本号)，否则无法加载，点运行即可加载及卸载，
加载后，CAD每次运行都会加载ARX.
注册表读取函数来自zzyong版主，其它部分代码来自网络，在此谢过，代码水平有限，仅限于实现功能。包涵。
源码共享 ，这个代码稍作修改可用于加载net lisp程序，需要有人来继续了哦
部分核心代码，加载部分

1. Private Sub Command4_Click()
   
2. Dim MyAppName As String
   
3. MyAppName = App.Title
   
4. 'MsgBox App.Path
   
5. 
   
6. 
   
7. Dim CurVer As String, cadpath As String, i As Long, Ver As String
   
8. 
   
9. For i = 0 To List1.ListCount - 1
   
10. If List1.Selected(i) = True Then
    
11. Ver = CStr(Cadstr(i))
    
12.   Select Case Ver
    
13.          Case "16.0", "16.1", "16.2"
    
14.             
    
15.                CurVer = RegQueryStringValue(HKCU32, "Software\Autodesk\AutoCAD\R" & Ver, "CurVer")
    
16.                    cadpath = RegQueryStringValue(GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")
    
17.                  If Dir(cadpath & "\acad.exe") <> "" Then
    
18.                      
    
19.                      PopulateDemandloadKey GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".arx", Ver
    
20.                   End If
    
21.             
    
22.          Case Else:
    
23.                 CurVer = RegQueryStringValue(HKCU32, "Software\Autodesk\AutoCAD\R" & Ver, "CurVer")
    
24.                    cadpath = RegQueryStringValue(GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")
    
25.                  If Dir(cadpath & "\acad.exe") <> "" Then
    
26.                  MsgBox cadpath & "1"
    
27.                      PopulateDemandloadKey GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".arx", Ver
    
28.                   End If
    
29.                   If Is64bit() Then
    
30.                   CurVer = RegQueryStringValue(HKCU64, "Software\Autodesk\AutoCAD\R" & Ver, "CurVer")
    
31.                    cadpath = RegQueryStringValue(GetPreferredRoot64, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")
    
32.                  If Dir(cadpath & "\acad.exe") <> "" Then
    
33.                  'MsgBox cadpath & "2"
    
34.                      PopulateDemandloadKey GetPreferredRoot64, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".X64.arx", Ver
    
35.                   End If
    
36.                   End If
    
37.          
    
38.          
    
39.   
    
40.   End Select
    
41. End If
    
42. Next
    
43. End Sub

Private Sub Command4_Click()<br /> Dim MyAppName As String<br /> MyAppName = App.Title<br /> 'MsgBox App.Path<br /> <br /> <br /> Dim CurVer As String, cadpath As String, i As Long, Ver As String<br /> <br /> For i = 0 To List1.ListCount - 1<br /> If List1.Selected(i) = True Then<br /> Ver = CStr(Cadstr(i))<br />   Select Case Ver<br />          Case "16.0", "16.1", "16.2"<br />             <br />                CurVer = RegQueryStringValue(HKCU32, "Software\Autodesk\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>\R" & Ver, "CurVer")<br />                    cadpath = RegQueryStringValue(GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")<br />                  If Dir(cadpath & "\acad.exe") <> "" Then<br />                      <br />                      PopulateDemandloadKey GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".arx", Ver<br />                   End If<br />             <br />          Case Else:<br />                 CurVer = RegQueryStringValue(HKCU32, "Software\Autodesk\AutoCAD\R" & Ver, "CurVer")<br />                    cadpath = RegQueryStringValue(GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")<br />                  If Dir(cadpath & "\acad.exe") <> "" Then<br />                  MsgBox cadpath & "1"<br />                      PopulateDemandloadKey GetPreferredRoot32, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".arx", Ver<br />                   End If<br />                   If Is64bit() Then<br />                   CurVer = RegQueryStringValue(HKCU64, "Software\Autodesk\AutoCAD\R" & Ver, "CurVer")<br />                    cadpath = RegQueryStringValue(GetPreferredRoot64, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer, "Location")<br />                  If Dir(cadpath & "\acad.exe") <> "" Then<br />                  'MsgBox cadpath & "2"<br />                      PopulateDemandloadKey GetPreferredRoot64, "Software\Autodesk\AutoCAD\R" & Ver & "\" & CurVer & "\Applications", MyAppName & ".ARX." & Int(CDbl(Ver)) & ".X64.arx", Ver<br />                   End If<br />                   End If<br />          <br />          <br />   <br />   End Select<br /> End If<br /> Next<br /> End Sub

“win10 WIN7 WIN8"需用管理员权限运行

源码

言戲無軍

自己顶一下吧，期待有人能改改支持加载 lsp vlx 添加支持路径等

zzyong00

我以前有过一个实时加载lsp等程序，不过不是设成自动加载，cad自动加载太多插件，启动时或打开图时会很慢！
http://bbs.mjtd.com/thread-111114-1-1.html