菜单上的宏命令

zytom

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

caslee

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

zytom

楼上的大哥，
1 S5 L) q" W+ B8 i1 g( v* U/ Q能不能把过程讲具体点，我.........

sealive_leafage

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

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
; T+ j* }; {. A6 T( Bdim mnuGroup as acadmenugroup
4 c% p; e( P# [& T2 Iset mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
+ x: ^4 J: L8 B4 u6 I  e' G0 oset newnenu=mnugroup.menus.add("TestMenu")
dim newMenuItem as AcadPopupMenuItem
! o( C, X; R9 o  j. Hdim MacroStr as string
: Y  `) X' {; _$ G1 aMacroStr=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

以下是我的菜单编码：
6 T; V8 ~+ K4 N0 wSub gMenu()
8 J( M5 W" F$ K6 yDim currMenuGroup As AcadMenuGroup
+ H1 x$ F6 d- \Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
$ i6 x, E: {' mSet newMenu = currMenuGroup.Menus.Add("零部件")
Dim newMenuItem As AcadPopupMenuItem
% ?' F3 w4 f+ P6 ]1 H8 h' N8 [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)
5 X1 g9 Z' l, C$ QEnd Sub
6 H+ p3 H' p* c" r
0 x5 p2 a+ H* Z8 n4 T: d+ L2 ]3 h
下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

４楼的老大，能不能留下你的ＱＱ或者电话什么的？？
; t' O1 Z$ d* B% [% I/ W# Y  z我还有一些问题想向您请教！！

woaishuijia

Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
* Q0 Z) i8 x$ K1 z+ }% B% n5 x) e
这一句改成
6 q0 a4 W0 l5 w) H# ^Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
Sub 齿轮()
'打开用户窗体
End Sub
7 o; C: H' i, A. i5 _& o4 L
* Q4 u% n: r$ x6 L6 _+ z( D6 x试试吧

sealive_leafage

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

zytom

Sub 齿轮()
& [* @; n1 f) m& v/ Q' `'打开用户窗体
End Sub

" r) B  y5 [) J; H/ C
8 g: g$ ~1 E" L2 i' L8 R8 I
7 O% }9 a: K: ^/ w4 I4 Y, X% H这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
就可以了，把你的代码贴上来看看。
1 Q' V2 U; Q* R# ]+ O& h! v
9 E! H; m0 C2 W' O" r9 K! s9 Q$ U6 Z[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

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