菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
) P" p* a+ l) {( X) s' \能弹出一个我用ＶＢＡ做的对话框，怎么实现？
1 A7 g/ t' d8 F; {1 K6 a请各位帮帮忙！！

caslee

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

zytom

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

sealive_leafage

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

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
5 Q$ H0 B7 F% w7 `* w. xdim mnuGroup as acadmenugroup
set mnuGroup=thisdrawing.menugroups.item(0)
7 b! K& I9 ?2 _0 _9 v; i; m* Ddim newMenu as acadpopumenu
( _0 \2 F* f" c2 u* s, P: @* }( C' R/ J& T) qset newnenu=mnugroup.menus.add("TestMenu")
dim newMenuItem as AcadPopupMenuItem
% P- |( \2 F. z: edim MacroStr as string
MacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
" s' {/ q3 g7 O& M' G) c7 m4 eset newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
$ s* T. S: L4 @; F" O/ [newmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
, Q& L) w( B* ~3 P8 _/ ]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
( W4 x# x5 B' jGear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
! M) n! w% J5 k5 _4 {* FSet newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
1 a) g( T* `8 L- unewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
7 U" x2 e, {) A+ dEnd Sub
: m& b2 U! o4 {) m- E0 I) g

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

zytom

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

woaishuijia

Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
4 D, V4 z+ V- o
' y8 M# e9 c* M0 S这一句改成
: I- X4 `. }/ v; j0 f7 n% `; yGear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
+ T! [) b. r) j( xSub 齿轮()
9 u4 C0 Y2 C: o- S'打开用户窗体
End Sub

试试吧

sealive_leafage

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

zytom

Sub 齿轮()
5 A1 f; h- u5 P1 H'打开用户窗体
+ R; ~& t$ ]8 V" Q* H- FEnd Sub
; B( U8 p/ N1 f7 o) t
' z. T5 Y( ^* K2 H# l
3 o1 w6 B/ Z2 ^) e0 }# e6 G$ E
; \2 J. n9 A+ h8 F+ n这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
1 u, C9 s/ E, d$ L! u就可以了，把你的代码贴上来看看。
- P+ b" t/ ^: f- J, d, E& M
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
3 @) I; W5 B/ T1 P; @4 u６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
) T3 c9 H% |6 J) y我是想先看看能不能实现点击后弹出这个对话框
5 j. p* A! O" y( }谢谢楼上的帮忙！！