明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2689|回复: 6

[讨论] 鼠标右键添加子级菜单

[复制链接]
发表于 2013-9-20 08:59:48 | 显示全部楼层 |阅读模式
(vlax-for item (vla-get-menugroups (vlax-get-acad-object))
  (if (= (strcase (vl-filename-base (getvar "menuname")))
         (vla-get-name item)
      )
    (vlax-for menu (vla-get-menus item)
      (if (= :vlax-true (vla-get-shortcutmenu menu))
        (progn
          (setq        new-macro
                 "$M=$(if,$(!=,$(getvar,cmdactive),0),$P0=*,line )"
               
          )
          (setq        new-macro1
                 "$M=$(if,$(!=,$(getvar,cmdactive),0),$P0=*,copy )"
               
          )
          (vla-addmenuitem menu 0 "画线(&L)" new-macro)
          (vla-addmenuitem menu 1 "复制(&L)" new-macro1)
;;;          (setq exist-shortcut t)
        )
      )
    )
  )
)



这个是给鼠标右键添加菜单的代码,不知道如何添加多级菜单
希望高手路过指点一下





点评

重要的好代码啊!  发表于 2020-3-15 14:41
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2013-9-22 10:15:59 | 显示全部楼层
  1. (vlax-for for-item
  2.                    (vla-get-MenuGroups
  3.                      (vlax-get-acad-object)
  4.                    )
  5.   (if (equal "ACAD" (vla-get-name for-item))
  6.     (progn
  7.       (vlax-for        for-item1 (vla-get-menus for-item)
  8.         (if (equal :vlax-true (vla-get-ShortcutMenu for-item1))
  9.           (progn
  10.             (vla-AddMenuItem (vla-AddSubMenu for-item1 0 "New1") 0 "new3" " ")
  11.           )
  12.         )
  13.       )
  14.     )
  15.   )
  16. )
发表于 2014-9-5 17:29:36 | 显示全部楼层
求助,怎么删除添加的子菜单啊
发表于 2014-9-26 14:50:01 | 显示全部楼层
建议上动画,不然不知道要干嘛
发表于 2017-12-26 21:59:17 | 显示全部楼层
能最后给一个完整的帖子吗,一个一个找函数累死了,这个函数太生僻了,好难弄。
发表于 2017-12-26 23:24:03 | 显示全部楼层
把明经和晓东的东西都找遍了,还是没有找到有用的信息。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 07:18 , Processed in 0.192906 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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