明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2702|回复: 5

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

[复制链接]
发表于 2008-2-18 22:56:00 | 显示全部楼层 |阅读模式

刚刚接触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个的位置,也就是“窗口”前面,我要放在最后一个,也就是“帮助”后面,如何改,谢谢了!

 楼主| 发表于 2008-2-19 03:06:00 | 显示全部楼层

问题已解决,感谢!

发表于 2008-2-27 07:50:00 | 显示全部楼层
咋解决的?说下啊
发表于 2008-5-5 06:50:00 | 显示全部楼层
如何解决的,让我们见识下
发表于 2008-5-5 08:25:00 | 显示全部楼层

 (setq n (- n 2))  ; 插在倒数第三条的位置上。(Help与Window之前啦)

程序里面不是写的很清楚了吗

发表于 2020-9-4 22:25:36 | 显示全部楼层
-0就是放在最后一个了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-5-17 21:23 , Processed in 0.198919 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表