# 给cad添加自定义菜单 Private Sub AddBar() Dim NewMenuItem As AcadPopupMenuItem Dim TheMacro As String Dim MI As Integer On Error Resume Next Dim currMenuGroup As AcadMenuGroup ) 'Create the new menu Set NewMenu = currMenuGroup.Menus.Add("批量绘图") If Err.
为鼠标添加自定义菜单,比较简单,实现一个Handler就行 Hanler实现类 public class MenuHandler extends CefContextMenuHandlerAdapter{ private final static int MENU_ID_INJECTION=10000; private final static int MENU_ID_ADDTEXT=10001; @Override public void onBeforeContextMenu(CefBrow