刚刚接触LSP,问题很菜,呵呵!有以下代码: (defun scei_placemenu (/ n) (if (menugroup "scei") ; 如果存在菜单组scei (progn (setq n 1) (while (< n 24) (if (menucmd (strcat "P" (itoa n) ".1=?")) (setq n (+ n 1)) ; 不停地往后找,找到最后一条菜单(主要就是看看有几条啦) (progn ; 找到了 (if (> n 3) (setq n (- n 2)) ; 插在倒数第三条的位置上。(Help与Window之前啦) (setq n 3) ) ;if (menucmd (strcat "p" (itoa n) "=+scei.pop1")) ; 你如果有多个菜单组都在这里加载。当然要相应修改一下上下的数字 (setq n 25) ) ;progn ) ;if ) ;while ) ;progn ) ;if (princ) );;;;;;=============结束 现在这个菜单是加在倒数第3个的位置,也就是“窗口”前面,我要放在最后一个,也就是“帮助”后面,如何改,谢谢了! |