东哥,这个菜单怎么实现?

cag

我想在选中一个实体时所出现的右键菜单中加入一个菜单项,该怎么修改莱单文件？


当然不是修改acad.mnu了，是修改自定义的菜单，是用menuload加载的那个菜单，如cag.mnu.


第一次来这个版块，请多多指教！

东哥

我没有做过，不过我想可以按照下面的方式试试：

[默认模式的上下文菜单]
ID_CMNonLast [重复%s(&R)]^C^C;
[--]
ID_Cutclip [剪切(&T)]^C^C_cutclip
ID_Copyclip [复制(&C)]^C^C_copyclip
ID_Copybase [带基点复制(&B)]^C^C_copybase
ID_Pasteclip [粘贴(&)]^C^C_pasteclip
ID_Pastebloc [粘贴为块(&K)]^C^C_pasteblock
ID_Pasteorig [粘贴到原坐标(&D)]^C^C_pasteorig
[--]
ID_U [放弃(&U)]^C^C_u
ID_Redo [重做(&D)]^C^C_mredo 1
ID_Pan [平移(&A)]'_pan
ID_ZoomRealt [缩放(&Z)]'_zoom ;
[--]
ID_Filter [快速选择(&Q)...]^C^C_qselect
ID_TextFind [查找(&F)...]^C^C_find
ID_Preferenc [选项(&O)...]^C^C_options ***POP502
**CMEDIT
[编辑模式的上下文菜单]
ID_CMSelLast [重复%s(&R)]^C^C;
[--]
ID_Cutclip [剪切(&T)]^C^C_cutclip
ID_Copyclip [复制(&C)]^C^C_copyclip
ID_Copybase [带基点复制(&B)]^C^C_copybase
ID_Pasteclip [粘贴(&)]^C^C_pasteclip
ID_Pastebloc [粘贴为块(&K)]^C^C_pasteblock
ID_Pasteorig [粘贴到原坐标(&D)]^C^C_pasteorig
[--]
ID_Erase [删除(&E)]^C^C_erase
ID_Move [移动(&M)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Copy [复制选择(&Y)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
ID_Scale [缩放(&L)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_scale,^C^C_scale)
ID_Rotate [旋转(&O)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)
[--]
ID_Deselectall [全部不选(&A)]^C^C^P(ai_deselect) ^P
[--]
ID_Filter [快速选择(&Q)...]^C^C_qselect
ID_TextFind [查找(&F)...]^C^C_find
ID_Ai_propch [特性(&S)]^C^C_properties

以上是原菜单文件中的语句，加上自己的东西就可以吧。

cag

这样不行的,谁能帮我？

东哥

不行吗？我怎么觉得是可以的呢？也许问题在于你要加入什么？

cag

C:\Documents and Settings\cag\桌面\demo.bmp


如图所示，这是我用VBA编的，现在我想用菜单文件来实现，是一个自定义的菜单文件，并不是acad.mnu文件，加入东哥所说的代码，我试过了，不行，怎么办呢？


还有，谁知道用VL编又怎么实现？

ljcgq

是要修改右键菜单吗?

cag

是啊,能帮我吗?


最好三种方法你都会.

mccad

右键菜单只能通过acad.mnu或程序实现，而不能放到自己的菜单文件中。

cag

用VBA我知道怎么实现,那用VL怎么实现?

oyxx1023

vl能直接访问右键菜单吗.