明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1401|回复: 1

[求助]cad菜单栏中"帮助"右边追加一个菜单(非弹出式)

[复制链接]
发表于 2008-4-19 15:29:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-4-20 19:58:11 编辑
  1. Sub Ch6_AddASubMenu()
  2. Dim currMenuGroup As AcadMenuGroup
  3. Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
  4. ' 建立一个新菜单
  5. Dim newMenu As AcadPopupMenu
  6. Set newMenu = currMenuGroup.Menus.Add("TestMenu")
  7. ' 增加子菜单
  8. Dim FileSubMenu As AcadPopupMenu
  9. Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile")
  10. ' 在子菜单中增加一个菜单项
  11. Dim newMenuItem As AcadPopupMenuItem
  12. Dim openMacro As String
  13. ' 指定宏为VBA表达式"ESC ESC _open "
  14. openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
  15. Set newMenuItem = FileSubMenu.AddMenuItem _
  16. (newMenu.count + 1, "Open", openMacro)
  17. ' 菜单条上显示菜单
  18. newMenu.InsertInMenuBar _
  19. (ThisDrawing.Application.menuBar.count + 1)
  20. End Sub
我已阅读了以上文章,以上文章是弹出式菜单,但想在cad菜单栏 “帮助”后面追加一个菜单,点击此菜单马上调用相应宏命令,而不是弹出菜单再进行选择,还是实现不了
  1. ' 增加子菜单
  2. Dim FileSubMenu As AcadPopupMenu
  3. Set FileSubMenu = newMenu.AddSubMenu("", "OpenFile")
  4. ' 在子菜单中增加一个菜单项
  5. Dim newMenuItem As AcadPopupMenuItem
  6. Dim openMacro As String
  7. ' 指定宏为VBA表达式"ESC ESC _open "
  8. openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
  9. Set newMenuItem = FileSubMenu.AddMenuItem _
  10. (newMenu.count + 1, "Open", openMacro)
把这段删除后,运行VBA 菜单栏里,只剩5、6个菜单了,并不是当初猜想的在原来菜单后追加一个TestMenu菜单
发表于 2008-4-25 21:33:00 | 显示全部楼层

openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)为菜单对应的命令

要调用宏命令只要改为 "-vbarun  宏名"就好了

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 08:25 , Processed in 0.172340 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表