[求助]：请问班主怎样在右键增加命令??

ap9707131

请问班主怎样在右键增加命令??

Qun

用户加不了。

LJCAD

修改qur.mnu

lingzhi0512

可以的：
[PHP]
;以下代码在右键菜单中添加一项“画直线(&L)”的命令，注意第8行line后面有一个空格：
(setq main-menugroup-name (strcase (vl-filename-base (getvar "menuname"))))
(setq menugroups (vla-get-menugroups (vlax-get-acad-object)) )
(vlax-for item menugroups
  (if (= main-menugroup-name (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 )")
          (vla-addmenuitem menu 0 "画直线(&L)" new-macro)
          (setq exist-shortcut t)
        )
      )
    )
  )
)
[/PHP]

KLDC

理正留给用户自己修改的机会很多,因此很喜欢理正.


直接改菜单最容易方便
在QAR.mnu里,***POP301一直到***POP308里,很容易看懂,你喜欢怎么改都可以.
比如下面,不用再说了吧...
***POP305
**TblTool
               [&Table Tool]
Id_Enter       [&0.回　　车];
Id_Rtbtonf     [&X.ACAD右键菜单]^P^C^C(rtbtonf);^p
               [--]
Id_Rcedit      [&1.行列输入(OI)]^C^Chlshr;
Id_Tbword      [&2.写表文字(XZ)]^C^Cxbwz;
Id_Tborder     [&3.编排序号]^P^C^C(_@ld"wenzibg2");^Pbpxh;
Id_Wdalin      [&4.文字对齐]^p^c^c(_@ld"wenzibg1");^pwzdq;
Id_Strsl       [&5.单线拖动]^P^C^C(_@ld"wenzibg2");^Pdxtd;
               [--]
Id_Tbsplt      [&6.拆分表格]^P^C^C(_@ld"wenzibg1");^Pchfbg;
Id_Tblnins     [&7.增加表行]^P^C^C(_@ld"wenzibg1");^Pzjbh;
Id_Tblnera     [&8.减去表行]^P^C^C(_@ld"wenzibg1");^Pjqbh;
Id_Tblncopy    [&9.复制表行]^P^C^C(_@ld"wenzibg1");^Pfzhbh;
Id_Tbcolins    [&A.增加表列]^P^C^C(_@ld"wenzibg1");^Pzjbl;
               [--]
Id_Tbcolera    [&B.减去表列]^P^C^C(_@ld"wenzibg1");^Pjqbl;
Id_Tbcolex     [&C.交换表列]^P^C^C(_@ld"wenzibg1");^Pjhbl;
Id_Wrzoom      [&D.角点缩放(SF)]^C^Cjdsf;
Id_Etable      [&E.擦表格线(RT)]^C^Ccbgx;
Id_Wrerase     [&F.字表擦除(WR)]^C^Czbcch;

心若向阳

4楼又是给的不全的，如何让子命令表示出来了