鼠标右键添加子级菜单

dcl1214

(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)
        )
      )
    )
  )
)

---

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

snddd2000

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. )

(vlax-for for-item<br />                    (vla-get-MenuGroups<br />                      (vlax-get-acad-object)<br />                    )<br />   (if (equal "ACAD" (vla-get-name for-item))<br />     (progn<br />       (vlax-for        for-item1 (vla-get-menus for-item)<br />         (if (equal :vlax-true (vla-get-ShortcutMenu for-item1))<br />           (progn<br />             (vla-AddMenuItem (vla-AddSubMenu for-item1 0 "New1") 0 "new3" " ")<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )

机械工程师

求助，怎么删除添加的子菜单啊

我爱lisp

建议上动画，不然不知道要干嘛

流动的清泉

能最后给一个完整的帖子吗，一个一个找函数累死了，这个函数太生僻了，好难弄。

流动的清泉

把明经和晓东的东西都找遍了，还是没有找到有用的信息。