cad加载菜单

Posted 2022-01-06 zeqi1991

//获得菜单路径
	TCHAR szFilePath[MAX_PATH+1];
	memset(szFilePath, 0, MAX_PATH+1);
	GetModuleFileName(_hdllInstance, szFilePath, MAX_PATH);

	CString strPath(szFilePath);
	CLayerSelDlg dlg;
	dlg.GetParentPath(strPath);
	dlg.GetParentPath(strPath);

	strPath = strPath + _T("\\\\menu\\\\menu.cuix");
	if (_taccess(strPath, 0) != -1)
	
		CoInitialize(NULL);

		try
		
			CAcadApplication appCAD(acedGetAcadWinApp()->GetIDispatch(TRUE));
			VARIANT BaseMenu;   //是否加载为基础菜单 
			VariantInit(&BaseMenu);
			BaseMenu.vt = VT_BOOL; 
			BaseMenu.boolVal = TRUE;
			CAcadMenuGroups acadMenuGroups(appCAD.get_MenuGroups());
			acadMenuGroups.Load(strPath, BaseMenu);
			acadMenuGroups.ReleaseDispatch();
		
		catch(COleDispatchException* e)
		
			TCHAR szError[1024];
			szError[0] = 0;
			e->GetErrorMessage(szError, 1023);
			//MessageBox(NULL, szError, _T("系统错误"), MB_ICONERROR);
		
		catch(...)
		
			return;
		

		CoUninitialize();