[讨论]：如何实现自动加载ARX模块

EMeiMonkey

开发完成ARX模块以后，如何通过安装程序安装完成后，启动AutoCAD就自动加载上？目前我只能做到先启动AutoCAD，然后将ARX模块采用加载命令添加到历史，以后才每次自动加载。

XDSoft

最初由 EMeiMonkey 发布
[B]开发完成ARX模块以后，如何通过安装程序安装完成后，启动AutoCAD就自动加载上？目前我只能做到先启动AutoCAD，然后将ARX模块采用加载命令添加到历史，以后才每次自动加载。 [/B]

你的应用程序应该有自己的PROFILE吧。

有几个方法：

1、修改你的搜索目录中的ACAD.RX文件，里面加入要加载的ARX文件名就可以。

2、修改你的菜单组对应的同名的MNL文件，里面加入加载代码。

3、修改注册表，需要运行过一次，然后以后就自动加载了。

我想 1、2比较好些，和你具体的应用软件对应，其中2比较好，因为启动你的菜单文件，就自动加载。

EMeiMonkey

谢谢XDSoft ！
我还有一个问题，在用加载应用对话框中列出了一个已经加载的Arx等应用，有些是灰的，不能修改，是如何实现的呢，还有，我看到加载的有些还是*.mnl文件，这又是如何实现的呢？万分感谢！

XDSoft

最初由 EMeiMonkey 发布
[B]谢谢XDSoft ！
我还有一个问题，在用加载应用对话框中列出了一个已经加载的Arx等应用，有些是灰的，不能修改，是如何实现的呢，还有，我看到加载的有些还是*.mnl文件，这又是如何实现的呢？万分感谢！ [/B]

ACAD加载菜单的机制是，加载一个菜单后比如ABC.MNU，会自动查找ABC.MNL，如果这个文件有，就加载它。这个MNL实际上就是一个LISP文件，扩展名不同而已。在这个文件中你加上(arxload "yourApp")就可以加载你需要的ARX文件了。

APPLOAD对话框有些项变灰，是因为这些应用程序定义成了不允许卸载。

当ARX加载后，默认的ARX程序是不允许卸载的，如果希望能卸载，在acrxEntryPoint() 的AcRx::kInitAppMsg 消息处理中，加入解锁代码：

下面是部分代码：

1. 
   
2. [FONT=courier new]
   
3. acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
   
