[求助]：关于用VBA创建菜单的问题

一生有你 · 发表于 2004-4-4 11:40:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我初学VBA，编写了一组创建菜单的代码，可是运行老是有问题，实现不了，请高手提示一下用VBA创建菜单需要注意哪些问题，还请给一些程序让我参考一下吧！非常感谢！————急切学习！

CLWang02 · 发表于 2004-4-11 14:11:20

我也想試試在AutoCAD中建立選單

sfy9 · 发表于 2004-4-16 15:23:16

我也没有试出来，希望高手能指点一二

lijiao · 发表于 2004-4-16 15:56:13

没有什么特别的，看看ACAD的模型树，以及有关的属性和方法就行了。
最好是贴出你的代码。

zhyd365 · 发表于 2004-4-16 16:04:39

把你写的程序帖上来我们看看。。。。

ntchjie · 发表于 2004-4-17 17:31:30

不知道我的这个对你有没有启发，你先看看，我的目的是将菜单连接到某个用vb写的可执行文件上去，可以不知道为什么，由于路径的关系没有调试成功，或许对你有些用？
Dim currMenuGroup As Object
'先连接到cad
Set acadObj = GetObject(, "AutoCAD.Application.15")
Set AcadDoc = acadObj.ActiveDocument

Set moSpace = AcadDoc.ModelSpace

Dim acadUtil As Object
Set acadUtil = AcadDoc.Utility

Set currMenuGroup = AcadDoc.Application.MenuGroups.Item(0)

'新建立菜单
Dim newMenu As Object
Set newMenu = currMenuGroup.Menus.Add("我的工具")

' Add a menu item to the new menu
Dim newMenuItem As Object
Dim openMacro As String
Dim menuitemseparator As Object

' 定义打开宏语句
openMacro = Chr(3) & Chr(3) & "shell" & Chr(13) & "main1.exe zd" & Chr(13)

Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "辅助工具", openMacro)
Set menuitemseparator = newMenu.addseparator("")
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "表格工具", openMacro)

' 显示菜单
newMenu.InsertInMenuBar (AcadDoc.Application.MenuBar.Count + 1)

floyd007 · 发表于 2004-4-25 22:19:10

楼上高手，又学了一招。

zcmjw · 发表于 2004-4-30 11:33:37

我采用直接配置MNU文件进行配置CAD菜单。

ninuo · 发表于 2004-6-22 21:29:38

不错，看的越多，学的也越多

god · 发表于 2004-6-22 22:03:16

在菜单自定义窗口也可增加菜单项

账号		自动登录	找回密码
密码			立即注册

[求助]：关于用VBA创建菜单的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子