CAD二次开发 添加菜单栏

admin1

[code]在vs2008视图下，在arx工程的init函数( 这个函数：virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) )里添加如下代码：

acedGetAcadFrame()->m_bAutoMenuEnable = FALSE;      //CMDIFrameWnd* acedGetAcadFrame()
        CMenu *pMainMenu = acedGetAcadFrame()->GetMenu();//获取一个指向cad菜单栏的指针
        CMenu myMenu;
        myMenu.LoadMenu(IDR_MENU1);//把资源视图内的菜单项添加到程序中
        pMainMenu->AppendMenu(MF_POPUP,(UINT)myMenu.Detach(), TEXT("自写菜单项")); //通过Detach()获取到myMenu的句柄
        acedGetAcadFrame()->DrawMenuBar();

        if (!acedRegisterFilterWinMsg(GetMousePos))
        {
            acedPrompt(_T("无法注册钩子函数：GetMousePos/n"));
        }
        else
        {
            bRegistered = true;
        }




然后在arx工程的unload函数（virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt)）中添加如下代码

        if (bRegistered)
        {
            acedRemoveFilterWinMsg(GetMousePos);
            bRegistered = FALSE;
        }



钩子函数代码如下：

BOOL GetMousePos(MSG *pMsg)
{
    CPoint cPnt;
    acedDwgPoint cpt;
    switch (pMsg->message)
    {
    case WM_COMMAND:
        {
            if (LOWORD(pMsg->wParam) == IDM_MYMENU_ITEM1)
            {
                //在这里可以添加事件
                acDocManager->sendStringToExecute(acDocManager->curDocument(), TEXT("Line"));//此句可注释
                    return TRUE;
            }
        }

        break;
    }
    return FALSE;
}



不过要在EntryPoint中定义一个全局变量bool bRegistered = false;
然后可以在资源内添加一个菜单项，将菜单项的ID：IDR_MENU1赋给myMenu。再将菜单的第一个子项的ID定义IDM_MYMENU_ITEM1
如果想对该菜单项添加事件，可以在钩子函数内添加相应代码，因为钩子函数就是截取消息的。

备注： cad默认是不显示菜单栏的，所以需要显示出来才能看见[/code]