[教学]：如何在PULLDOWN菜单添加个菜单项...

XDSoft

可以用下面代码找到POP菜单的最后一个位置

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

<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 />

推荐在帮助菜单前面添加。


:c :c :c