菜单上的宏命令

zytom · 发表于 2007-6-1 20:53:35

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
能弹出一个我用ＶＢＡ做的对话框，怎么实现？
请各位帮帮忙！！

caslee · 发表于 2007-6-1 21:01:46

编译成fas文件加载到acad.lsp
一级菜单是fas文件二级是vlx文件

zytom · 发表于 2007-6-1 21:13:17

楼上的大哥，
能不能把过程讲具体点，我.........

sealive_leafage · 发表于 2007-6-1 21:19:45

定义菜单时，直接写宏代码就可以了。
例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
注意要先加载vba程序文件（对话框.dvb），ViewDialog是定义的调用对话框的sub。

sealive_leafage · 发表于 2007-6-1 21:37:00

如果菜单项也是通过程序创建的话，道理也相同。
dim mnuGroup as acadmenugroup
set mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
dim newMenuItem as AcadPopupMenuItem
dim MacroStr as string
MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
set newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
newmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom · 发表于 2007-6-1 21:42:58

以下是我的菜单编码：
Sub gMenu()
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 Gear As String
Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub

下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom · 发表于 2007-6-1 21:49:55

４楼的老大，能不能留下你的ＱＱ或者电话什么的？？
我还有一些问题想向您请教！！

woaishuijia · 发表于 2007-6-1 23:38:30

Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)

这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
Sub 齿轮()
'打开用户窗体
End Sub

试试吧

sealive_leafage · 发表于 2007-6-2 08:21:53

按8楼说的试试，你首先要加载了你的DVB文件，然后在宏中调用显示对话框的sub，你没有给string变量Gear赋值，怎么能实现？你最好结合lisp注册一个CAD命令，那么在宏中只需要写命令的名称就可以了。

zytom · 发表于 2007-6-2 09:47:31

Sub 齿轮()
'打开用户窗体
End Sub

这一段怎么实现？？

sealive_leafage · 发表于 2007-6-2 10:05:32

加入代码 userform1.show
就可以了，把你的代码贴上来看看。

[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom · 发表于 2007-6-2 11:10:45

我的代码？菜单代码在６楼，
６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
我是想先看看能不能实现点击后弹出这个对话框
谢谢楼上的帮忙！！

		自动登录	找回密码
密码			注册

通知

[已答复] 菜单上的宏命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

回复 #11 sealive_leafage 的帖子

浏览过的版块