菜单上的宏命令

zytom

我在ＭＤＴ下用ＶＢＡ作了个菜单，现在想靠点击其上的子菜单
能弹出一个我用ＶＢＡ做的对话框，怎么实现？
1 y5 S4 ?% s* O! H0 _4 S; K请各位帮帮忙！！

caslee

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

zytom

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

sealive_leafage

定义菜单时，直接写宏代码就可以了。
例如，菜单项为[对话框调用]^C^C_-VbaRun 对话框.dvb!ViewDialog
/ k$ r+ S; }+ u3 y6 P9 V, O7 g注意要先加载vba程序文件（对话框.dvb），ViewDialog是定义的调用对话框的sub。

sealive_leafage

如果菜单项也是通过程序创建的话，道理也相同。
1 X( ?% Z3 s' ?! t" l* N& |9 hdim mnuGroup as acadmenugroup
, ^  d8 a- X( fset mnuGroup=thisdrawing.menugroups.item(0)
) r; a- p  c# I' r/ ]dim newMenu as acadpopumenu
set newnenu=mnugroup.menus.add("TestMenu")
' B3 k! }3 Q8 F( w7 Sdim newMenuItem as AcadPopupMenuItem
dim MacroStr as string
2 m1 j; l$ v, c! n9 H- o) nMacroStr=chr(3)+chr(3)+chr(95)+"此处为调用对话框的sub名"+chr(32)
* `$ o- f* p+ P5 ^set newMenuItem=newmenu.addmenuitem(newmenu.count+1,"Test",Macrostr)
newmenu.insertinmenubar(thisdrawing.menubar.count+1)

zytom

以下是我的菜单编码：
Sub gMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
4 x2 _" M, C$ {+ ?Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("零部件")
) [( B% ^2 G/ F; ^Dim newMenuItem As AcadPopupMenuItem
! n  p# H' _- Y8 M2 i4 W% LDim Gear As String
Gear = Chr(3) + Chr(3) + Chr(95) + "齿轮" + Chr(32)
( q; ^( r2 u& h8 CSet newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "齿轮", Gear)
; d  ?! b1 t. f4 g# e% n! enewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
: q$ C4 _: H3 L/ c
! a# A* S6 d, ]0 [
下图是当我点击菜单“零部件”下的“齿轮”时能弹出的对话框，怎么实现？

zytom

４楼的老大，能不能留下你的ＱＱ或者电话什么的？？
: u( A+ M5 t$ z" U& s+ M6 T我还有一些问题想向您请教！！

woaishuijia

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

" K0 p# L/ g$ `, ?' J2 z这一句改成
Gear = "-VBARUN" & Chr(13) + "齿轮" + Chr(32)
再写一段
- g" h: S# |1 @. X& sSub 齿轮()
' z% p9 q9 r% u1 x8 P* u) i3 e'打开用户窗体
: u. k$ Z. M9 C; J8 N8 W' H2 o# bEnd Sub

试试吧

sealive_leafage

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

zytom

Sub 齿轮()
'打开用户窗体
2 ~& K1 h/ G7 Y) f# h& hEnd Sub

: O3 o- p1 V. F  L6 n
  T. _( n( M! Y/ i* u0 d
这一段怎么实现？？

sealive_leafage

加入代码 userform1.show
+ \; G9 a- ?( r* h3 N& e" K就可以了，把你的代码贴上来看看。
6 x6 U7 o. s- _; N
[ 本帖最后由 sealive_leafage 于 2007-6-2 10:08 编辑 ]

zytom

我的代码？菜单代码在６楼，
６楼上的图是我在ＶＢＡ中用各个控件做的对话框还没有添加代码
, p$ V! u/ D2 N3 G1 E2 ^我是想先看看能不能实现点击后弹出这个对话框
: z! X, |- I8 S4 G) g" x谢谢楼上的帮忙！！