请教：不管怎样启动AutoCAD，都会自动加载我的Arx

ilovearx

当然不是通过acad.rx文件，如果通过该文件，又如果AutoCAD有很多应用程序，那可能要对每个应用程序的acad.rx都要修改，这样就很麻烦了。通过命令加载？

XDSoft

最初由 ilovearx 发布
[B]当然不是通过acad.rx文件，如果通过该文件，又如果AutoCAD有很多应用程序，那可能要对每个应用程序的acad.rx都要修改，这样就很麻烦了。通过命令加载？ [/B]

修改注册表，具体见“程序库”论坛置顶上面的XDRX_API注册表方法

ilovearx

能老烦你在这再贴一下，好吗？

masterhe

最初由 ilovearx 发布
[B]当然不是通过acad.rx文件，如果通过该文件，又如果AutoCAD有很多应用程序，那可能要对每个应用程序的acad.rx都要修改，这样就很麻烦了。通过命令加载？ [/B]

2. 
   
3. void Regiter(LPCTSTR lpszMyAppName)
   
4. {
   
5.         CString strKeyPos=::acrxProductKey()+CString(_T("\\AutodeskApps"));
   
6. 
   
7.         //下边函数的第一个参数改为:AcadApp::kOnCommandInvocation,则调用你的命令时
   
8.         //自动加载
   
9.         ::acrxRegisterApp(AcadApp::kOnAutoCADStartup,lpszMyAppName,strKeyPos,2);
   
10. 
    
11.         CRegKey regKey;
    
12.         if(regKey.Create(HKEY_LOCAL_MACHINE,strKeyPos+_T("\")+lpszMyAppName)==ERROR_SUCCESS)
    
13.         {
    
14.                 CRegKey regSubKey;
    
15.                 if(regSubKey.Create(regKey,_T("Commands"))==ERROR_SUCCESS)
    
16.                 {
    
17.                         regSubKey.SetValue("命令名称","你的命令");
    
18.                         //一直加加到你的命令加完为止
    
19.                         regSubKey.Close();
    
20.                 }
    
21.                 if(regSubKey.Create(regKey,_T("Loader"))==ERROR_SUCCESS)
    
22.                 {
    
23.                         regSubKey.SetValue(acedGetAppName(),_T("MODULE"));
    
24.                         regSubKey.Close();
    
25.                 }
    
26.                
    
27.                 if(regSubKey.Create(regKey,_T("Name"))==ERROR_SUCCESS)
    
28.                 {
    
29.                         regSubKey.SetValue(lpszMyAppName,lpszMyAppName);
    
30.                         regSubKey.Close();
    
31.                 }
    
32.                 regKey.Close();
    
33.         }
    
34. 
    
35. }
    

<br /> void Regiter(LPCTSTR lpszMyAppName)<br /> {<br />         CString strKeyPos=::acrxProductKey()+CString(_T("\\AutodeskApps"));<br /> <br />         //下边函数的第一个参数改为:AcadApp::kOnCommandInvocation,则调用你的命令时<br />         //自动加载<br />         ::acrxRegisterApp(AcadApp::kOnAutoCADStartup,lpszMyAppName,strKeyPos,2);<br /> <br />         CRegKey regKey;<br />         if(regKey.Create(HKEY_LOCAL_MACHINE,strKeyPos+_T("\")+lpszMyAppName)==ERROR_SUCCESS)<br />         {<br />                 CRegKey regSubKey;<br />                 if(regSubKey.Create(regKey,_T("Commands"))==ERROR_SUCCESS)<br />                 {<br />                         regSubKey.SetValue("命令名称","你的命令");<br />                         //一直加加到你的命令加完为止<br />                         regSubKey.Close();<br />                 }<br />                 if(regSubKey.Create(regKey,_T("Loader"))==ERROR_SUCCESS)<br />                 {<br />                         regSubKey.SetValue(acedGetAppName(),_T("MODULE"));<br />                         regSubKey.Close();<br />                 }<br />                 <br />                 if(regSubKey.Create(regKey,_T("Name"))==ERROR_SUCCESS)<br />                 {<br />                         regSubKey.SetValue(lpszMyAppName,lpszMyAppName);<br />                         regSubKey.Close();<br />                 }<br />                 regKey.Close();<br />         }<br /> <br /> }<br />

将上边那个函数放在AcRx::kInitAppMsg消息处，当然你的ARX至少要运行一次才行。
另外加上：#include < AtlBase.H >

直线

按一下开发工具条里的一个按钮,设为按需加载就可以了
(按需加载指的是当CAD里运行到你的命令时,如果arx没有加载，CAD会自动找到这个arx，并自动加载,实际上也是写注册表,只不过不用自已编程的)

ilovearx

谢谢三位的热心回答！尤其是Masterhe提供的代码

wuhui

请问在自动加载ARX的同时，怎样得到这个ARX所在的路径

土土土

如果你是用工具条上的命令自动生成的"按需加载"则不存在这个问题,第一次load后系统会将arx所在的路径自动放在注册表中。以后当你运行一个这个arx中的命令时，CAD 会自动查找相应路径下的arx文件并加载(如果还没load的话)

ScmTools

最简单直接的方法就是用LISP加载