请教加载菜单组问题?
<p>请教加载菜单组问题?</p><p>我自己编写了一个菜单文件(cd.mnu),怎样用VBA加载菜单组,把菜单组作为基本菜单加载，就象AutoCAD的MENU命令一样?</p><p>cd.mnu 文件如下</p><p>***MENUGROUP=cd</p><p>***POP1<br/>[文件1(&F)]<br/>[新建(&N)...]new<br/>[打开(&O)...]open<br/>[保存(&S)]save<br/>[另存为(&A)...]saveas<br/>[--]<br/>[保存至我的家园]SaveToInternet<br/>[保存平面布置图]imageout<br/>[--]<br/>[打印(&P)...]qprint<br/>[打印设置...]printSetup<br/>[--]<br/><br/>[--]<br/>[退出]exit</p><p>***POP2<br/>[编辑1(&E)]<br/>[回退]undo<br/>[重作]redo<br/>[--]<br/>[移动]furMove<br/>[旋转]furRotate<br/>[复制]furCopy<br/>[镜像]furMirror<br/>[删除]furErase<br/>[--]<br/>[直线]line<br/>[圆弧]arc<br/>[圆]circle<br/>[复合线]pline<br/>[文字]text<br/>[地面]ckAllRoom<br/>[水平垂直标注]linearDim<br/>[平行标注]alignedDim<br/>[角度标注]angularDim<br/>[--]<br/>[插入图片]insertImage<br/>[插入图框]insertFrame<br/>[插入文件]insertFile<br/>[--]<br/>[磁吸]!snapon<br/>[捕捉设置...]!snapSetting<br/>[墙端点正交捕捉]!snapwalltip<br/>[--]<br/>[画墙高级设置]setAdvWall<br/>[--]<br/>[尺寸标注样式...]dimstyle<br/>[缺省文字颜色...]textcolor<br/>[缺省墙厚...]wallThick<br/>[--]<br/>[产品报价]getFurReport<br/>***POP3<br/>[帮助1(&H)]<br/>[在线帮助...]SmartOpen<br/>[在线论坛]SmartOpen <br/>[--]<br/>[启动向导]showStartTips<br/>[--]<br/>[关于...]about<br/>我用ThisDrawing.Application.MenuGroups.Load "c:\cd.mnu"不能实现,请高手指点,实现AutoCAD的MENU命令的功能。</p> 请高手指点
页:
[1]