4. {
   
5.         switch (msg) {
   
6.         case AcRx::kInitAppMsg:
   
7.                 InitModule(_hdllInstance, DLL_PROCESS_ATTACH, NULL);
   
8.                 [color=blue]acrxUnlockApplication(pkt);[/color]
   
9. [/FONT]

复制代码

下面是帮助文件：

2. 
   
3. [FONT=courier new]
   
4. acrxUnlockApplication Global Function bool
   
5. 
   
6. acrxUnlockApplication(
   
7. 
   
8. void* appId);
   
9. 
   
10. appId Input void* from second parameter to acrxEntryPoint() during AcRx::kInitAppMsg call
    
11. 
    
12. When ObjectARX applications are initially loaded, they are locked so they cannot be unloaded until AutoCAD shuts down. This function is a "C" code wrapper for:
    
13. 
    
14. acrxDynamicLinker->unlockApplication(appId);
    
15. 
    
16. which unlocks an application, thus making it unloadable at any time thereafter.
    
17. 
    
18. The appId argument is the void* passed in as the second parameter to the application's acrxEntryPoint() function during the AcRx::kInitAppMsg call that occurs when the application is initially loaded.
    
19. 
    
20. Only the void* passed into acrxEntryPoint() during the AcRx::kInitAppMsg call is valid to be used by this function. So, if this function will be called at any other time the void* passed in during the AcRx::kInitAppMsg call must be stored for later use.
    
21. 
    
22. Returns 1 if the application is successfully unlocked; otherwise, returns 0.
    
23. 
    
24. Include File
    
25. rxregsvc.h [/FONT]

<br /> [FONT=courier new]<br /> acrxUnlockApplication Global Function bool<br /> <br /> acrxUnlockApplication(<br /> <br /> void* appId);<br /> <br /> appId Input void* from second parameter to acrxEntryPoint() during AcRx::kInitAppMsg call <br /> <br /> When ObjectARX applications are initially loaded, they are locked so they cannot be unloaded until AutoCAD shuts down. This function is a "C" code wrapper for:<br /> <br /> acrxDynamicLinker->unlockApplication(appId);<br /> <br /> which unlocks an application, thus making it unloadable at any time thereafter.<br /> <br /> The appId argument is the void* passed in as the second parameter to the application's acrxEntryPoint() function during the AcRx::kInitAppMsg call that occurs when the application is initially loaded.<br /> <br /> Only the void* passed into acrxEntryPoint() during the AcRx::kInitAppMsg call is valid to be used by this function. So, if this function will be called at any other time the void* passed in during the AcRx::kInitAppMsg call must be stored for later use.<br /> <br /> Returns 1 if the application is successfully unlocked; otherwise, returns 0.<br /> <br /> Include File<br /> rxregsvc.h [/FONT]

EMeiMonkey

哦，我明白了，谢谢斑竹！
我把这一行注释掉就不能卸载了：acrxDynamicLinker->unlockApplication(pkt);
不知大家研究过这样一个ARX模块没有：SWFileConv.arx
这个是在先装完AutoCAD后再装SolidWorks时，SolidWorks安装程序提示安装的一个转换AutoCAD图纸文件的Arx应用模块，大家看看它的SWFileConv.mnl文件，研究研究肯定受益非浅：

(defun xw-place-menu (/ i)
  (setq i 1)
  (while (< i 50)
    (if (menucmd (strcat "P" (itoa i) ".1=?"))
      (setq i (+ i 1))
      (progn
          (if (> i 2)
              (setq i (- i 2))
            (if (> i 1)
                (setq i 1)
              (setq i 2)))
        (menucmd (strcat "P" (itoa i) "=+SWFILECONV.pop1"))
        (setq i 50)))))




(xw-place-menu)
(command "toolbar" "SWFILECONV.TB_XW" "show")

他的SWFileConv.mns文件是这样的：
***MENUGROUP=SWFILECONV
***POP1
**FILE
ID_FileImport          [&XchangeWorks]
ID_TRANSLATE        [输入(&I)...]_translatethrusw
ID_RUN        [&Part Modeler...]_runsw
                [--]
ID_HELP         [关于 XchangeWorks(&A)...]_aboutxchangeworks

***TOOLBARS
**TB_XW
**XW
ID_TB_XW       [_Toolbar("XchangeWorks", _Floating, _Show, 300, 300, 1)]
ID_TRANSLATE   [_Button("输入", "xwimport16.bmp", "xwimport24.bmp")]_translatethrusw
ID_RUN         [_Button("Part Modeler", "xwpm16.bmp", "xwpm24.bmp")]_runsw

按照斑竹的提示，我找到了ACAD.RX文件，并打开结果如下：
swfileconv.arx
说明他是采用ACAD.RX文件加载的。
每次AutoCad启动时，其Arx模块及菜单都自动加载，即使在AutoCad退出前手工把其菜单卸载，下次AutoCad启动时菜单又自动出现了。
还有，不知道大家注意到没有，其菜单文件中这一行“***POP1”，然后通过SWFileConv.mnl文件的lisp程序自动计算菜单出现的位置，真是高明！值得我们参考。

EMeiMonkey

我还没有搞明白的是它的菜单是怎么自动加载上去的？是不是在Arx里面调用加载菜单上去的？

lig555

我也想知道

coronas

请教。我就是先装CAD后装SW的，以后总是出现不能加载swfileconv.mun。如何把代码加载呢？
谢谢！

jx2008

谢谢XDsoft斑竹，我前段时间也一样，不知道怎么在菜单名命令加载arx文件，现在可以做成菜单，用菜单命令方式加载并执行了。谢谢

swgzj

这么复杂