菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
( Q5 g  ?- F  l4 y& F* \能弹出一个我用ＶＢＡ做的对话框，怎么实现？
/ C8 Y2 `7 L/ X" n请各位帮帮忙！！

caslee

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

zytom

楼上的大哥，
+ B3 `, f* E$ Q; x8 m7 l# n能不能把过程讲具体点，我.........

sealive_leafage

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

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
7 @  G8 l! s6 L& N; z- Rdim mnuGroup as acadmenugroup
" p' D8 l/ W1 U) E" X1 T( A# V0 Y) dset mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
) t6 c) A5 i7 [& d  s5 |8 Fset newnenu=mnugroup.menus.add("TestMenu")
dim newMenuItem as AcadPopupMenuItem
dim MacroStr as string
MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
5 u. X. c$ ]9 o' U; `: nset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
, s) M% {8 \, a7 @2 Wnewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
' j' k% T% y  z" ^+ }! SSub gMenu()
Dim currMenuGroup As AcadMenuGroup
  v# D7 t; B. B+ }( N4 d# e0 sSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("零部件")
Dim newMenuItem As AcadPopupMenuItem
Dim Gear As String
. c5 X; E# L  O. QGear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
" k$ r9 v& p: Y" `, [Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub


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

zytom

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

woaishuijia

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

这一句改成
, i$ x& r' I& y8 RGear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
$ v) z0 B0 Q& j* m3 _再写一段
Sub 齿轮()
'打开用户窗体
# {2 b% I" X2 a: [: }2 e! O' NEnd Sub
- _- g% |% \' ~8 m! Y
2 u9 f0 }. Q# i' N9 e% a  k: Y- k试试吧

sealive_leafage

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

zytom

Sub 齿轮()
1 a5 ^( C2 h/ ?& s9 z8 E6 N'打开用户窗体
* y; b9 }  F6 s+ ~9 g+ WEnd Sub



这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。
- l% m& b/ D7 Q" Y
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
2 R# ~6 k8 }3 L# o# h; z; P% k0 |６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
- x8 b9 x0 g; @5 s, @2 f我是想先看看能不能实现点击后弹出这个对话框
谢谢楼上的帮忙！！