菜单上的宏命令

zytom

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

caslee

编译成fas文件 加载到acad.lsp
2 c: e& L/ ?( g一级菜单是fas文件 二级是vlx文件

zytom

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

sealive_leafage

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

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
dim mnuGroup as acadmenugroup
set mnuGroup=thisdrawing.menugroups.item(0)
dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
& H/ H( u( @, q! fdim newMenuItem as AcadPopupMenuItem
6 H$ e) ?1 P' }1 [' `- C6 Adim MacroStr as string
' P0 `+ ?: i, u2 v1 v. AMacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
set newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
* i# c( c$ X+ f" p) W2 c" k0 J' Y' Snewmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
- X: N. ~! R' wSub gMenu()
* B: t  Q+ T' v0 \0 U$ ^Dim currMenuGroup As AcadMenuGroup
8 b" W5 @8 d) p# qSet currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
2 R7 m6 h& F8 \! e3 c* d" G; B. d6 bDim 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
: X7 O8 B; M: k6 J$ }+ o
: C  L; G$ L/ o) V+ n" P. N& T) ?! a8 O4 V
  V: m$ [% t) a% l. @' {2 U下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

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

woaishuijia

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

这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
9 y9 ^$ n; K4 r再写一段
Sub 齿轮()
2 d3 r4 D0 o& y  J( w0 m'打开用户窗体
+ I& t* {+ p7 a) |End Sub

试试吧

sealive_leafage

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

zytom

Sub 齿轮()
6 j8 L! F  f" h* V, c0 o% M'打开用户窗体
End Sub

7 s# a6 {1 o0 W5 i8 z

这一段怎么实现？？

sealive_leafage

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

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

zytom

我的代码？菜单代码在６楼，
( ~, @2 e' p& Z  t６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
我是想先看看能不能实现点击后弹出这个对话框
' x9 x  }' u+ l: j, f/ F谢谢楼上的帮忙！！