[求助]vba实现cad下添加菜单！

dafei315

这是我编的一段代码，实现在cad下添加一个菜单项，目的是使layerclect窗体现实 但是运行不了，

红色部分肯定是有错误  但不知道怎么改  求高手指点一下下啊~~

Sub insertMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("宗地检验")
Dim newMenuItem As AcadPopupMenuItem
Dim jianyan As String
jianyan = "layerclect.Show"

Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "封闭性检验", layerclect.Show)
currMenuGroup.Menus.InsertMenuInMenuBar "宗地检验", ""

End Sub

紫色狂澜

看你发了这么久都没人回答

我告诉你吧

Sub insertMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("宗地检验")
Dim newMenuItem As AcadPopupMenuItem
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "封闭性检验", "-VBARUN Showlayerclect" & vbCr)
currMenuGroup.Menus.InsertMenuInMenuBar "宗地检验", ""

End Sub

Sub Showlayerclect()

layerclect.Show

End Sub

菜单后的"-VBARUN Showlayerclect"会发送到命令行

然后运行Showlayerclect()宏

dafei315

真是好心人啊！！！！！

真该好好谢谢你！

你哪的 离我近的话请你吃饭  必须的！

dafei315

如果 我想在一个菜单下连续定义几个子菜单应该怎么做啊？？