乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
楼主: Jeff_M

将PopMenu插入菜单栏

[复制链接]

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 11:34:58 | 显示全部楼层
天啊,一想到。mnu文件惹恼了我LOL
我是有人告诉我早些时候。mnu文件是不必要的,它会节省我很多痛苦。mns文件是所有需要备份和保存的文件。
标记
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 11:59:18 | 显示全部楼层
Hi
仅供参考,以下片段来自AutoCAD Online帮助文件[F1]-
您最多可以加载和卸载8个部分菜单和最多16个流行菜单。
下拉菜单在***POP1到***POP499菜单部分中定义,快捷菜单在***POP0和***POP500到***POP999部分中定义。下拉菜单最多可以包含999个菜单项。快捷菜单最多可以包含499个菜单项。这两个限制都包括层次结构中的所有菜单。如果菜单文件中的菜单项超过这些限制,AutoCAD将忽略额外的项目。如果下拉菜单或快捷菜单长于可用的显示空间,则将其截断以适应。
祝你愉快,迈克
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 12:17:46 | 显示全部楼层
谢谢迈克,这是个好消息
回到VBA,我认为上面的代码不会与加载菜单的模块一起工作
可以这样做,但需要另一种方法
我愿意听取建议
谢谢
马克
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2004-11-17 20:14:46 | 显示全部楼层
嘿Jeff
我看了你上面的小代码示例,它确实帮助我最终完成了我试图做的事情。我想加载一个菜单组并从它中插入一个POP到菜单栏中。所以,我明白了
如果有人感兴趣,我可以发布?
谢谢
马克
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2004-11-24 09:36:29 | 显示全部楼层
好吧,我想发布这个代码,因为我现在已经完成了它。我希望其他人能从中受益。如果您有任何疑问,请随时提问。
马克
-----------------------------------
  1. Sub Load_and_Insert_Menu()
  2. Dim MenuGroup As AcadMenuGroup
  3. Dim PopMenu As AcadPopupMenu
  4. Dim SelectedMenuGroup As String, LoadedPopMenu As String
  5. Dim Retval As Variant
  6. On Error Resume Next
  7. 'This part Loads the menu
  8. SelectedMenuGroup = "K:\Directory\Directory\Directory\Menufilename.mnc" '<--- Type in the path to your menufile here.
  9. Set MenuGroup = ThisDrawing.Application.MenuGroups.Load(SelectedMenuGroup, False)
  10. LoadedPopMenu = ("&Pulldown")'Type in the pulldown that you want in the menubar from the above loaded menu.You must include the accelerator (&) if one exists
  11. Set PopMenu = MenuGroup.Menus.Item(LoadedPopMenu)
  12.                   
  13. 'This part inserts the pulldown that you typed above in the menubar
  14. PopMenu.InsertInMenuBar 10
  15. If MenuGroup Is Nothing Then                                    
  16. Retval = MsgBox("The "pulldown Menuname" menu is already loaded", vbInformation, "Type whatever you want in the dialog box capion here")
  17. Exit Sub
  18. Else
  19. Retval = MsgBox("The "pulldown Menuname"  menu has been successfully loaded", vbInformation, "Type whatever you want in the dialog box capion here")
  20. Exit Sub
  21. End If
  22. End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 15:07 , Processed in 0.343117 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表