Appending a pop menu

newer

问题：
Is there a way to tag a new pulldown menu at the end? For example, at the first
available position instead of at a fixed position? How do I know what this
position is so that I can swap the menus?

解答：
You can use the following function to find the last position on a pop menu:

1. 
   
2. (defun lastmenu(/ pos)
   
3. (setq pos 1)
   
4. (while (menucmd (strcat "P" (itoa pos) ".1=?"))
   
5. (setq pos (1+ pos))
   
6. )
   
7. pos
   
8. )
   
9. 
   
10. (defun c:placemenu()
    
11. (menucmd (strcat "P" (itoa (1- (lastmenu))) "+=mymenu.pop2"))
    
12. )
    

<br /> (defun lastmenu(/ pos)<br /> (setq pos 1)<br /> (while (menucmd (strcat "P" (itoa pos) ".1=?"))<br /> (setq pos (1+ pos))<br /> )<br /> pos<br /> )<br /> <br /> (defun c:placemenu()<br /> (menucmd (strcat "P" (itoa (1- (lastmenu))) "+=mymenu.pop2"))<br /> )<br />

It is recommended you place the menu before the help menu instead of at the very
last position.