aicr317 发表于 2008-2-18 22:56:00

[原创]LSP设置菜单文件顺序

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

aicr317 发表于 2008-2-19 03:06:00

<p>问题已解决，感谢！</p>

hydkot99 发表于 2008-2-27 07:50:00

咋解决的?说下啊

董堃 发表于 2008-5-5 06:50:00

如何解决的，让我们见识下

狂刀无痕 发表于 2008-5-5 08:25:00

<p>&nbsp;(setq n (- n 2))&nbsp; ; 插在倒数第三条的位置上。（Help与Window之前啦）</p><p>程序里面不是写的很清楚了吗</p>

烟盒迷唇 发表于 2020-9-4 22:25:36

-0就是放在最后一个了
页: [1]
查看完整版本: [原创]LSP设置菜单文件顺序