ap9707131 发表于 2005-8-26 02:37:31

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

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

Qun 发表于 2005-8-26 08:06:28

用户加不了。

LJCAD 发表于 2005-8-27 16:56:37

修改qur.mnu

lingzhi0512 发表于 2006-8-1 20:56:17

可以的：

;以下代码在右键菜单中添加一项“画直线(&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)
      )
      )
    )
)
)

KLDC 发表于 2006-8-2 15:45:40

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


直接改菜单最容易方便
在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;

心若向阳 发表于 2017-12-26 22:48:05

4楼又是给的不全的，如何让子命令表示出来了
页: [1]
查看完整版本: [求助]：请问班主怎样在右键增加命令??