加载/卸载指定的菜单

LoveArx

问题：
I want to load a submenu when my ObjectARX application is loaded and remove it when it is unloaded. The following code does not work:

[C++] 纯文本查看 复制代码

//[on application load]
acedCommand (RTSTR, _T("_.CUILOAD"), RTSTR,_T("C:/TEST.CUI"), RTNONE) ;
acedMenuCmd (_T("P7=+TEST.POP1")) ;
//[on application unload]
acedCommand (RTSTR, _T("_.CUIUNLOAD"), RTSTR, _T("TEST"), RTNONE) ;

解决方案：

Using acedCommand() within an acrxEntryPoint() or within a reactor is problematic. To get around this limitation, it is possible to use the undocumented function ads_queueexpr(). The following code demonstrates how you would use it to load and unload a menu specific to your application.

The swprintf() expression in an initApp() function prepares a string that will both load the menu (using CUILOAD). Call this from On_kInitAppMsg. To add the POP1 menu in at the POP7 location, it is better to delegate this into the associated .MNL file.

游客，如果您要查看本帖隐藏内容请回复

The presence of the ARX application associated to the .MNU file loaded is tested
in the MNL file. If it is not present, unload the menu. The problem is that
during the AcRx::kUnloadAppMsg message, an AutoLISP expression is queued.
Unfortunately, this expression is evaluated only when AutoCAD will be next in
ready state. During a quit sequence AutoCAD will never be in ready state again,
so the expression will never be evaluated. The solution to that problem is to
delegate the menu unload operation to the next time AutoCAD starts. To do this,
associate an .MNL file to our menu, which checks the presence of the ARX
application. If it is not present, then unload the partial loaded menu as
demonstrated here.


;; Associated .mnl file, Note: If S::STARTUP is included in an MNL file, it is called when you enter a new drawing or open an existing drawing
(defun-q MyMenuFunc ()
(if (/= (member "myapp.arx" (arx)) nil) ;notice the name of the arx is all lower case for this if statement
    (menucmd "p7=+TEST.POP1") ;; if ARX app present, push POP1 into position 7
    (command "_.menuunload" "TEST") ;; else unload the menu
)
(princ)
)

(if S::STARTUP
  (if (equal (type S::STARTUP) 'LIST)
    (setq S::STARTUP (append S::STARTUP MyMenuFunc))
  )
  (setq S::STARTUP MyMenuFunc)
)

longer1000

啥也不说了，感谢楼主分享哇！

lw5297590

啥也不说了，感谢楼主分享哇！

青梅煮茶

确实是难得好帖啊，顶先

炫翔

回复学习

cdm1999

飘过学习.........

xinxirong

确实是难得好帖啊，顶先

xilihutude

Thanks for sharing!

windlkx

谢谢分享，学习arx的菜单加载方法~~

userzhl

学习一下

愤怒的菜鸟

看看,学习下菜单

why1025

11111111111111111111111

topone4

回复看看帖子，学习学些。。。。

qmqyqj

我就想知道怎么卸载菜单

819534890

回复学习学习，谢谢